VB6在后台运行程序时读取条形码

我有一个问题，使一个程序，可以读取条形码。 我想做的是一个程序（也许是一个服务？我不知道），它可以在后台运行时从条形码扫描仪捕获条形码

我发现我可以用他的VID/PID检查是否插入了特定的条形码扫描仪，以下是一些代码：

Set wmi = GetObject("winmgmts://./root/cimv2")

Dim VID As String
Dim PID As String

   'Barcode scanner
   VID = "VID_040B"
   PID = "PID_6510"
   'REV = "REV_0120"

   For Each d In wmi.ExecQuery("SELECT * FROM Win32_USBControllerDevice")
     If InStr(d.Dependent, VID & "&" & PID) > 0 Then
       Debug.Print ("Barcode Scanner found it!")
       Debug.Print wmi.Get(d.Dependent).Description
     End If
   Next

如果我的程序只读取条形码扫描器的输入，我该怎么做

---

提前谢谢。

请告知条形码扫描仪的品牌和型号。也许它有一个已建立的API。该手册将有助于证明这一点。上的列表表明它是一款Weldrend条形码阅读器。是这样吗？你可能需要的司机是。第一站是找到手册。请告诉我们条形码扫描仪的品牌和型号。也许它有一个已建立的API。该手册将有助于证明这一点。上的列表表明它是一款Weldrend条形码阅读器。是这样吗？你可能需要的司机是。第一站是找到手册。