Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: systemweit Tastaturkeys abfangen und ändern
Autor: Hilmar
Datum: 24.06.02 04:03
Timer-Interval-Eigenschaft steht auf "1"; zusätzlich wird ein Meldungsformular "frmMsg" benötigt. Eine MsgBox anstatt der Anzeige eines eigenen Meldungsformulars ist leicht auszuhebeln, da es, einmal in den Hintergrund geklickt, dort bleibt, auf sein einsames OK wartet und der Loop-Mechanismus so unterdrückt werden kann. Option Explicit Private Declare Function GetAsyncKeyState Lib "user32" _ (ByVal vKey As Long) As Integer Private Sub Timer1_Timer() Dim Result%, KCode As Long For KCode = &H8 To &HF6 Result = GetAsyncKeyState(KCode) If Result = -32767 Then If Not ((KCode >= 48 And KCode <= 57) Or _ (KCode >= 96 And KCode <= 105)) Then 'also Zahlen ausgenommen SendKeys "{BS}" 'Zeichen löschen frmMsg.Show 'Meldung anzeigen End If End If Next End Sub Weiss einer eine elegantere Lösung???

systemweit Tastaturkeys abfangen und ändern	76	Hilmar	23.06.02 18:28
Re: systemweit Tastaturkeys abfangen und ändern	60	Hilmar	24.06.02 04:03

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen