Taste blocken

[Fox]

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.

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 bla

Passt der so?

Danke euch schonmal....

Fox

[Scarabol]

Hi,

hast du das schonmal getestet?

Denke nicht denn dann wüsstest du das es leider nicht funktioniert...

Du suchst eher sowas wie einen KeyboardHook...
Es könnte aber alles in allem ein größeres Projekt werden, da du das Programm ja auch gegen beenden sichern musst, oder?

Gruß
Scarabol

[Fluid Byte]

Suche nutzen tut nicht weh.

http://www.purebasic.fr/german/viewtopi ... 9&start=19

[Fox]

hey... super danke
problem gelöst