连发消息小代码(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