当前位置：首页 > news >正文

vbs给qq发送消息

news 2024/10/21 14:26:22

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 sysimport 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 = Falseelse:print(time_now,user_input_time)time.sleep(3)
sys.exit()

查看全文

http://www.mrgr.cn/news/55268.html