Taste blocken
Verfasst: 19.04.2008 23:09
Hi Leute... Ich soll für nen Bekannten nen Tasten Blocker für die Taste F1 programmieren. Grund: Auf seiner Arbeit wird eine Pocket Pc benutzt, bei dem die Taste F1 die Bildschirmtastur öffnet. Das hat zur folge, das man die visualisierung umgehen kann, und spiele usw. auf der windowsoberfläche ausführen kann. der pocket pc hat windows xp... ich hab schonmal was programmiert, aber das programm soll immer aktiv sein, also egal in welchem anderen fenster man sich gerade befindet, es soll immer aktiv sein.
hier mein code.
Passt der so?
Danke euch schonmal....
Fox
hier mein code.
Code: Alles auswählen
#F1=0
Begin:
OpenWindow(ID,20,20,10,10,"F1 Blocker")
AddKeyboardShortcut(ID,#PB_Shortcut_F1|#PB_Shortcut_F1,#F1)
Anz+1
Max+1
CreateGadgetList(WindowID(ID)):ID+1
For Window=0 To Max
WID=5*Window
If IsWindow(WID)
EndIf
Next Window
Repeat
event=WaitWindowEvent()
Select event
Case #PB_Event_Menu
Select EventMenu()
Case #F1
MessageRequester("","Taste geblockt"+Chr(10)+Chr(10)+"Für Hilfe informieren sie den Administartor"+Chr(10)+Chr(10)+"")
EndSelect
Case #PB_Event_Gadget
WID=EventGadget()
If WID % 5 = 3
CloseWindow(EventWindow())
Anz-1
For Window=0 To Max
WID=5*Window
If IsWindow(WID)
EndIf
Next Window
ElseIf WID % 5 = 4
Goto Begin
EndIf
EndSelect
Until blaDanke euch schonmal....
Fox