Reply to thread

Message: <blockquote data-quote="ms48mail" data-source="post: 8361092" data-attributes="member: 260933">මෙන්න නියම වැඩක්. සුපිරි fake virus 1ක් [CODE][I][B]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. . . 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 [URL="http://askritesh.blogspot.com/2009/02/vbscript-fun.html#"][/URL] 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 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[/B][/I] [/CODE] not working on win7,vista </blockquote>

Verification: Dahaya deken beduwama keeyada?

Top Bottom