本帖最后由 mon51 于 2017-6-17 13:04 编辑

gmyu 发表于 2017-6-17 12:45
你有调用api的VB程序么？好久没搞，发现以前国外的一个程序在office2010 win7 64下面不能用了。 前段时间 ...

'****************************************************************************************************************************************
Public Declare Function OpenComm Lib "User" (ByVal IpComName As String, ByVal wInQueue As Integer, ByVal wOutQueue As Integer) As Integer

Public Declare Function SetCommState Lib "User" (IpDCB As DCB) As Integer

Public Declare Function ReadComm Lib "User" (ByVal nCid As Integer, ByVal IpBuf As String, ByVal nSize As Integer) As Integer

Public Declare Function WriteComm Lib "User" (ByVal nCid As Integer, ByVal IpBuf As String, ByVal nSize As Integer) As Integer

Public Declare Function Closecomm Lib "User" (ByVal nCid As Integer) As Integer

Public Declare Function BuildCommDCB Lib "User" (ByVal IpDef As String, IpDCB As DCB) As Integer

Public Declare Function GetCommError Lib "User" (ByVal nCid As Integer, IpStat As COMSTAT) As Integer
'****************************************************************************************************************************************

Type DCB

    Id As String
   
    BaudRate As Integer
   
    ByteSize As String
   
    Parity As String
   
    StopBits As String
   
    RlsTimeout As Integer
   
    CtsTimeout As Integer
   
    DsrTimeout As Integer
   
    Bits1 As String
   
    Bits2 As String
   
    XonChar As String
   
    XoffChar As String
   
    XonLim As Integer
   
    XoffLim As Integer
   
    PeChar As String
   
    EofChar As String
   
    EvtChar As String
   
    TxDelay As Integer

End Type

Type COMSTAT

    Bits As String
   
    cbInQue As Integer
   
    cbOutQue As Integer

End Type

'*************************************************************************************

Public IpDCB As DCB

Public nCid As Integer


VB用得少，这个是从来软件中COPY出来得头文件。可以用。