微信 vbs 自动发

1. 修改“对方微信名称”，
2. 将下列代码保存到txt，
3. 重命名为xx.vbs,
4. 打开微信，打开和对方的聊天窗口
5. 复制想要发送的文本
6. 点击xx.vbs

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "对方微信名称"

for i=1 to 3
WScript.Sleep 1000
WshShell.SendKeys "^v"
WshShell.SendKeys i 
WshShell.SendKeys "%s"
Next