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

Question

我有一个问题就是制作一个可以读取条形码的程序。 我想要做的是一个程序（也许是一项服务？我不知道）可以在后台运行时从条形码扫描器中捕获条形码。

我发现我可以检查是否插入了带有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

如何通过我的程序只读取条形码扫描仪的输入来读取它？

提前谢谢。