微信自动发送信息

新建txt文件，命名为微信自动发送
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.AppActivate “媳妇”
for i = 1 to 10
WScript.Sleep 500
WshShell.SendKeys “^v”
'WshShell.SendKeys i
WshShell.SendKeys “%s”
Next
在文件中写入代码，然后保存之后，把文件后缀修改为.vbs
保存后，在微信输入框输入一段话并剪切，然后，双击微信自动发送.vbs，接着，点击微信聊天框，稍等一回儿就会自动发送了。