[..] Ecoute lecteur code barre

[jeanphi45]

Bonjour chers autoitésiens ,

J'ai un lecteur code barre usb. Dès que je scanne un code barre il écrit ce code dans l'appli où je suis , exemple dans notepad , excel ...

Ce que je voudrais faire : dès que je scanne un code barre , le systeme m'ouvre sous Firefox la page web https://nom_de_monsite.fr/echantillon/afficher/id/108217#

, où 108217 est mon code barre.

Comment faire avec auto-it pour que le système "écoute " le lecteur code barre ( qui en fait se comporte exactement comme un clavier ) ? Peut-on écouter tel ou tel port usb ?

Merci d'avance pour vos propositions.

PS : je suis sous Windows 7

[blacksoul305]

Bonjour,

à première vue, je dirai qu'il faudrait voir du côté du constructeur, voir s'il n'y a pas une API pour pouvoir manier le lecteur de code barre.

[mimione]

Bonjour

Peut-être comme ça ??
(le lecteur doit être configuré pour générer un CR/LF en fin de scan, ce qui déclenche l'événement du champ)

Bon. ça ne marche que dans une appli AutoIt, et cela ne résout pas votre problème pour le scan dans une autre appli...

Bonne journée

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Michel\Desktop\Form1.kxf
Global $Form1 = GUICreate("Form1", 294, 168, 192, 124)
Global $Input1 = GUICtrlCreateInput("", 76, 52, 125, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

ControlFocus(WinGetTitle("[active]"), "", $Input1)

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
         Exit

   Case $Input1
         beep ()
         ;-- Appel fonction --
         ;.............
 EndSwitch
WEnd

 

[Hugues]

Salut,

Tu peux forcer l'affichage de ton GUI avec WinSetOnTop() (de mémoire), ensuite de forcer le focus dans ton inputbox et avec un WM_Command(), tu lances l'ouverture de ta page Web.

► Afficher le texte

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

Opt("GUIOnEventMode", 1)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

_MainGUI()

While GUIGetMsg() <> -3
WEnd

Func _MainGUI()

    Global $Form1 = GUICreate("Form1", 294, 168, 192, 124)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Quitter", $Form1)
    Global $Input1 = GUICtrlCreateInput("", 76, 52, 125, 21)
    GUISetState(@SW_SHOW)

EndFunc

Func _Quitter()
    Exit
EndFunc

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $hWndInput1, $hWndInput2, $hWndInput3
    If Not IsHWnd($Input1) Then $hWndInput1 = GUICtrlGetHandle($Input1) ; Attention à bien utiliser le control ID de votre input
    $hWndFrom = $ilParam
    $iIDFrom = BitAND($iwParam, 0xFFFF) ; HiWord
    $iCode = BitShift($iwParam, 16) ; LoWord
    Switch $hWndFrom
        Case $hWndInput1
            Switch $iCode
                Case $EN_CHANGE
                    ; C'est ici que vous devez gérer vos contrôles sur l'input
                    If StringLen(GUICtrlRead($Input1)) = 6 Then _WebPage()
            EndSwitch

    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Func _WebPage()
    Msgbox(64, "", GUICtrlRead($Input1))
    Sleep(500)
    _IECreate("https://nom_de_monsite.fr/echantillon/id/" & GUICtrlRead($Input1) & "#")
EndFunc
 

[jeanphi45]

En fait ce que je ne sais pas faire , étant donné que le lecteur code-barre usb se comporte comme un clavier , c'est que le système différencie une saisie au clavier d'une pression sur le bouton du lecteur code_barre.

Si j'ai bien compris il faut que j'écrive une appli auto-it qui "écoute" les entrées mais qui ne considère que celle provenant du lecteur code-barre et c'est là que semble être la difficulté.

Quant à ouvrir une url sous firefox, je l'ai déjà fait :

Code : Tout sélectionner

   Opt("WinTitleMatchMode", 2)
   Run (@ProgramFilesDir & "\Mozilla Firefox\firefox.exe http://unsite.fr")
   WinWaitActive("Mozilla Firefox")
   WinActivate("Mozilla Firefox")

Donc , en résumé , comment écouter le port usb qui supporte le lecteur code-barre ? ( ou sion écouter tous les ports usb en entrée et filtrer sur le lecteur code barre )

[Hugues]

Un p'tit bout de code. Et tu Si ton Id est toujours numérique, tu peux interdire les autres entrées...

EDIT du code à 14:18

► Afficher le texte

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <WinApi.au3>

Opt("GUIOnEventMode", 1)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

_MainGUI()
AdlibRegister("_ScreenAdaptation")

While GUIGetMsg() <> -3
WEnd

Func _MainGUI()

    Global $Form1 = GUICreate("Form1", 294, 168, 192, 124)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Quitter", $Form1)
    Global $Input1 = GUICtrlCreateInput("", 76, 52, 125, 21)
     _WinAPI_SetFocus(ControlGetHandle($Form1, "", $Input1))
    GUISetState(@SW_SHOW)

EndFunc

Func _Quitter()
    Exit
EndFunc

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $hWndInput1, $hWndInput2, $hWndInput3
    If Not IsHWnd($Input1) Then $hWndInput1 = GUICtrlGetHandle($Input1) ; Attention à bien utiliser le control ID de votre input
    $hWndFrom = $ilParam
    $iIDFrom = BitAND($iwParam, 0xFFFF) ; HiWord
    $iCode = BitShift($iwParam, 16) ; LoWord
    Switch $hWndFrom
        Case $hWndInput1
            Switch $iCode
                Case $EN_CHANGE
                    ; C'est ici que vous devez gérer vos contrôles sur l'input
                    If StringLen(GUICtrlRead($Input1)) = 6 Then _WebPage()
            EndSwitch

    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Func _WebPage()
      Sleep(500)
    _IECreate("https://nom_de_monsite.fr/echantillon/id/" & GUICtrlRead($Input1) & "#")
EndFunc

Func _ScreenAdaptation()
    $WorkAera = _GetWorkArea()  ;Etait Local $WorkAera = _GetWorkArea() et non Global
    Local $aGuiPos = WinGetPos($Form1)
    If $aGuiPos[0] <> $WorkAera[0] OR $aGuiPos[1] <> $WorkAera[1] OR $aGuiPos[2] <> $WorkAera[4] OR $aGuiPos[3] <> $WorkAera[5] Then WinMove($Form1, "", $WorkAera[0], $WorkAera[1], $WorkAera[4], $WorkAera[5])
EndFunc

Func _GetWorkArea()
    Local $Area[6]
    Local $StartRect = DllStructCreate("int[4]")
    Local $PStartRect = DllStructGetPtr($StartRect)
    DllCall("user32.dll", "int", "SystemParametersInfo", "int", 48, "int", 0, "ptr", $PStartRect, "int", 0)
    $Area[0] = DllStructGetData($StartRect,1,1)
    $Area[1] = DllStructGetData($StartRect,1,2)
    $Area[2] = DllStructGetData($StartRect,1,3)
    $Area[3] = DllStructGetData($StartRect,1,4)
    $Area[4] = $Area[2] - $Area[0]
    $Area[5] = $Area[3] - $Area[1]
    Return $Area
EndFunc
 

[jchd]

J'ai eu le même problème : différencier un "vrai" clavier d'un lecteur de codes à barres.

J'avais trouvé une solution mais en fait je n'ai jamais eu à l'utiliser en pratique, ayant mis en oeuvre un contexte distinct.

L'idée est d'intercepter à un niveau assez bas pour identifier le périphérique émetteur des scancodes.

Je livre ce que j'ai, brut de fonderie, sans avoir de souvenirs très précis sur les détails de ce bidule.

RawInput.au3

RawInput.au3

(40.92 Kio) Téléchargé 133 fois

Barcode Reader Filter.au3

Barcode Reader Filter.au3

(5.7 Kio) Téléchargé 151 fois

Si je ne m'abuse, il faut d'abord scanner l'ensemble de périphériques HID, juste pour identifier celui qu'on veut. En l'occurrence, mon lecteur déclarait 160 "touches", ce qui le distinguait d'un clavier. Un fois qu'on sait quel périphérique intercepter, y'a plus qu'à.