Tastencode an Netzwerk senden .

[funkheld]

Hallo. guten Tag.

Ich habe ein Edit-Fenster von wo ich die Daten sende bei Betätigung eines Button..
das funktioniert auch.
-------------------------

Code: Alles auswählen

 Case #b_send
          If status=1
            anzahl = CountGadgetItems(#edit)
            For wert =0 To anzahl
              text_e=UCase(GetGadgetItemText(#edit,wert))
              SendNetworkString(conID,text_e)
            Next
            text_e=""
            SetGadgetText(#edit, text_e)   
          EndIf   

------------------------

Nun möchte ich ohne das Edit-Fenster jeden Tastendruck senden.
Wie sieht dafür die Schleife bitte aus.

Danke.

// Edit: Code-Tags gesetzt (Kiffi)

[Andesdaf]

geht sicher auch anders, hatte ich aber gerade zur Hand:

Code: Alles auswählen

Procedure.l uiKeyboardHooks(nCode, wParam, *p.KBDLLHOOKSTRUCT)
; --------------------------
  Protected.i iKey
; --------------------------
    
  If wParam = #WM_KEYDOWN
    iKey = MapVirtualKey_(*p\vkCode, 2)
    Debug "" + *p\vkCode + " = " + iKey + " = " + Chr(iKey)
  EndIf
  
  ProcedureReturn CallNextHookEx_(0, nCode, wParam, *p)
  
EndProcedure

If OpenWindow(0,0,0,100,100,"",#PB_Window_ScreenCentered)
  SetWindowsHookEx_(#WH_KEYBOARD_LL,@uiKeyboardHooks(),GetModuleHandle_(0),0)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[funkheld]

Hallo danke.

Funktioniert wunderbar.