The program only wants to run once . . .

[Kernelpanic]

The program only ever works once. Then one have to delete the exe file, otherwise it will always just show "unknown". Even deleting the program and using a different name didn't help. Does anyone know what could be wrong? Thanks!

I think I've had a similar case before, but I can't remember how I solved the problem.

Code: (Select All)

'Codenummer der gedrueckten Taste ermitteln - 30. Juli 2024



Option _Explicit



Dim As Integer x



Print "Taste"

_Delay 2



x = _KeyHit

If x = 32 Then

  Print "Leertaste "; x

ElseIf x = 27 Then

  Print "Esc-Taste "; x

Else

  Print "Unbekannt"

End If



End