无忧启动论坛

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

作者: wjgyz740526    时间: 2020-12-22 16:53
标题: 谁会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}"

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

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

作者: zs5460    时间: 2020-12-23 17:31
ws "mshta vbscript:Clipboa...
改成
ws.run "mshta vbscript:Clipboa...
试试
作者: wjgyz740526    时间: 2020-12-23 22:41
谢谢楼上答复,明天测试
作者: wjgyz740526    时间: 2020-12-24 09:40
zs5460 发表于 2020-12-23 17:31
ws "mshta vbscript:Clipboa...
改成
ws.run "mshta vbscript:Clipboa...

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

但很奇怪的是,这时候如果手动按键ctrl+v,是会把剪贴板内容复制到输入框的,这是哪儿出错了?
作者: zs5460    时间: 2020-12-24 14:45
这个方法是可行的,我本机没微信,改了点代码在TIM上发消息是可以的




欢迎光临 无忧启动论坛 (http://wuyou.net./) Powered by Discuz! X3.3