使用简单的vb脚本来自动给qq好友或群发送刷屏消息

原理：利用快捷键

代码

Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.AppActivate"qq昵称或群名"
for i=1 to 2
WScript.sleep 100
WshShell.Sendkeys"^v"
WshShell.Sendkeys i
WshShell.Sendkeys"%s"
Next

相信修改下可以做成自己想要的qq发送脚本

效果是把粘贴板中的文字号序号按设定的次数发送给好友