VIRUS CREATION IN VB.NET

                                                    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()