Apa itu KeyLogger, mungkin semua orang pasti sudah tau, sebuah Aplikasi yang bertugas untuk merekam aktifitas Keyboard Computer lalu menyimpan nya lebih kurang begitulah definisi nya (heheheheh). Pada Posting kali ini saya coba Share Cara Membuat KeyLogger dengan VB (Visual Basic).
Syarat :
- Mengerti dan faham apa itu VB (Visual Basic)
- Photo Copy KTP 2 Lbr
Berikut ini adalah cara membuat KeyLogger yang sangat sederhana dengan VB, bagi yang tertarik silahkan klik gambar dibawah untuk dowload app nya, semoga bermamfaat.
Aplikasi Kecil ini merupakan hasil revisi atau Pengembangan dari
GeSp Versi Sebelumnya yang sudah pernah saya buat, Pada
Suspender dan Injector (
GeSp 1.4) ini ada beberapa Fitur yang ditambahkan yang sebelumnya tidak ada, Fitur tersebut antara lain :
- Type Suspend Otomatis dan Manual
- Type Injektor File Otomatis dan Manual (Type File : Semua File yang suport di Inject / Bukan hanya file yang berektensikan .DLL)
- Auto Kill Aplikasi Fungsinya adalah menutup Aplikasi Target yang dalam keadaan running secara otomatis apabila fitur ini diaktifkan.
- Minimizer dan Restore All App, tetapi ada sebagian App atau Game Fitur ini tidak dapat berfungsi dengan baik.
- Enable dan Disable Task Manager
- Membuka dan Menutup Akses Registry (Regedit)
- Form Settingan (akan diatur sendiri oleh user)
- Running di Systray Area.
Cara Penyetingan Aplikasi
- Kalau Auto Suspendnya di beritanda (conteng), maka Aplikasi akan secara otomatis mensuspend target yg ditentukan
- Exit After Resume : Aplikasi akan keluar (Exit) otomatis setelah App Target diresume atau dijalankan kembali
- App Target : Aplikasi yang dijadikan target misal nya None.exe (Ekstensinya jangan lupan di ikut sertakan .exe)
- App Titel : Judul dari Aplikasi tersebut, nah disinilah kunci utama proses Kerja Otomatis Aplikasi GeSp 1.4. Cara mudah untuk mengetahui Judul dari Sebuah Aplikasi yaitu dengan cara membuka Task Manager setelah itu Coba jalankan sebuah Aplikasi maka pada Task Manager bisa kita liat Judul Aplikasi tersebut, contoh seperti gambar dibawah ini.
- Timer For Suspend : Pengaturan waktu awal saat proses Suspend target (Milli Second)
- Untuk Penyetingan Selanjut nya bisa diikuti seperti cara diatas
Dengan adanya setingan ini maka Aplikasi akan berjalan sesuai dengan keingin user, mudah - mudahan bermamfaat dan tidak disalah gunakan dalam pemakaiannya ohya jangan lupa komentar nya untuk sekedar referensi .. makasih.
Masih seputar Tips - Trik Visual Basic tentunya, kali ini saya coba membahas tentang Hack Taskbar Windows yaitu bagaimana caranya Menghilangkan Taskbar, Menghilangkan Button Start serta cara Menghilangkan Waktu / Tanggal yang ada pada Sistray Area tapi sobat tidak perlu kwatir pasti ada pengembalian atau reset kedefault semula. Mungkin sobat masih ngambang tentang penjelasan saya diatas, dengan gambar dibawah ini mudah-mudahan sobat bisa paham maksud dari Tips - Trik ini.
Okelah kalau begitu saya akan lanjutkan tentang coding nya bagi yang tertarik silakan ikuti langkah - langkah berikut ...- Tambahkan tiga buah CommandButton diproject, masing-masing dengan nama : cmdTaskbar, cmdStartButton dan cmdSystemClock
- Tambahkan satu buah Module
' Tempatkan Coding dibawah ini pada Module
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Public TaskBarStyle As Boolean, StartButtonStyle As Boolean, SystemClockStyle As Boolean
Public Const StartButtonID = &H130
Public Const SystemClockID = &H12F
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
Public Sub HideTaskBar()
Dim wClassName As String
Dim hwndTaskbar As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
If TaskBarStyle = False Then
Form1.cmdTaskbar.Caption = "Show Taskbar"
ShowWindow hwndTaskbar, SW_HIDE
TaskBarStyle = True
Else
Form1.cmdTaskbar.Caption = "Hide Taskbar"
ShowWindow hwndTaskbar, SW_SHOW
TaskBarStyle = False
End If
End Sub
Public Sub HideStartButton()
Dim wClassName As String
Dim hwndTaskbar As Long, hwndStartbutton As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
hwndStartbutton = GetDlgItem(hwndTaskbar, StartButtonID)
If StartButtonStyle = False Then
Form1.cmdStartButton.Caption = "Show Start Button"
ShowWindow hwndStartbutton, SW_HIDE
StartButtonStyle = True
Else
Form1.cmdStartButton.Caption = "Hide Start Button"
ShowWindow hwndStartbutton, SW_SHOW
StartButtonStyle = False
End If
End Sub
Public Sub HideSystemClock()
Dim wClassName As String
Dim hwndTaskbar As Long, hwndSystemClock As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
hwndSystemClock = GetDlgItem(GetDlgItem(hwndTaskbar, SystemClockID), SystemClockID)
If SystemClockStyle = False Then
Form1.cmdSystemClock.Caption = "Show System Colock"
ShowWindow hwndSystemClock, SW_HIDE
SystemClockStyle = True
Else
Form1.cmdSystemClock.Caption = "Hide System Clock"
ShowWindow hwndSystemClock, 5
SystemClockStyle = False
End If
End Sub
Public Sub SetToDefault()
TaskBarStyle = True
StartButtonStyle = True
SystemClockStyle = True
HideTaskBar
HideStartButton
HideSystemClock
End Sub
' Tempatkan Coding dibawah ini pada Form Project
Private Sub cmdStartButton_Click()
HideStartButton
End Sub
Private Sub cmdSystemClock_Click()
HideSystemClock
End Sub
Private Sub cmdTaskbar_Click()
HideTaskBar
End Sub
Private Sub Form_Load()
cmdTaskbar.Caption = "Hide TaskBar"
cmdStartButton.Caption = "Hide Start Button"
cmdSystemClock.Caption = "Hide System Clock"
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetToDefault
End Sub
Mudah - mudahan Tips ini ada mamfaat nya bagi kita semua dan VB Developer khususnya, semoga tidak digunakan untuk menjahili teman atau orang lain. Kalau ada kesempatan dan waktu kita akan ketemu dengan Tips - Trik berikutnya .. terima kasih.
