[-Cara membuat LOGIN pada Form (2)] Full Tutors
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 :
| 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 |
