XProfan

Struct RAWINPUTDEVICE = usUsagePage%, usUsage%, dwFlags&, hwndTarget&
Struct RAWINPUTKEYBOARD = dwType&, dwSize&, hDevice&, wParam&, MakeCode%, Flags%, Reserved%, VKey%, Message&, ExtraInformation&
Def RegisterRawInputDevices(3) !"User32", "RegisterRawInputDevices"
Def GetRawInputData(5) !"User32", "GetRawInputData"
Def GetRawInputDeviceList(3) !"User32", "GetRawInputDeviceList"
Def GetRawInputDeviceInfoA(4) !"User32", "GetRawInputDeviceInfoA"
WindowTitle "RawInput"
Window 1000, 600
SubClass %HWnd, 1
Declare hScanner&, CodeStatus%, CodeFocus&
DrawText 5, 5, "Scanner:"
Var hDev& = Create("ChoiceBox", %hwnd, 1, 5, 25, Width(%hwnd) - 10, 300)
AddDevices hDev&
Create("Button", %hwnd, "Testbutton", 5, 60, 200, 25)
Create("Edit", %hwnd, "Testedit", 5, 90, 200, 25)
Var hCode& = Create("Edit", %hwnd, "", 2000, 2000, 0, 0)// Verstecktes Textfeld für Barcodeeingabe
Var hLog& = Create("MultiEdit", %hwnd, "", 5, 120, Width(%hwnd) - 10, Height(%hwnd) - 125)
// RawInput registrieren
Declare rid#
Dim rid#, RAWINPUTDEVICE
rid#.usUsagePage% = 1// RegisterRawInputDevices
rid#.usUsage% = 6// Keyboard
rid#.dwFlags& = 0// $30 /* RIDEV_NOLEGACY */
rid#.hwndTarget& = %hwnd

IfNot RegisterRawInputDevices(rid#, 1, SizeOf(rid#))

    MessageBox("RawInput konnte nicht registriert werden " + Hex$(%WinError), "", 0)

EndIf

// Hauptschleife

While 1

    WaitInput

    If Clicked(hDev&)

        hScanner& = Val(SubStr$(GetText$(hDev&), 2, "|"))

    ElseIf %MenuItem = 1234

        SetText hLog&, GetText$(hLog&) + "Barcode gelesen: " + GetText$(hCode&) + "\n"

    EndIf

EndWhile

Proc AddDevices

    Parameters hList&
    Declare numDevices&, devices#, hDevice&
    GetRawInputDeviceList(0, Addr(numDevices&), 8)

    If numDevices& = 0

        Return

    EndIf

    Dim devices#, numDevices& * 8
    GetRawInputDeviceList(devices#, Addr(numDevices&), 8)

    WhileLoop numDevices&

        If Long(devices#, (&Loop * 8) + 4) = 1/* RIM_TYPEKEYBOARD */

            hDevice& = Long(devices#, &Loop * 8)
            AddString(hList&, GetDeviceName(hDevice&) + "|" + Str$(hDevice&))

        EndIf

    EndWhile

EndProc

Proc GetDeviceName

    Parameters hdev&
    Declare buf#, len&
    GetRawInputDeviceInfoA(hdev&, $20000007  0, Addr(len&))/* RIDI_DEVICENAME */

    If len& = 0

        Return ""

    EndIf

    Dim buf#, len&
    GetRawInputDeviceInfoA(hdev&, $20000007  buf#, Addr(len&))/* RIDI_DEVICENAME */
    Return String$(buf#, 0)

EndProc

SubClassProc

    If SubClassMessage(%hWnd, $00ff)/* WM_INPUT */

        Declare raw#
        Dim raw#, RAWINPUTKEYBOARD
        Var size& = SizeOf(raw#)

        IfNot GetRawInputData(&sLParam, $10000003  raw#, addr(size&), 16) == -1/* RID_INPUT */

            If (raw#.hDevice& = hScanner&) AND ((raw#.flags% & 1  = 0)/* RI_KEY_BREAK */

                IfNot GetFocus(hCode&)

                    CodeFocus& = %GetFocus
                    SetFocus(hCode&)
                    SetText hCode&, ""

                EndIf

                If raw#.VKey% = 13// scancode 13 = Enter

                    SetFocus(CodeFocus&)
                    CodeFocus& = 0
                    SetMenuItem 1234

                EndIf

            EndIf

        EndIf

    EndIf

EndProc