0
After seeing the VBS thread, I've got a few cheeky VBS scripts we've put together at work when bored that we push onto peoples machines.
All you need to do is open up notepad, paste in the code, save file as (filename).vbs and run it. If you want to end the program, the process is called Wscript.
Caps lock on and off in continuous Loop
Open and Close CD Draw(s) in LoopCode:Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" loop
Constantly open SolitaireCode:Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000 loop
(Watch that one, it's hard to end)Code:WScript.Sleep 10 WScript.Sleep 10 Set WshShell = WScript.CreateObject("WScript.Shell") do WshShell.Run "sol.exe" WScript.Sleep 100 WshShell.AppActivate "sol.exe" loop
This one opens notepad up and types out a message as if someone's taken control of the machine
Just made this now to do on a lad at work and it scared him haha
This is what the bottom code does when run. Watch in HD and Full screen:Code:WScript.Sleep 2050 WScript.Sleep 100 Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "notepad" WScript.Sleep 100 WshShell.AppActivate "notepad" WScript.Sleep 500 WshShell.SendKeys "Oi!" WScript.Sleep 2000 WshShell.SendKeys "{enter}" WScript.Sleep 150 WshShell.SendKeys "I " WScript.Sleep 250 WshShell.SendKeys "sai" WScript.Sleep 250 WshShell.SendKeys "d..." WScript.Sleep 1000 WshShell.SendKeys "Oi!" WScript.Sleep 150 WshShell.SendKeys "{enter}" WScript.Sleep 2000 WshShell.SendKeys "I " WScript.Sleep 250 WshShell.SendKeys "am " WScript.Sleep 250 WshShell.SendKeys "wat" WScript.Sleep 250 WshShell.SendKeys "ich" WScript.Sleep 250 WshShell.SendKeys "gn " WScript.Sleep 700 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 250 WshShell.SendKeys "chi" WScript.Sleep 250 WshShell.SendKeys "ng " WScript.Sleep 250 WshShell.SendKeys "you!" WScript.Sleep 2500 WshShell.SendKeys " Pr" WScript.Sleep 250 WshShell.SendKeys "oba" WScript.Sleep 250 WshShell.SendKeys "bly" WScript.Sleep 250 WshShell.SendKeys " be" WScript.Sleep 250 WshShell.SendKeys "st " WScript.Sleep 250 WshShell.SendKeys "to " WScript.Sleep 250 WshShell.SendKeys "sto" WScript.Sleep 250 WshShell.SendKeys "p w" WScript.Sleep 250 WshShell.SendKeys "atc" WScript.Sleep 250 WshShell.SendKeys "hin" WScript.Sleep 250 WshShell.SendKeys "g p" WScript.Sleep 250 WshShell.SendKeys "orn" WScript.Sleep 250 WshShell.SendKeys " at" WScript.Sleep 250 WshShell.SendKeys " wo" WScript.Sleep 250 WshShell.SendKeys "rk!" WScript.Sleep 250 WshShell.SendKeys "!!!" WScript.Sleep 1800 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 60 WshShell.SendKeys "{backspace}" WScript.Sleep 1000 WshShell.SendKeys ":" WScript.Sleep 1000 WshShell.SendKeys "P"
[ame="http://www.youtube.com/watch?v=DcZotZs5dQI"]YouTube - yep[/ame]
Last edited by Gobble; 09-18-2009 at 09:20 AM.
Register or log in to view signatures.
little_legz (09-18-2009), LordOfSpoon™ (09-18-2009)

lol nice i love it bro
Register or log in to view signatures.

nice gobble but how do i make it type by its self...do i go to start then run then type in .vbs thrn click enter just want to try it out thanksthanked and nom
Register or log in to view signatures.

These are alot like my .bat file thread but instead they are .vbs
Register or log in to view signatures.

ight i get an error whenh i try it on my computer...i copy any pastew intoo notepad thgen i save it as test.vbs then i save to desktop then i double click on it and get an error ill try get a screenie to show you btw i was trying the typing one about porn at work lol
Register or log in to view signatures.

thats most likely something wrong with the coding
Register or log in to view signatures.
Yeah get a screen shot. You should copy all the code, paste it into notepad and save it as test.vbs like you say, then double click it and it should run. I've tested it on XP and Vista and both have been ok. Make sure you copy all the code as VB doesn't like anything missing, you'll get line errors.
---------- Post added at 05:35 PM ---------- Previous post was at 05:33 PM ----------
You should really start looking into VB scripts. It's a lot more advanced then what you can do with bat files and they're being phased out now.
Register or log in to view signatures.

really hmm let me guess google and read tuts lol
Register or log in to view signatures.