qq超级整人(vbs整人代码大全)
一、给个QQ自动登陆的vbs脚本大神们帮帮忙
QQ自动登陆.VBS脚本 Dim WshShell, QQPath, QQselect QQPath="c:\Progra~1\Tencent\QQ\CoralQQ.exe"'QQ所在路径 Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run QQPath WScript.Sleep 2000 WshShell.AppActivate"QQ用户登录" WshShell.SendKeys"+{TAB}" WshShell.SendKeys"123456789"'QQ号码 WScript.Sleep 200 WshShell.SendKeys"{TAB}" WshShell.SendKeys"123456789"'QQ密码 WScript.Sleep 200 WshShell.SendKeys"{ENTER}" WshShell.SendKeys"{ENTER}"复制以上代码并保存为“*.VBS”，并运行便可以了。另外因为在命令行下，只支持8位字符长度的文件名，所以像“Program Files”的这种文件名就要改写成“Progra~1”。如果想同时登陆多个QQ,只需再增加下面那样的代码就可以了。 WScript.Sleep 2000 QQPath="D:\Progra~1\Tencent\QQ\CoralQQ.exe"'QQ所在路径 Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run QQPath WScript.Sleep 2000 WshShell.AppActivate"QQ用户登录" WshShell.SendKeys"+{TAB}" WshShell.SendKeys"123456789"'QQ号码 WScript.Sleep 200 WshShell.SendKeys"{TAB}" WshShell.SendKeys"123456789"'QQ密码 WScript.Sleep 200 WshShell.SendKeys"{ENTER}" WshShell.SendKeys"{ENTER}"
二、有什么在QQ聊天中用的vbs整人代码
msgbox("小姐姐")
msgbox("小姐姐")
msgbox("呼叫小姐姐")
a=msgbox("小姐姐有时间吗？",vbYesNo,"玩个游戏哦,反正快下班了")
if
(a=vbYes)
then
msgbox("嘿嘿嘿，那我们可以继续玩下去了！！！")
msgbox("那。。。。。。我就问你一个问题啊")
msgbox("你觉得自己漂不漂亮？")
msgbox("温馨提示：")
msgbox("要有自信哦")
b=msgbox("漂不漂亮？",vbYesNo,"漂亮")
if
(b=vbYes) then
msgbox("我也这么觉得")
wscript.echo printer("
","*","113111111112212111313111513",7)
function printer(a1,a2,b,c)
for i=
1 to len(b)
b1= Mid(b,i,1)
for j= 1 to b1
s=s&a1
n=n+1
if n=c then
s=s&chr(10)
n=0
end
if
next
a3=a1
a1=a2
a2=a3
next
printer=s
end function
msgbox("嘿嘿嘿")
msgbox("嗯，虽然我也赞同这一点")
msgbox("但")
msgbox("我还是想皮一下")
do
msgbox("哈哈哈")
msgbox("哈哈哈")
msgbox("玩不过我吧")
msgbox("哈哈哈")
msgbox("哈哈哈")
msgbox("打不到我吧")
msgbox("没有办法")
msgbox("就是这么强大")
msgbox("啦啦啦啦")
msgbox("啦啦啦啦")
msgbox("啦啦啦啦")
loop
else
msgbox("啥？")
msgbox("我没听清")
msgbox("这么不自信？")
msgbox("和我的观点不一样")
msgbox("后果很严重")
msgbox("所以，准备惩罚你一下")
msgbox("带你数绵羊吧")
Set
s= CreateObject("sapi.spvoice")
i=0
Do while i<100
s.speak
i
i=i+1
if i=66 then exit do
loop
end if
else
msgbox("那。。。。。。我就在皮一下")
msgbox("真的")
msgbox("真的")
msgbox("真的")
msgbox("我就皮一下下")
msgbox("皮这一下我很开心")
msgbox("警告")
msgbox("警告")
msgbox("警告")
msgbox("你的电脑将关机")
msgbox("给你一次机会")
msgbox("使用
Ctrl+Alt+delete关闭此进程")
set
ws=createobject("wscript.shell")
ws.run"cmd.exe/c shutdown-r-t 10"
end
if
（以上你可以修改文字，把txt格式换成 vbs对了电脑会自动重启）
三、vbs QQ整人代码 怎么用
打开一个记事本，把代码输入进去，然后把格式改成VBS。
然后一保存，OK啦！（样子是中间有一个蓝色卷轴。）
接着，只要把这个做好的VBS文件发给他，就可以了，不用
再动别的，只要静静等待他被整！
例外话：我劝你还是别发这些，有点缺德的那种感
觉，给人不好的感受。
记住上面这句话！