GetAsyncKeyState - gemme resultat i variabel?

Det du har brug for er i realiteten en Global Low Level Keyboard Hook. Prøv at søge på nogle af disse ord.
Her er en artikel der gennemgår problematikken: http://www.developer.com/net/vb/article.php/2193301

Eller måske noget i denne stil?

While true
    If Console.KeyAvailable Then
        Dim cki As ConsoleKeyInfo = Console.ReadKey(true)

        If (cki.Key = ConsoleKey.Escape) Then
            Exit While
        End If

        ' cki.Modifiers - fort�ller om Alt-, Shift- og Ctrl-tasterne
        Dim c As Char = cki.KeyChar

        Console.WriteLine(c)
    End If
End While

Tjacob.. jeg var bange for at nogle skulle forslå hook.. men jeg kigger det igennem..

Jep nielle, noget ligende, men stadig virke selvom consolen/formen ikke er aktiv, ligesom GetAsyncKeyState() kan..

Kan ikke få koden fra den artikel til at virke..

Når jeg kalder HookKeyboard()
Går den ned og checker:
Hooked = KeyboardHandle <> 0

som så er false, og den skriver så:
Debug.WriteLine("Keyboard hook failed: " & Err.LastDllError)

som jeg ikke lige ved hva betyder..

Det betyder vel at hooken fejler et eller andet sted.

Du skal være opmærksom på, at du sandsynligvis IKKE kan køre koden i IDEn. Du skal compile, og køre den færdige exe UDEN for IDEn. Desuden kunne jeg godt forestille mig at den heller ikke virker i Vista (hvis du kører det?)

For i øvrigt er koden jo kun et eksempel der, såvidt jeg kan se, blot fanger 3 bestemte tastekombinationer.

Hvis du skal fange alle tastetryk skal der en hel del mere kode til, og der skal jo også laves en log af en art.

Fandt en måde at gemme resultaten i en variabel
Har lidt svært ved at forstå det, men det virker..

Ellers tak for hjælpen, men de der global hooks er alt for avanceret for mit lige nu :P
___

        Do
            For i = 1 To 255
                result = 0
                result = GetAsyncKeyState(i)

                If result = -32767 Then
                    i = Chr(i)
                End If
            Next i
        Loop