连发消息小代码（vbs)

连发消息小代码（vbs)

──────────────────────────────────────────────
set WshShell= WScript.CreateObject(“WScript.Shell”)
WshShell.AppActivate"哈哈"
for i=1 to 20
WScript.Sleep 100
WshShell.SendKeys “^v”
WshShell.SendKeys i
WshShell.SendKeys “%s”
Next
──────────────────────────────────────────────
有人如果想要连续给别人发10条以上的信息，你就可以用此代码代劳你的手。
代码里面加粗的数字20你可以随你的意愿调节数字大小。微信，QQ都可以用（本人已经亲自试过了）
用法
在微或者QQ上面你先输入你要发的消息，然后点击右键复制，复制好后双击你写好的vbs，最后点一下你要发消息的消息框，就完成了。

注意
文本格式为vbs