Membuat Bat Scaner Dengan VB 2010

 kali ini kita akan membuat Bat Scaner, apakan kalian pernah melihat format .Bat ???
 contoh : andre keren.bat
bagi yang belum tahu .bat itu rata rata orang membuat virus,dengan program ini kita akan tahu bahaya apa saja yang di buat oleh si pembuat virus biasanya spam message box sama shutdown
nanti saya akan ajarkan cara membuat virus .bat ,bagi sobat Lab vb sudah tidak sabar bisa langsung saja  ^^



1. Jalan kan VB 2010
2. Klik Window  Form Aplication
3. Name nya di Ganti menjadi  Injections
4. Tambahkan 2 Button ,1 Textbox dan ubah Form 1 Sesuka hati
5. Beri nama Button1 menjadi Scan dan Button2 menjadi Open
6. Double klik Button 1 / Scan Dan masukan Kode ini

        If TextBox1.Text.Contains("Shutdown ") Then
            MsgBox("Jangan Dijalankan!!!,Ancaman 1 ,Shutdown", MsgBoxStyle.Critical)
        Else
            MsgBox("Tidak ada ancaman Shutdown !!!(AMAN)")

            If TextBox1.Text.Contains("msg *") Then
                MsgBox("Jangan Dijalankan!!! ,Ancaman 2, MsgBoxSpamers", MsgBoxStyle.Critical)
            Else
                MsgBox("Tidak ada ancaman Spam!!!(AMAN)")


                If TextBox1.Text.Contains("wshshell.sendkeys") Then
                    MsgBox("Jangan Dijalankan!!! ,Ancaman 3, Mencet Sendiri", MsgBoxStyle.Critical)
                Else
                    MsgBox("Tidak ada ancaman Mencet Sendiri!!!(AMAN)")
                End If
            End If
        End If
7.Double klik Button 2 / Open  Dan masukan Kode ini

 Dim alltext As String = "", lineoftext As String = ""
        OpenFileDialog1.ShowDialog()
        If OpenFileDialog1.FileName <> "" Then
        End If
            Try
                FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)

                Do Until EOF(1)
                    lineoftext = LineInput(1)
                    alltext = alltext & lineoftext & vbCrLf
                Loop
                TextBox1.Text = alltext
            Catch
            Finally
                FileClose()
            End Try
    End Sub
8.Tekan F5 Jangan Di Close Dulu sesuai janji saya , saya akan mengajarkan nya untuk di uji coba di software ini
9. buka notepad
10.Ketikin
@echo off
msg * Andre Keren
shutdown -c "Andre Keren" -s
11. Ctrl +S Kemudian Beri nama Andre_keren.bat [Savenya di Desktop agar lebih mudah nyarinya]
12.Klik Open  terus ketikkin nama filenya Andre_keren.bat klik open
13. Klik Scan Nanti akan muncul Msg Box tentang ancaman virus itu sendiri tpi tenang aja kok itu
Virusnya Tidak mematikan cmn msg box sma shutdown aja kok

Kunjungi Terus http://lab-vb.blogspot.com/ ^^