vbs自动发送微信消息

桌面创建自带文本,复制以下代码

On Error Resume Next
Dim xda,ye
set xda=createobject("wscript.shell")
for i =1 to 10
wscript.sleep 520
xda.AppActivate
xda.sendKeys "^v"
xda.sendKeys "%s"
next
wscript.quit

将.txt后缀改为.vbs

QQ 或者 微信 聊天输入框输入 任意内容 并复制
双击vbs文件 执行
再次回到 聊天输入框界面 鼠标单击

注意！注意！注意！ for循环任务次数不要过多
如不小心循环次数过多
Ctrl+Shift+Esc 打开任务管理器
在"详细信息"找到 "wscript.exe"关闭程序即可退出循环