01.htm

vb功能实例介绍。详细、很好的实例说明。

<p>1、怎么用mscomm控件检测modem是否与计算机联接正确？2、如何用mscomm挂断modem与别的电话机间的连接？（已接通）</p>
<p>我用mscomm写了一个拨号程序，有二个问题想请教： </p>
<p>1、怎么用mscomm控件检测modem是否与计算机联接正确？ </p>
<p></p>
<p>2、如何用mscomm挂断modem与别的电话机间的连接？（已接通） </p>
<p>连接 </p>
<p></p>
<p>我记得MODEN连接好了可以接受串口的信号，比如，你发送AT，应该返回OK，有的时候则返回AT，说明是连上了的 </p>
<p></p>
<p>Function ModenSeach(com As Integer, Default As String) As String </p>
<p>Dim a As String </p>
<p>On Error GoTo aa: </p>
<p>MSComm.CommPort = com </p>
<p>MSComm.InputMode = comInputModeBinary </p>
<p>MSComm.Settings = "9600,n,8,1" </p>
<p>If MSComm.PortOpen = True Then </p>
<p>MSComm.PortOpen = False </p>
<p>End If </p>
<p>MSComm.DTREnable = True </p>
<p>MSComm.EOFEnable = True </p>
<p>MSComm.RTSEnable = True </p>
<p>MSComm.PortOpen = True </p>
<p>MSComm.Output = "at" </p>
<p>a = EcrReadOne(2): a = LCase(a) </p>
<p>If InStr(a, "at") <> 0 Or InStr(a, "ok") <> 0 Then </p>
<p>ModenSeach = "Moden" </p>
<p>Else </p>
<p>ModenSeach = Default </p>
<p>End If </p>
<p>Exit Function </p>
<p>aa: </p>
<p>ModenSeach = Default </p>
<p>'EndTransmit </p>
<p>End Function </p>
<p></p>
<p>Function EcrReadOne(number As Integer) As String </p>
<p>Dim out() As Byte, i As Integer, data As String </p>
<p></p>
<p>data = "": i = 1 </p>
<p>Do </p>
<p>DoEvents: i = i + 1 </p>
<p>Debug.Print MSComm.InBufferCount </p>
<p>Loop Until (MSComm.InBufferCount >= number Or i >= 800) ' one plu item read </p>
<p>If i >= 800 Then </p>
<p>EcrReadOne = "" </p>
<p>Exit Function </p>
<p>End If </p>
<p>out() = MSComm.Input </p>
<p>For i = 1 To number </p>
<p>data = data + Chr(out(i)) </p>
<p>Next </p>
<p>EcrReadOne = Trim(data) </p>
<p>End Function </p>