准备：（代码在目录2）

代码

On Error Resume NextDim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 200wscript.sleep 10wsh.AppActivate("36℃8")wsh.sendKeys "^v"wsh.sendKeys iwsh.sendKeys "%s"nextwscript.quit

操作：

　　打开和好友的聊天框，双击程序就行了！

注意：

　　如果双击程序后电脑上面有360提示，允许就可以了！

微信自动发送消息：

脚本会监控你的粘贴板信息，从而发送给你指定备注的人：

Set WshShell = WScript.CreateObject("WScript.Shell")WshShell.AppActivate "备注的联系人"for i = 1 to 100WScript.Sleep 500WshShell.SendKeys "^v"'WshShell.SendKeys iWshShell.SendKeys "%s"Next