1. Forums /
  2. Tech Boards /
  3. Computer Programming /
  4. Few little cheeky VBS files
Post: Few little cheeky VBS files
09-18-2009, 09:10 AM #1
Gobz's Avatar
Gobz
(adsbygoogle = window.adsbygoogle || []).push({}); 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

    Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop


Open and Close CD Draw(s) in Loop

    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


Constantly open Solitaire

    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


(Watch that one, it's hard to end)

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

    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"


This is what the bottom code does when run. Watch in HD and Full screen:
[ame="https://www.youtube.com/watch?v=DcZotZs5dQI"]YouTube - yep[/ame]
(adsbygoogle = window.adsbygoogle || []).push({});

The following 2 users say thank you to Gobz for this useful post:

little_legz, LordOfSpoon™
09-18-2009, 04:24 PM #2
LordOfSpoon™'s Avatar
LordOfSpoon™
Banned
lol nice i love it bro
09-18-2009, 11:44 PM #3
little_legz's Avatar
little_legz
SleepinIsCheatin
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 thanks Happy thanked and nom
09-18-2009, 11:51 PM #4
LordOfSpoon™'s Avatar
LordOfSpoon™
Banned
These are alot like my .bat file thread but instead they are .vbs
09-19-2009, 02:11 AM #5
little_legz's Avatar
little_legz
SleepinIsCheatin
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
09-19-2009, 03:04 PM #6
LordOfSpoon™'s Avatar
LordOfSpoon™
Banned
thats most likely something wrong with the coding
09-19-2009, 04:35 PM #7
Gobz's Avatar
Gobz
Originally posted by LeGz View Post
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


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 ----------

Originally posted by LordOfSpoon View Post
These are alot like my .bat file thread but instead they are .vbs


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.
09-19-2009, 05:57 PM #8
LordOfSpoon™'s Avatar
LordOfSpoon™
Banned
really hmm let me guess google and read tuts lol

Copyright © 2026, NextGenUpdate.
All Rights Reserved.

Gray NextGenUpdate Logo