Question

怎样用VBS弄一个QQ炸弹..步骤详细点.先谢谢各位兄弟了

Answer 1

On Error Resume Next
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "XXXXX"
for i =1 to 3000
WScript.sleep 100
WshShell.SendKeys"^V"
'WshShell.SendKeys i
WshShell.SendKeys"%S"
Next

" XXXXX" 3000 自己改吧 3000是次数 "XXXXX" 是昵称或备注
先复制要发送的话 然后 运行

楼上的 SendKeys 可以发中文吗！！

Answer 2

QQ消息不停的发送
Dim WshShell
Set WshShell= Wscrīpt.createObject("Wscrīpt.Shell")
WshShell.AppActivate "bomb"
for i=1 to 60
Wscrīpt.Sleep 800
WshShell.SendKeys "你是谁呀"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next