准备：（代码在目录2）
代码
On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 200 wscript.sleep 10 wsh.AppActivate("36℃8") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit
操作：
打开和好友的聊天框，双击程序就行了！
注意：
如果双击程序后电脑上面有360提示，允许就可以了！
微信自动发送消息：
脚本会监控你的粘贴板信息，从而发送给你指定备注的人：
Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.AppActivate "备注的联系人" for i = 1 to 100 WScript.Sleep 500 WshShell.SendKeys "^v" \'WshShell.SendKeys i WshShell.SendKeys "%s" Next