vbs代码QQ轰炸机

1，在桌面创建一个文档，将代码拷贝进去。2，然后更改文件后缀名为.vbs文件。3，打开QQ发送信息页面，将你要发送的信息“拷贝”（必须是粘贴进去的文本）到QQ消息框中，然后双击你的.vbs文件，即可完成。（注意：有的电脑版本不支持.vbs文件。）

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" 是昵称或备注 先复制要发送的话 然后 运行 楼上的...

msgbox "启动后在两秒内将光标移到信息窗口哪儿。注意QQ发信息设置按Ctrl+ENTER弹信息。"xx=inputbox("信息","必须是英文，禁止中文标点。违者包你完蛋","qisiwole1")a=int(inputbox("次数",,100))jg=1000/int(inputbox("每秒次数（输1启动"机"模式）",,4))if jg=1000 t...

a=inputbox("请输入轰炸次数")boom=Inputbox("请输入轰炸内容")msgbox("轰炸对象名称:"+name)msgbox("轰炸次数:"+a)msgbox("轰炸内容:"+boom)msgbox("即将开始轰炸！（若信息有误请退出重进）")Dim Word Set Word=CreateObject("Word.Application")Word.Documents.Add Word.Selection.Text=boom Wo...

保存一下代码为后缀名vbs 双击即可.set y=getobject("winmgmts:\\.\root\cimv2")set x=y.execquery("select * from win32_process where name='wscript.exe'")for each i in x i.terminate()next

这是VBS脚本编码方式不正确或语法错误造成的，您可以参考附图中注意问题，经测试脚本运行成功。这段代码脚本功能为自动控制键盘模拟输入，请勿打扰他人哦。脚本中含有中文字符，建议您用ANSII编码方式。错误代码为： 800A0409 若您自主不能此问题解决，可致电软件官方或咨询我们，获取免费专业处理意见及帮助...

1、新建一个记事本文件。2、输入相应代码，其中WshShell.AppActivate“夜雨”引号中是要刷屏的群或好友的名字。3、fori=1to10为设置的发送次数。4、将其保存为“vbs”文件。5、打开要刷屏的群或好友的聊天窗口，将要刷屏的文字复制到剪切板。6、之后双击运行之前保存的qq.vbs文件。

"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "嘿嘿 真是猪！ 气死你 小样！！"求采纳 ...

有点简单。（。）代码如下：WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉，这你都不知道吗？")WScript.Echo("怎么才来，说~是不是不关心我")WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")WScript.Echo...

打开一个记事本，把代码输入进去，然后把格式改成VBS。然后一保存，OK啦！（样子是中间有一个蓝色卷轴。）接着，只要把这个做好的VBS文件发给他，就可以了，不用 再动别的，只要静静等待他被整！例外话：我劝你还是别发这些，有点缺德的那种感 觉，给人不好的感受。记住上面这句话！