无忧启动论坛

标题: 谁会vbs？求助帮忙写个向微信发送消息的代码 [打印本页]

作者: wjgyz740526 时间: 2020-12-21 19:58
标题: 谁会vbs？求助帮忙写个向微信发送消息的代码
每天需要微信群发送指定内容的消息，想用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
按键精灵

作者: 坏坏小生 时间: 2020-12-21 20:48

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

江南老淫棍,快上!~~

作者: wjgyz740526 时间: 2020-12-21 21:41
按键精灵不太方便修改吧？我要让这个脚本根据txt文件内容每天发送不同的消息

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)