谁会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}"

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

脚本区太冷清，换个板块版主勿怪，谢谢

zs5460

这个方法是可行的，我本机没微信，改了点代码在TIM上发消息是可以的

wjgyz740526

zs5460 发表于 2020-12-23 17:31
ws "mshta vbscript:Clipboa...
改成
ws.run "mshta vbscript:Clipboa...

加上去之后还是失败，脚本会打开微信搜索，找到目标对象后，聊天输入框提示不能发送空白消息。

但很奇怪的是，这时候如果手动按键ctrl+v，是会把剪贴板内容复制到输入框的，这是哪儿出错了？

wjgyz740526

谢谢楼上答复，明天测试

zs5460

ws "mshta vbscript:Clipboa...
改成
ws.run "mshta vbscript:Clipboa...
试试