PLC通信与网络技术(19)

MSComml．OutBufferCount = 0

MSComml．InBufferCount = 0

Outstrin = Chr（＆H2）＋″on″＋″10F604″＋Chr（＆H3）＋″74″

MSComml．Output = Outstring

End Sub

4）读取应答报文

Private Sub ReceiveFrame（）

Dim Instring As String

Do

DoEvents