Buat Kawan2 yang mau Coba Buat Injektor PB Menggunakan Program Visual Basic neh Iso dicoba ya, ga Ada salahnya kan?
Tutorial Pembuatan Form Loading Injector berpassword & Simple Universal Injector (Otomatis Suspend)
Tutorial 1. Pembuatan Form Loading Injector berpassword
Berikut component2 yang harus dibuat:
- 1 label, dengan name label1 dan beri caption Terserah.
- 1 TextBox dengan name Txt1
- 1 timer, dengan name timer1, jangan lupa set interval pada properties timernya 150
- 2 Command Button
- Command Button1 dengan name CmdOk dan beri caption LOGIN
- Command Button2 dengan name CmdCancel dan beri caption EXIT
untuk design silakan dikreasikan semaunya Sebagai Contoh Iso dilihat di bawah ini :
Pengaturan Properties dan Design pada form
klik 1 kali pada form1 (ingat cuman 1 kali), kemudian liat dibagian kanan layar properties form1. Pada bagian propertiesnya, jadikan borderstyle = 0 None
Kemudian klik kanan pada form1 --> pilih view code.
Dan Masukan Kode ini :
Spoiler:
Dim i As Long
Dim merah, hijau, biru As Integer
Dim Counter As Integer
Dim sound As Boolean
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_ALPHA As Long = &H2
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "USER32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function ReleaseCapture Lib "USER32" () As Long
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Public LoginSucceeded As Boolean
Private Sub CmdCancel_Click()
LoginSucceeded = False
Me.Hide
End Sub
Private Sub CmdOk_Click()
If txt1.Text = "qblue" Then ' Rubah password "qblue" dengan password anda
MsgBox ("Seeep")
Load Form2
Form2.Show
LoginSucceeded = True
Me.Hide
Else
MsgBox ("Maaf Salah Bro")
txt1.SetFocus
End If
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then 'left click
ReleaseCapture
SendMessage Me.hwnd, &HA1, 2, 0
End If
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 1000000 Then i = 0
merah = Int(255 * Rnd)
hijau = Int(255 * Rnd)
biru = Int(255 * Rnd)
Label.ForeColor = RGB(merah, hijau, biru)
If i Mod 2 = 0 Then
Label.Visible = True
Else
Label.Visible = False
End If
End Sub
Nah Selesai deh Pembuatan Form Loading Injector berpassword
Silahkan Anda Test Running dengan menekan tombol F5 Untuk Mengujinya
Klo posting saya berguna cukup memberi +++ yg banyak untuk berterima kasih DAN Klo Tdk Berguna tdk perlu Junk Atau Comment Kasar Ya...
Tutorial Pembuatan Form Loading Injector berpassword & Simple Universal Injector (Otomatis Suspend)
Tutorial 1. Pembuatan Form Loading Injector berpassword
Berikut component2 yang harus dibuat:
- 1 label, dengan name label1 dan beri caption Terserah.
- 1 TextBox dengan name Txt1
- 1 timer, dengan name timer1, jangan lupa set interval pada properties timernya 150
- 2 Command Button
- Command Button1 dengan name CmdOk dan beri caption LOGIN
- Command Button2 dengan name CmdCancel dan beri caption EXIT
untuk design silakan dikreasikan semaunya Sebagai Contoh Iso dilihat di bawah ini :
Pengaturan Properties dan Design pada form
klik 1 kali pada form1 (ingat cuman 1 kali), kemudian liat dibagian kanan layar properties form1. Pada bagian propertiesnya, jadikan borderstyle = 0 None
Kemudian klik kanan pada form1 --> pilih view code.
Dan Masukan Kode ini :
Spoiler:
Dim i As Long
Dim merah, hijau, biru As Integer
Dim Counter As Integer
Dim sound As Boolean
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_ALPHA As Long = &H2
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "USER32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function ReleaseCapture Lib "USER32" () As Long
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Public LoginSucceeded As Boolean
Private Sub CmdCancel_Click()
LoginSucceeded = False
Me.Hide
End Sub
Private Sub CmdOk_Click()
If txt1.Text = "qblue" Then ' Rubah password "qblue" dengan password anda
MsgBox ("Seeep")
Load Form2
Form2.Show
LoginSucceeded = True
Me.Hide
Else
MsgBox ("Maaf Salah Bro")
txt1.SetFocus
End If
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then 'left click
ReleaseCapture
SendMessage Me.hwnd, &HA1, 2, 0
End If
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 1000000 Then i = 0
merah = Int(255 * Rnd)
hijau = Int(255 * Rnd)
biru = Int(255 * Rnd)
Label.ForeColor = RGB(merah, hijau, biru)
If i Mod 2 = 0 Then
Label.Visible = True
Else
Label.Visible = False
End If
End Sub
Nah Selesai deh Pembuatan Form Loading Injector berpassword
Silahkan Anda Test Running dengan menekan tombol F5 Untuk Mengujinya
Klo posting saya berguna cukup memberi +++ yg banyak untuk berterima kasih DAN Klo Tdk Berguna tdk perlu Junk Atau Comment Kasar Ya...