Wednesday, 2 November 2011

Virus creation in VB.net

http://pinoytutorial.com/lifebytes/wp-content/uploads/2010/07/html-framer-virus.jpg
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...

0 comments:

Post a Comment