Thread: Annonying VBS Scripts!!!!!!!!!

Results 1 to 2 of 2
  1. #1 Annonying VBS Scripts!!!!!!!!! 
    Senior Member I Modded My PSP sami8007's Avatar
    Join Date
    Aug 2008
    Posts
    203
    This thread is for people to dicuss and post vbs scripts that are annoying painfull and hilarious. Here is my little friend Merlin.. (copy/paste in a note pad and save as merlin(or anyhting else).vbs .dont forget the .vbs

    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

    'Close the browser
    WshShell.SendKeys "%F"
    WshShell.SendKeys "C"
    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("now I will restart your computer")
    Wscript.Sleep 1000
    Set objAction= objPeter.Hide
    Do While objPeter.Visible = True
    Wscript.Sleep 250
    Loop
    Do
    Wscript.Sleep 100
    WshShell.SendKeys "%{F4}"
    Wscript.Sleep 100
    Wshshell.Sendkeys "are"
    Loop

    Don't run from a sniper, you'll only die tired.

    Quote Originally Posted by .ChAoS-FaCtiOn. View Post
    I will emerge. I will be known as "Jesus v2.0"
    Quote Originally Posted by qiveaway View Post
    what is piracy??
     

  2. #2  
    Junior Member
    Join Date
    May 2009
    Posts
    3
    nice one! did you write that?
     

Similar Threads

  1. Blogger.com scripts
    By Switchblades in forum Off-Topic Discussion
    Replies: 0
    Last Post: 09-24-2008, 11:49 PM
  2. Video conversion scripts (PSP and iPod)
    By kmc77 in forum Linux
    Replies: 0
    Last Post: 08-01-2007, 06:02 PM
Posting Permissions
  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •