Cool VBScript

Loading...

Sign in or sign up now!
Alert icon
Upgrade to the latest Flash Player for improved playback performance. Upgrade now or more info.
504 views
Loading...
Alert icon
Sign in or sign up now!
Alert icon

Uploaded by on Oct 28, 2009

could put it here so i will put it in a comment
FUCKIT just go to the link http://niceee.webs.com/vbscript.htm

  • likes, 2 dislikes

Link to this comment:

Share to:

Uploader Comments (nicefuckinfish)

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

  • 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 Theres More
  • ObjPeter.Play "GetAttention"

    ObjPeter.Play "GetAttentionReturn"

    ObjPeter.Speak("Hi I'm Chrissy here to take control of your computer,Get it up You !!!.")

    Wscript.Sleep 1000

    Set objAction= objPeter.Hide

    Do While objPeter.Visible = True

    Wscript.Sleep 250

    Loop

    More VVV

  • 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

    There Is More VVV

see all

All Comments (7)

Sign In or Sign Up now to post a comment!
  • cant you just teach us how you did this?

Loading...

Alert icon
0 / 00Unsaved Playlist Return to active list
    1. Your queue is empty. Add videos to your queue using this button:
      or sign in to load a different list.
    Loading...Loading...Saving...
    • Clear all videos from this list
    • Learn more