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

October 2018
MonTueWedThuFriSatSun
1234567
891011121314
15161718192021
22232425262728
293031    
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 membuat diy protein skimmer
» Cara Pengendalian Hama pada Tanaman Hidroponik
» Kreatif : Cara mengubah TV antik menjadi Aquarium
» Simple Notepad Tutorial - C#
» new algae turf scrubber / ATS box external.

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