Close



Keep me logged in.

Forgot your password? | Register Now

Results 1 to 8 of 8
  1. Original Post
    Your mum!
    NextGenUpdate Elite Member
    Gobble's Avatar

    Default Few little cheeky VBS files




    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

    Code:
    Set wshShell =wscript.CreateObject("WScript.Shell")
    do
    wscript.sleep 100
    wshshell.sendkeys "{CAPSLOCK}"
    loop
    Open and Close CD Draw(s) in Loop

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

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

    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"
    This is what the bottom code does when run. Watch in HD and Full screen:
    [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.

  2. The Following 2 Users Say Thank You to Gobble For This Useful Post:

    little_legz (09-18-2009), LordOfSpoon™ (09-18-2009)

  3. #2
    God vs. Fact Creator
    LordOfSpoon™'s Avatar

    Default


    0 Not allowed! Not allowed!
    lol nice i love it bro
    Register or log in to view signatures.

  4. #3
    SleepinIsCheatin
    little_legz's Avatar

    Default


    0 Not allowed! Not allowed!
    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 thanked and nom
    Register or log in to view signatures.

  5. #4
    God vs. Fact Creator
    LordOfSpoon™'s Avatar

    Default


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

  6. #5
    SleepinIsCheatin
    little_legz's Avatar

    Default


    0 Not allowed! Not allowed!
    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.

  7. #6
    God vs. Fact Creator
    LordOfSpoon™'s Avatar

    Default


    0 Not allowed! Not allowed!
    thats most likely something wrong with the coding
    Register or log in to view signatures.

  8. #7
    Your mum!
    NextGenUpdate Elite Member
    Gobble's Avatar

    Default


    0 Not allowed! Not allowed!
    Quote 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 ----------

    Quote Originally Posted by ~AP~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.
    Register or log in to view signatures.

  9. #8
    God vs. Fact Creator
    LordOfSpoon™'s Avatar

    Default


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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •