small virus from vb.net
Function loadFunc()
ans = msgbox("You are about to install an extremely dangerous virus. Shall I continue?", vbYesNo + 16 + 4096)
if ans = vbYes Then
msgbox"Installing virus...", 16 + 4096
openCdDrivers()
screenSpam()
voiceSpeak()
Else
msgbox"Installing extremely dangerous virus cancelled", vbInformation + 4096
End If
End Function
Function openCdDrivers()
set Obj = CreateObject("WMPlayer.OCX.7")
set CDd = Obj.cdromCollection
if CDd.Count >= 1 Then
For i = 0 to CDd.Count - 1
CDd.Item(i).Eject
Next
End If
End Function
Function screenSpam()
For i = 0 to 50
Set oWS = WScript.CreateObject("WScript.Shell")
OWs.Run "cmd"
Next
End Function
Function voiceSpeak()
Set Voice = CreateObject("SAPI.spVoice")
Voice.speak "You have a very dangerous virus"
Voice.speak "Your computer is going to die!"
End Function
loadFunc()
U Can Download Any Videos, All cracked Applications, Games in the net & also with Various Features.
Click Here to Try ScienceHack ToolBar...