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

Avast Free Antivirus 18.8.2356 By Avast Software (Non-Commercial Freeware)

Avast Free Antivirus is an efficient and comprehensive antivirus program. It is one of the most popular antivirus programs available, thanks to the reliable and trustworthy brand that Avast have created. The key features that continue to make Avast Free Antivirus so popular are the easy UI, optimized scanning options and continuously updated database of virus definitions. Simple, improved UI The latest version includes a much simpler and quicker to use UI than previous versions. Key features can be easily reached in the sidebar and the homepage is now customizable so you can access the tools you use most often directly. The overall appearance is clean and uncluttered, with buttons intuitively labelled and positioned. Comprehensive Protection Avast are constantly updating their database of virus definitions, meaning your computer will be protected against the latest spyware, viruses and potentially hazardous websites. Avast’s large and active community quickly alerts t...
Post a Comment
Read more

How to Update Windows OS Without Internet Connection

Microsoft frequently releases Security and other essential updates for windows.These updates fix newly discovered bugs and flaws and increases efficeny and protection of Windows.If you don’t have internet connection or have slow internet then you can’t get the updates directly from microsft instead you have to use a third party utlity called Autopatcher . AutoPacher allows you to download for your windows Operating system and saves it for offline installation.This gives you the liberty to update any computer without internet connection. How to Update Windows OS Without Internet Connection: Carry your Pen Drive and Go to your nearby Cyber Cafe then download Autopatcher software from here . After downloading this software just install and run it. It will prompt you to select the OS for which you want to download the updates and click on Next button. Now Select your OS whether it is 32-bit or 64-bit supported. If it is 32-bit then select X86 otherwise select X64 and click on ...
1 comment
Read more

WinZip 16.0.9691

WinZip is the most trusted way to work with compressed files. No other compression utility is as easy-to-use or offers the comprehensive and productivity-enhancing approach that has made WinZip the gold standard for file-compression tools. You can quickly and securely zip and unzip files to conserve storage space, speed up e-mail transmission, and reduce download times. State-of-the-art file compression, strong AES encryption, compatibility with more compression formats, and new intuitive photo compression, make WinZip the complete compression and archiving solution. Building on the favorite features of a worldwide base of several million users, WinZip adds new features for image compression and management, support for new compression methods, improved compression performance, support for additional archive formats, and more. Users can work faster, smarter, and safer. This is a 45-day trial version. Download Latest Version 51.80MB
2 comments
Read more