Cool VBScript

[Akralaa]

cant you just teach us how you did this?

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

[nicefuckinfish]

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

[nicefuckinfish]

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

[nicefuckinfish]

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

[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

There Is More VVV