Skip to main content

Shocking VBS Virus !


It Is an Funny VBS virus ! Just Copy It and Paste In notepad & save it as The Name Of Funn.vbs and Enjoy !


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 RASHID 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

Labels:

Comments

Post a Comment

Popular posts from this blog

Windows Live Mail 2011 (15.4.3555)

Access your e-mail, contacts, and calendar even when you're offline. And Windows Live Mail helps you manage multiple e-mail accounts—Hotmail, Gmail, Yahoo! Mail Plus, and more—in one program. Offline access  - Older messages and calendar events are accessible in Mail, even when you’re offline. Event reminders  - Your calendar in Windows Live Mail helps you keep track of all the important stuff you’ve got coming up. Sync with web calendar  - You can edit events in your calendar in Mail, even when you’re offline. Shared calendars  - Your time isn’t always your own—there are family and friends who might need to know your schedule. Download Latest Version 1.23MB If You Got This Site Useful, Kindly Comment About This Site and Tell To Your Friends ! Thanks For Visiting.
Post a Comment
Read more

How To Speed Up Your Windows XP

If like mine, your PC is getting slower and slower, there are a number of things you can do to speed it up. You will be surprised how much faster your computer gets after these steps, you won’t need to buy a new one. In addition to following the tips below, it’s a good idea to buy a trusted all-in-one PC optimizer. I would recommend  FixCleaner ,  a Microsoft Certified all-in-one tool which optimizes your computer and hugely improves speed through a number of tasks, including: cleaning the registry removing errors deleting junk files downloading critical updates improving browser speed Please refer to the FixCleaner website at  www.fixcleaner.com  to see the full list of features. By using a PC maintenance program such as FixCleaner, you can save a load of money from buying a new computer. Here is what you can do yourself to improve your Windows XP’s performance: Step 1 : Remove unused software You probably don’t use half the programs you have installed over time. Removing the on
Post a Comment
Read more

MediaMonkey 4.0.3.1472 RC3

MediaMonkey is a music manager and jukebox for serious music collectors and iPod users. It catalogs your CDs, OGG, WMA, MPC, FLAC, APE, WAV and MP3 audio files. It offers an intelligent tag editor which looks up missing Album Art and track information via Freedb and the web, and an automated file and directory renamer to organize your music library. Organize music and edit tags in your audio library with a powerful, intuitive interface Automatically lookup and tag Album Art and other metadata Manage 50,000+ files in your music collection without bogging down Play MP3s and other audio formats, and never again worry about varying volume Record CDs into OGG, MP3, FLAC and WMA files Convert MP3s, OGG, FLAC and WMA files into other formats with the Audio Converter Create playlists and music mixes quickly and easily to suit any occasion Synchronize with iPods / MP3 players effortlessly and convert tracks on-the-fly Download audio content using the new integrated Podcatcher. Use Med
1 comment
Read more