kahar_Blits.co.cc

CheaterS
 
HomeHome  RegisterRegister  Log inLog in  
Search
 
 

Display results as :
 
Rechercher Advanced Search
Keywords
Latest topics
» cheat terbarunya mn gan???
Mon Aug 08, 2011 1:45 pm by *bro*nis91*

» DGKapten V2.7 [1Hit SG ALL 20-07-11]
Thu Jul 21, 2011 8:30 am by danugasonk

» share | video losst saga aLL che*t N link
Wed Jun 15, 2011 8:12 am by jakuz

» Gak Sia" Masuk V.I.P. N3 (Nyit-Nyit.net)
Sun Jun 12, 2011 8:42 pm by hend

» pasword competition
Sun Jun 12, 2011 8:40 pm by hend

» Cash PB Gratis
Sun Jun 12, 2011 8:40 pm by hend

» RPE + WM WOrk 1000%
Sun Jun 12, 2011 8:39 pm by hend

» che*t 1 hit khusus yg klik kanan...
Sun Jun 12, 2011 8:36 pm by hend

» TRC Packet Editor
Sun Jun 12, 2011 8:35 pm by hend

December 2018
MonTueWedThuFriSatSun
     12
3456789
10111213141516
17181920212223
24252627282930
31      
CalendarCalendar
Top posting users this week

Share | 
 

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

Go down 
AuthorMessage




Join date : 1970-01-01

PostSubject: [-Cara membuat LOGIN pada Form (2)] Full Tutors   Fri Jun 10, 2011 7:34 pm

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 (++++)

Back to top Go down
 
[-Cara membuat LOGIN pada Form (2)] Full Tutors
Back to top 
Page 1 of 1
 Similar topics
-
» Cara Pengendalian Hama pada Tanaman Hidroponik
» Diy sump Aquarium laut
» DIY C02 untuk aquascape
» DIY Cone Skimmer
» Beberapa contoh Lampu buatan Genz Diy

Permissions in this forum:You cannot reply to topics in this forum
kahar_Blits.co.cc :: Kahar_Blits Teen Discussion :: VIsual Basic-
Jump to: