Membuat Form LOGIN BerPassword

  

Hai Semua Kali ini aku mau share cara membuat Form LOGIN Injector pake password, munngkin kreasiku ini sederhana jadi silahkan saja untuk desain kamu kreasikan sendiri ok..?

Peralatan utama yang diperlukan yaitu VisualBasic 6.0 (suggest yg fullversion) Tapi klo ada yang fortable juga ya tdk apa...hehehehe...Nah Ini dia Tahapan pembuatannya...Cekidot.
Contoh kreasi sederhana form loading hasil kreasiku :

1. Tahap pertama, siapakan komponen inti :
- 1 buah form pada bagian propertiesnya, jadikan borderstyle = 0 None
- 1 label, dengan name label1 pada bagian propertiesnya, jadikan borderstyle = 0 None
- 2 Command Button dengan nama CmdOk dan CmdCancel. untuk Cmd1 beri caption LOGIN dan Cmd2 caption EXIT.
- 1 timer, dengan name timer1, jangan lupa set interval pada properties timernya 150
- 1 Check, dengan name check1 dan beri caption Auto Exit After Injection (centang kode check1 diproperties)

2. Masukan Source code di bawah ini pada Kode Form 1 :
klik kanan pada form --> pilih view code

Spoiler:

Option Explicit
'Created Date: 11 Agustus 2011
'Form Loading Encripted by QBlue AllStaz From http://qblue.forumid.net

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 WM_NCLBUTTONDOWN As Long = &HA1
Private Const HTCAPTION As Integer = 2
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 CenterForm(frm As Form)
frm.Top = Screen.Height / 2 - frm.Height / 2
frm.Left = Screen.Width / 2 - frm.Width / 2
End Sub

Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)

If Button = 1 Then
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
Screen.MousePointer = vbDefault

End Sub
Private Sub CmdCancel_Click()
LoginSucceeded = False
Me.Hide
End Sub

Private Sub CmdOk_Click()
If txt1.Text = "qblue" Then 'Ganti password "qblue" dengan yang kamu mau
MsgBox ("Seeep Bro") 'Ganti sama Pesan yang kamu mau
Load Form2
Form2.Show
LoginSucceeded = True
Me.Hide
Else
MsgBox ("Hahahah..Salah Bro Coba Tanya Sama QBlueAllStraz") 'Ganti sama Pesan yang kamu mau
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
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

3. Tahap Selanjutnya adalah silahkan anda buat form Injectornya ya
Nah Selamat Mencoba ya...Semoga Suksessss...