谁会vbs？求助帮忙写个向微信发送消息的代码

wjgyz740526

每天需要微信群发送指定内容的消息，想用vbs完成，网上搜了段代码，如下:


Dim Name,Msg
Name= "微信团队"
Msg = "Hellow！"
set ws=wscript.createobject("wscript.shell")
ws "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Name&Chr(34)& ")(close)",0,True
ws.sendKeys "^%w"
ws.appactivate "微信"
wscript.sleep 500
ws.sendKeys "^f"
wscript.sleep 500
ws.sendKeys "^v"
wscript.sleep 500
ws.sendKeys "{ENTER}"
wscript.sleep 200
ws.sendKeys "{TAB}"
wscript.sleep 200
ws.sendKeys "{ENTER}"
ws "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Msg &Chr(34)& ")(close)",0,True
wscript.sleep 200
ws.sendKeys "^v"
wscript.sleep 300
ws.sendKeys "{ENTER}"
ws.sendKeys "%{F4}"

实测无效，请问有没有达人帮助修改下，谢谢！

江南一根葱

按键精灵

坏坏小生

江南一根葱 发表于 2020-12-21 20:45
按键精灵

江南老淫棍,快上!~~

wjgyz740526

按键精灵不太方便修改吧？我要让这个脚本根据txt文件内容每天发送不同的消息