Keylogger

SUBMITTED BY: Nutty1337

DATE: July 20, 2017, 1:36 p.m.

FORMAT: VB.net

SIZE: 614 Bytes

Raw Download

HITS: 512

Report

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal sKey As Int32) As Int16

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   Timer1.Interval = 1
End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
   For i = 0 To 255
      Dim result = GetAsyncKeyState(i)
      If result = -32767 Then
         'ligne ci dessous à adapter selon les touches voulues.
         If i = Keys.A And My.Computer.Keyboard.CtrlKeyDown Then
            'action a exécuter.
         End If
      End If
   Next i
End Sub