Results 1 to 5 of 5

Thread: VBScript Pranks to play on a Windows PC

  1. #1
    riteshtechie's Avatar
    riteshtechie is offline Software Developer
    Join Date
    Mar 2009
    Posts
    880

    Lightbulb VBScript Pranks to play on a Windows PC

    LED Disco on Keyboard
    This prank will turn your Keyboard LED’s on and off so fast that it seems like you have an DISCO lights on Keyboard

    Set wshShell =wscript.CreateObject(”WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys”{CAPSLOCK}”
    wshshell.sendkeys”{NUMLOCK}”
    wshshell.sendkeys”{SCROLLLOCK}”
    loop
    Make your computer talk
    Just run this Script and it will make your computer say what ever you want, jus edit the text “your message here” to anything you want. May be you would like to make computer welcome you every time you Login by saying Welcome Your_name. So just replace your message and put this script in your startup folder and now every time you login your PC will welcome you by saying ” Welcome Your_Name”

    strText = “your message here”
    Set objVoice = CreateObject(”SAPI.SpVoice”)
    objVoice.Speak strText
    Make the computer go “ding” then popup a message
    This prank will first produce a ding sound and than popup a message. Make your friend confused by writing some CRAZY text.

    Set objVoice = CreateObject(”SAPI.SpVoice”)
    Set objFile = CreateObject(”SAPI.SpFileStream.1″)
    objFile.Open “c:\Windows\Media\Ding.wav”
    objVoice.Speakstream objFile
    Wscript.Echo “your message here”
    Make the Microsoft Office assistant popup and say something
    This prank will only work if you have Office installed. In spite of making your PC says it’s more attractive way.



    On Error Resume Next

    strAgentName2 = “MERLIN”
    strAgentPath2 = “C:\Windows\Msagent\Chars\” & strAgentName2 & “.acs”
    Set objAgent2 = CreateObject(”Agent.Control.2″)

    objAgent2.Connected = TRUE
    objAgent2.Characters.Load strAgentName2, strAgentPath2
    Set objPeter = objAgent2.Characters.Character(strAgentName2)

    objPeter.MoveTo 700,300
    objPeter.Show

    objPeter.Play “GetAttention”
    objPeter.Play “GetAttentionReturn”

    objPeter.Speak(”your message here”)
    Wscript.Sleep 1000
    Set objAction= objPeter.Hide
    Do While objPeter.Visible = True
    Wscript.Sleep 250
    Loop

    Error message
    This prank will show a error message on screen

    lol = msgbox(”your message here”)
    A Scribbling Notepad
    This is a scribbling Notepad, once you start it you feel like someone (ROBOT) is typing a message for you.

    Set wshshell = wscript.CreateObject(”WScript.Shell”)
    Wshshell.run “Notepad”
    wscript.sleep 400
    wshshell.sendkeys “H”
    wscript.sleep 100
    wshshell.sendkeys “i”
    wscript.sleep 200
    wshshell.sendkeys ” ”
    wscript.sleep 200
    wshshell.sendkeys “I”
    wscript.sleep 200
    wshshell.sendkeys ” ”
    wscript.sleep 100
    wshshell.sendkeys “a”
    wscript.sleep 100
    wshshell.sendkeys “m”
    wscript.sleep 200
    wshshell.sendkeys ” ”
    wscript.sleep 100
    wshshell.sendkeys “R”
    wscript.sleep 100
    wshshell.sendkeys “i”
    wscript.sleep 100
    wshshell.sendkeys “t”
    wscript.sleep 100
    wshshell.sendkeys “e”
    wscript.sleep 100
    wshshell.sendkeys “s”
    wscript.sleep 100
    wshshell.sendkeys “h”
    wscript.sleep 200
    wshshell.sendkeys ” ”
    wscript.sleep 100
    wshshell.sendkeys “K”
    wscript.sleep 100
    wshshell.sendkeys “a”
    wscript.sleep 100
    wshshell.sendkeys “w”
    wscript.sleep 100
    wshshell.sendkeys “a”
    wscript.sleep 100
    wshshell.sendkeys “d”
    wscript.sleep 100
    wshshell.sendkeys “k”
    wscript.sleep 100
    wshshell.sendkeys “a”
    wscript.sleep 100
    wshshell.sendkeys “r”
    Agent Prank
    Again a Microsoft Office Prank.

    On Error Resume Next
    StrAgentName2 = “MERLIN”
    StrAgentPath2 = “C:\Windows\Msagent\Chars\” & strAgentName2 & “.Acs”
    Set objAgent2 = CreateObject(”Agent.Control.2″)
    ObjAgent2.Connected = TRUE
    ObjAgent2.Characters.Load strAgentName2, strAgentPath2
    Set objPeter = objAgent2.Characters.Character(strAgentName2)
    ObjPeter.MoveTo 700,300
    ObjPeter.Show
    ObjPeter.Play “GetAttention”
    ObjPeter.Play “GetAttentionReturn”
    ObjPeter.Speak(”Hi I’m merlin here to take control of your computer”)
    Wscript.Sleep 1000
    Set objAction= objPeter.Hide
    Do While objPeter.Visible = True
    Wscript.Sleep 250
    Loop
    Wscript.Sleep 100
    On Error Resume Next
    StrAgentName2 = “MERLIN”
    StrAgentPath2 = “C:\Windows\Msagent\Chars\” & strAgentName2 & “.Acs”
    Set objAgent2 = CreateObject(”Agent.Control.2″)
    ObjAgent2.Connected = TRUE
    ObjAgent2.Characters.Load strAgentName2, strAgentPath2
    Set objPeter = objAgent2.Characters.Character(strAgentName2)
    ObjPeter.MoveTo 700,300
    ObjPeter.Show
    ObjPeter.Play “GetAttention”
    ObjPeter.Play “GetAttentionReturn”
    ObjPeter.Speak(”downloading virus . . . 20% . . . 40% . . . 60% . . . 80% . . . 100% virus downloaded”)
    Wscript.Sleep 1000
    Set objAction= objPeter.Hide
    Do While objPeter.Visible = True
    Wscript.Sleep 250
    Loop
    Wscript.Sleep 100
    On Error Resume Next
    StrAgentName2 = “MERLIN”
    StrAgentPath2 = “C:\Windows\Msagent\Chars\” & strAgentName2 & “.Acs”
    Set objAgent2 = CreateObject(”Agent.Control.2″)
    ObjAgent2.Connected = TRUE
    ObjAgent2.Characters.Load strAgentName2, strAgentPath2
    Set objPeter = objAgent2.Characters.Character(strAgentName2)
    ObjPeter.MoveTo 700,300
    ObjPeter.Show
    ObjPeter.Play “GetAttention”
    ObjPeter.Play “GetAttentionReturn”
    ObjPeter.Speak(”watch as I open your cd drive”)
    Wscript.Sleep 1000
    Set objAction= objPeter.Hide
    Do While objPeter.Visible = True
    Wscript.Sleep 250
    Loop
    Wscript.Sleep 100

    Set oWMP = CreateObject("WMPlayer.OCX.7" )
    Set colCDROMs = oWMP.CdromCollection

    If colCDROMs.Count >= 1 then
    For I = 0 to colCDROMs.Count - 1
    ColCDROMs.Item(I).Eject
    Next ' cdrom
    End If

    Wscript.Sleep 100
    On Error Resume Next
    StrAgentName2 = "MERLIN"
    StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
    Set objAgent2 = CreateObject("Agent.Control.2")
    ObjAgent2.Connected = TRUE
    ObjAgent2.Characters.Load strAgentName2, strAgentPath2
    Set objPeter = objAgent2.Characters.Character(strAgentName2)
    ObjPeter.MoveTo 700,300
    ObjPeter.Show
    ObjPeter.Play "GetAttention"
    ObjPeter.Play "GetAttentionReturn"
    ObjPeter.Speak("lol I now open internet explorer")
    Wscript.Sleep 1000
    Set objAction= objPeter.Hide
    Do While objPeter.Visible = True
    Wscript.Sleep 250
    Loop
    Wscript.Sleep 100
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "iexplore http://www.Google.Com", 9
    WScript.Sleep 10000 ' Give ie some time to load
    Eject CD/DVD Tray
    This will eject your CD/DVD Tray out automatically.

    do
    Set oWMP=CreateObject(”WMPlayer.OCX.7″)
    Set colCDROMs=oWMP.cdromCollection
    if colCDROMs.Count >=1 then
    For i=0 to colCDROMs.Count-1
    colCDROMs.Item(i).Eject
    Next ‘cdrom
    End if
    loop
    Open Notepad infinitely
    WScript.Sleep 10
    WScript.Sleep 10
    Set WshShell = WScript.CreateObject(”WScript.Shell”)
    do
    WshShell.Run “notepad”
    WScript.Sleep 100
    WshShell.AppActivate “notepad”
    loop
    Source - beingPC

  2. #2
    Max_Payne's Avatar
    Max_Payne is offline Senior Member
    Join Date
    Nov 2009
    Location
    Italy
    Posts
    250

    Default

    Second script doesn't work to me. What a pity!

  3. #3
    riteshtechie's Avatar
    riteshtechie is offline Software Developer
    Join Date
    Mar 2009
    Posts
    880

    Default

    Quote Originally Posted by Max_Payne View Post
    Second script doesn't work to me. What a pity!
    It might be giving you invalid character err.
    Yeah it has problem with double cotes. Change the double quotes manually to play it or got to my link and copy paste from there

    VBScripts Pranks | beingPC

  4. #4
    ChrisRich's Avatar
    ChrisRich is offline Beginner
    Join Date
    Mar 2010
    Posts
    14

    Default

    These are really cool. You MUST convert the ” to " but that's all I had to fix.

  5. #5
    HappyAndyK's Avatar
    HappyAndyK is offline Site Administrator
    Join Date
    Jun 2008
    Posts
    7,530

    Default

    Look cool; but must hide this post from my kids, however

Posting Permissions

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22