2

我正在使用以下代码使用 lpt 和 com 端口打开现金抽屉。

    Dim intFileNo As Integer = FreeFile()

    FileOpen(1, "c:\escapes.txt", OpenMode.Output)
    PrintLine(1, Chr(27) & "p" & Chr(0) & Chr(25) & Chr(250))
    FileClose(1)

    Shell("print /d:com1 c:\escapes.txt", vbNormalFocus)

上面的代码效果很好。但是，我的一位客户正在使用 USB。

有人知道使用USB端口打开现金抽屉的任何代码吗？

谢谢

4

1 回答 1

1

据我所知，需要通过将内存位置设置为特定值来打开一些 USB 现金抽屉。这完全取决于现金抽屉所需的驱动程序，因此您必须获取制造商的规格。

告诉我们哪个品牌的现金抽屉将是重要的第一步。

附录：经过一番搜索，我找到了以下有用的链接。

一个正确的答案真的太大而且太耗时，不适合在这里，需要一些实验才能让它工作，但基本上你可以从 Prolific 安装一个 USB 到 COM 驱动程序，然后编写软件或重新编写你链接的 VB6 答案使用通常的技术进入 VB.NET。

http://www.jack-frost.co.uk/vb6_usb_cash_drawer.html

http://www.prolific.com.tw/US/index.aspx

http://support.epostraders.co.uk/support-files/documents/27/ldi-C4141_USB_InstallationGuide.pdf

http://answers.microsoft.com/en-us/windows/forum/windows_vista-hardware/prolific-pl2303-usb-to-serial-port-adapter-driver/1902e9e0-4af0-4f36-84bc-f487d4022f1f

http://edvoncken.net/2010/08/pl-2303-usb-to-serial-driver/

于 2012-07-12T15:15:18.493 回答