VB打开POS机钱箱,源码.使用VB的MSComm控件. Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdOpen_Click() Dim sTmp As String '打开钱箱命令 sTmp = Chr(2) & Chr(77) OpenBox sTmp End Sub Private Sub cmdOpen1_Click() Dim sTmp As String '打开钱箱命令chr(27)+chr(112)+ch