PureBoard

Verfasst: **02.03.2021 10:58**

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)

Verfasst: **02.03.2021 19:59**

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

Verfasst: **02.03.2021 21:11**

Hallo danke.

Funktioniert wunderbar.

PureBoard

Tastencode an Netzwerk senden .

Tastencode an Netzwerk senden .

Re: Tastencode an Netzwerk senden .

Re: Tastencode an Netzwerk senden .