实现微信定时发送消息解决工作订餐的问题

需要用到微信win端，使用vb语言- >编码->任务定时器 

 

本人观看其他博主vbs实现微信自动发送消息功能_清风木子云的博客-CSDN博客制作的vb脚本有点bug代码并不能直接运行，本教程可以直接运行

Dim name,Msg,num,program1    
  
name="工作群"
Msg="IT 1 份"
num="1"
program1="D:\WeChat\WeChat.exe" 
set ws=wscript.createobject("wscript.shell")

ws.Run "cmd.exe /c echo " & Name & " | clip.exe",0,True
ws.Run "mshta javascript:window.execScript('window.close','vbs')",0,True
ws.sendKeys "^" 
wscript.sleep 5000
set oexec=ws.exec(program1)
wscript.sleep 1500
ws.sendKeys "^f"    
wscript.sleep 1500
ws.sendKeys "^v" 
wscript.sleep 1500
ws.sendKeys "{ENTER}"   
wscript.sleep 1500

ws.Run "cmd.exe /c echo " & Msg & " | clip.exe",0,True  
wscript.sleep 1500
'for i=1 to num  
ws.sendKeys "^v"   
'wscript.sleep 1500
ws.sendKeys "{ENTER}"  
'next
wscript.quit

name即发送的群名或者好友名，Msg发送的内容，num发送的次数。program1是微信程序的目录。