无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站广告联系 微信:wuyouceo QQ:184822951
查看: 3122|回复: 3

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

[复制链接]
发表于 2020-12-21 19:58:22 | 显示全部楼层 |阅读模式
每天需要微信群发送指定内容的消息,想用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:40 | 显示全部楼层
按键精灵

点评

江南老淫棍,快上!~~  详情 回复 发表于 2020-12-21 20:48
回复

使用道具 举报

发表于 2020-12-21 20:48:21 | 显示全部楼层

江南老淫棍,快上!~~
回复

使用道具 举报

 楼主| 发表于 2020-12-21 21:41:58 来自手机 | 显示全部楼层
按键精灵不太方便修改吧?我要让这个脚本根据txt文件内容每天发送不同的消息
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-3-29 19:39

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表