[-Cara membuat LOGIN pada Form (2)] Full Tutors

First topic message reminder :

Sedikit Pemahaman Tentang VB6:

Tools :
[-] 2 Command
[-] 1 texbox
[-] 1 Label
[-] 1 Timer

Klo Gk mau pake Timer Gk pp Gk usah Di pake!
Warna = di hapus klo gk pengen pake TIMER /Gk bisa

Cara :
[-] Kreasi Sendiri
[-] Name Command
Caption
Command 1 = Login
Command 2 = Exit
-command 1 = cmdOk
-command 2 = cmdCancel
[-] Timer Interval = 150
[-] label 1 Caption = Password / Strah kalian

Tinggal Source Nya : Jangan Lupa +
Option Explicit
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
OpenURL "http://bad-boyscheaters.forumid.net/", Me.hWnd ' Silakan Di Ubah Dengan Nama WEB/**** Anda
End Sub

Private Sub cmdOK_Click()
If txtPassword = "SoundGuard" Then 'nama Password /ganti nama passwornya dedngan passwor brayyy
Load CmdInjecktor ' Fungsi Open CmdInjecktor
CmdInjecktor.Show ' Fungsi Open CmdInjecktor ( kalau mau di ubah silakan Ubah Dengan Form apa yg mau Di Buka
LoginSucceeded = True
OpenURL "http://bad-boycheaters.forumid.net/", Me.hWnd ' Silakan Di Ubah Dengan Nama WEB/**** Anda
Me.Hide
Else
MsgBox "Password Ilegal Coba Ulangi lagi", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"

End If
End Sub

Private Sub txtUserName_Change()

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()
'Fungsi Label Warna
I = I + 1
If I = 1000000 Then I = 0 'Supaya tdk overflow, dsb...
merah = Int(255 * Rnd) 'Bangkitkan angka random untuk merah
hijau = Int(255 * Rnd) 'Bangkitkan angka random untuk hijau
biru = Int(255 * Rnd) 'Bangkitkan angka random untuk biru
Label1.ForeColor = RGB(merah, hijau, biru) 'Campur tiga warna
If I Mod 2 = 0 Then 'Jika counter habis dibagi 2
Label1.Visible = True 'Tampilkan label
Else 'Jika counter tidak habis dibagi 2
Label1.Visible = False 'Sembunyikan label
End If 'Akhir pemeriksaan

End Sub
Jangan Lupa Password Sama Nama Form Brikut nya yg pengen Di buka Nya Di ganti!!!

Buat Yang Masih Bingung!
Tinggal Edit Doank Nih Link nya

Spoiler:

Jangan Lupa Brooo (++++)