VB 怎么向LPT口发送字符 如控制钱箱打开 （在线== 马上结）高手来

Question

能否用 open "lpt1" 这种方式打开lpt1?
如果是别语言好象都能向所有的端口发送字符 VB 的MSComm 能控制LPT口吗？

Answer 1

可以 ，但不同得钱箱打开指令都是不同得，你可以在厂家得网站查询到具体指令先设置 波特率 9600
端口  com?
发送指令 ：MSComm1.Output chr(27)+chr(112)+chr(0)+chr(60)+chr(255)
来打开钱箱

Answer 2

如果钱箱是接到COM口就好了 那我可以用MSComm 但它是接在打印机下的 我只是想知道VB是否能够有类似MScomm 的MSlpt来向LPT口发送字符 至于打开的指令和1楼的指令是一样的 可惜1楼的只能适用于接在COM口的钱箱。。 还有那一个高手能帮忙解决谢谢 。
 我用C就能用FileCreate的方法来向任何端口发送字符，我现在是用C写了一个小程序在VB里面调用来打开钱箱，但总觉得不够完美，难到VB就真的不行？

Answer 3

问: 能否用 open "lpt1" 这种方式打开lpt1?
答: 可以的。例如：
    Dim FileNo As Long
    FileNo = FreeFile()
    Open "LPT1" For Output As #FileNo
    Print #FileNo, "开箱指令"
    Close #FileNo