vbs给qq发送消息

qq可以enter发送消息

发表情qq快捷表情需要打开 

1.vbs 新建文本文档，将代码粘贴，另存为a编码，后缀vbs

   str为发送内容，uin=改为q号，点击vbs文件主动触发

str="/ws"
Set Wshshell=WScript.CreateObject("WScript.Shell")
WshShell.run"mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true
WshShell.run "tencent://message/?uin=q号"
WScript.Sleep 1000
for i=1 to CDbl(2)  
WshShell.SendKeys"^v"
'WScript.Sleep 1000
WshShell.SendKeys "%s"
next 
WScript.Sleep 1000
WshShell.SendKeys"%{F4}"

2.定时发送

可以加入电脑的定时运行计划

python程序定时

import sys

import schedule
import subprocess
import tkinter as tk
import datetime
scheduled_date = '202410211145'

# VBScript文件路径
vb_file_path = "./mesTest.vbs"
def run_vb_script():
    subprocess.run(['cscript', vb_file_path])
while switch:
    current_date = datetime.datetime.now().strftime("%Y%m%d%H%M")
    if current_date == user_input_time:  # 设置要执行的时间
        run_vb_script()
        switch = False
    else:
        print(time_now,user_input_time)
        time.sleep(3)
sys.exit()