qqzhangdan.vbs

QQ炸弹 简单的程序 老师编的 运行方便只是简单的发信息而已

set WshShell=WScript.CreateObject("WScript.Shell")
intif=MsgBox("是否开始使用--此处防止误运行此程序",vbOKCancel+vbInformation, "提示")
  if intif=vbCancel then
   WScript.Quit
  else
   tit = InputBox("请输入想攻击的QQ窗口标题(可只取前部分)", 1)
   times = InputBox("你想攻击的次数", 1)
   slep =InputBox("休眠时间,如果为空,则为 500 ms",1)
   if slep="" then slep=500
   Wscript.echo "剪贴板中装好炸弹且输入法调到En方式了,开始炸....."
   WshShell.AppActivate tit  '引号内改为QQ的标题 $$$改这里$$$
'   Wscript.echo times
   for i=0 to times-1
'   Wscript.echo i&times
   WshShell.SendKeys "^v"   '按ctrl+v,即粘贴
   WScript.Sleep slep/2
   WshShell.SendKeys "^{enter}"  '按ctrl+回车,即发送
   WScript.Sleep slep/2
   next
  End if