kahar_Blits.co.cc
Would you like to react to this message? Create an account in a few clicks or log in to continue.
kahar_Blits.co.cc

CheaterS
 
HomeHome  Latest imagesLatest images  RegisterRegister  Log inLog in  
Search
 
 

Display results as :
 
Rechercher Advanced Search
Keywords
Latest topics
» cheat terbarunya mn gan???
[-Cara membuat LOGIN pada Form (2)] Full Tutors Icon_minitimeMon Aug 08, 2011 1:45 pm by *bro*nis91*

» DGKapten V2.7 [1Hit SG ALL 20-07-11]
[-Cara membuat LOGIN pada Form (2)] Full Tutors Icon_minitimeThu Jul 21, 2011 8:30 am by danugasonk

» share | video losst saga aLL che*t N link
[-Cara membuat LOGIN pada Form (2)] Full Tutors Icon_minitimeWed Jun 15, 2011 8:12 am by jakuz

» Gak Sia" Masuk V.I.P. N3 (Nyit-Nyit.net)
[-Cara membuat LOGIN pada Form (2)] Full Tutors Icon_minitimeSun Jun 12, 2011 8:42 pm by hend

» pasword competition
[-Cara membuat LOGIN pada Form (2)] Full Tutors Icon_minitimeSun Jun 12, 2011 8:40 pm by hend

» Cash PB Gratis
[-Cara membuat LOGIN pada Form (2)] Full Tutors Icon_minitimeSun Jun 12, 2011 8:40 pm by hend

» RPE + WM WOrk 1000%
[-Cara membuat LOGIN pada Form (2)] Full Tutors Icon_minitimeSun Jun 12, 2011 8:39 pm by hend

» che*t 1 hit khusus yg klik kanan...
[-Cara membuat LOGIN pada Form (2)] Full Tutors Icon_minitimeSun Jun 12, 2011 8:36 pm by hend

» TRC Packet Editor
[-Cara membuat LOGIN pada Form (2)] Full Tutors Icon_minitimeSun Jun 12, 2011 8:35 pm by hend

March 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031
CalendarCalendar
Top posting users this week
No user

 

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

Go down 
AuthorMessage





Join date : 1970-01-01

[-Cara membuat LOGIN pada Form (2)] Full Tutors Empty
PostSubject: [-Cara membuat LOGIN pada Form (2)] Full Tutors   [-Cara membuat LOGIN pada Form (2)] Full Tutors Icon_minitimeFri 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 Login Pada Form-]
» [-Cara Membuat Loading Form] SS kaya Di SoundBreak
» Cara Membuat che*t Ninja Saga
» Cara Membuat Windows Xp Live USB
» cara Membuat Judul Blogg Berjalan Versi KrussH

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