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

2024-11-14 11:59:55

推荐回答（2个）

回答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 可以发中文吗！！

回答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