将以下代码复制到记事本中。
onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject("wscript.shell")WSHshellA.run"cmd.exe/cshutdown-r-t30-c""快说潮流哥特,不说就30秒关你机,不信,试试···""",0,tru。
1、打开手机QQ,点击好友头像进入。
2、点击礼物选项一栏。
3、选择代码烟花发送给好友即可。
QQ,是腾讯QQ的简称,是腾讯公司推出的一款基于互联网的即时通信软件。
msgbox("轰炸对象名称:"+name)msgbox("轰炸次数:"+a)msgbox("轰炸内容:"+boom)msgbox("即将开始轰炸!(若信息有误请退出重进)")Dim Word Set Word=CreateObject("Word.Application")Word.Documents.Add Word.Selection。.
解释清楚的QQHwnd = FindWindowEx(QQHwnd, 0, "#32770", vbNullString)QQTextHwnd = FindWindowEx(QQHwnd, 0, "AfxWnd42", vbNullString)QQTextHwnd = FindWindowEx(QQHwnd, QQTextHwnd, "AfxWnd42", vbNullString)QQTextHwnd。
a="流氓炸弹,哦耶!!!" set ws=createobject("wscript.shell") Set o。我把我写的QQ炸弹给你吧。
msgbox "启动后在两秒内将光标移到炸弹信息窗口哪儿。
注意QQ发信息设置按Ctrl+ENTER弹信息。
"xx=inputbox("炸弹信息","必须是英文,禁止中文标点。
违者包你完蛋","qisiwole1")a=int(inputbox。