vbs定时自动发送qq消息

1.首先保证腾讯qq在线，然后给指定qq好友和群组设置快捷方式，见下图:

 2.编写vbs代码：(1)新建文本文档,命名为"QQautosend.vbs";(2)右击当前文件，点击"编辑"，编写如下代码:

Set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.Run "cmd.exe /C C:\Users\Jerry\Desktop\QQautosend\xx.lnk",0        

WshShell.AppActivate "xx.lnk"
WScript.Sleep 2000

WshShell.SendKeys "lingbaogao"    '零报告的拼音
WshShell.SendKeys "{ }"	  
WScript.Sleep 2000    
WshShell.Sendkeys "%s"                        '发送消息

3.保存，双击此文件运行测试；

4.使用python实现定时执行QQautosend.vbs(也可以使用winodws的任务计划程序设置任务，但是我测试发现vbs脚本快捷方式一直没有被执行，所以改用了python)，timer.py代码如下:

import schedule
import time
import subprocess
from tkinter import *
from tkinter import messagebox                

 
def job():
    subprocess.call('cscript C:/Users\Jerry/Desktop/QQautosend/QQautosend.vbs') # works

    root = Tk()
    root.withdraw() #实现主窗口隐藏
    messagebox.showinfo("提示","Working……")    # 弹出提示消息框


schedule.every().day.at("10:30").do(job) # 每天十点半执行
'''
schedule.every(10).seconds.do(job) # 每10秒执行一次
schedule.every(10).minutes.do(job) # 每10分钟执行一次
schedule.every().hour.do(job) # 每小时执行一次
schedule.every(5).to(10).minutes.do(job) # 每5-10分钟随机执行一次
schedule.every().monday.do(job) # 每周一执行
schedule.every().wednesday.at("13:15").do(job) # 每周三13点15执行
schedule.every().minute.at(":17").do(job) # 每个小时的17分执行一次
'''

 
while True:
    schedule.run_pending() # 运行所有可运行的任务
    time.sleep(1)

5.编写批处理脚本自动运行timer.py ,click-this-to-run.bat代码如下:

@echo off  
C:  
cd C:\Users\Jerry\Desktop\QQautosend
start pythonw timer.py

执行方法，双击click-this-to-run.bat即可自动发送消息，WIN+R输入shell:startup并回车，放入启动文件夹下，既可开机自启动

参考链接:https://blog.csdn.net/weixin_42575020/article/details/103694574,

https://blog.csdn.net/dream_allday/article/details/49466553