如何实现用modem拨号时检查电话是否占线.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 53 行

**************** 
    Private Sub Openport() 
    '初 始 化 Modem 
    If Not MSComm1.PortOpen Then 
     MSComm1.CommPort = 3 
     MSComm1.RThreshold = 1 
     MSComm1.OutBufferSize = 1024 
     MSComm1.InBufferSize = 1024 
     MSComm1.Settings = "9600,n,8,1" 
     MSComm1.PortOpen = True 
    End If 
    End Sub 
     
     
    ******* 
    Private Function Waiting(strings As String, waittime As Integer) As String 
    '接 收 Modem的 返 回 信 息 
    Dim Endtime As Long 
    Dim receivestring As String 
    Endtime = Timer + waittime 
    receivestring = "" 
    errorcode = 0 
    Do 
     DoEvents 
     If MSComm1.InBufferCount Then 
     receivestring = receivestring + MSComm1.Input 
     If InStr(1, receivestring, strings) Then 
     Exit Do 
     End If 
     End If 
     If Timer >= Endtime Or errorcode Then 
     errorcode = 1 
     Exit Do 
     End If 
    Loop 
    Waiting = receivestring 
    End Function 
     
    ********* '判 断 本 地 Modem 
     Call Openport 
     MSComm1.Output = "AT" + Chr(13) 
     mywin = Waiting("OK", 5) 
     If errorcode Then 
     'Modem未 准 备 好 ,电 话 占 线 
     Endif 
    ********* 
     '判 断 对 方 Modem 
     MSComm1.Output = "ATDT" + vbdialno + Chr(13) 
     wait = Waiting("CONNECT", 10) 
     If errorcode Then 
     '对 方 Modem未 准 备 好 ,占 线 
     Endif 
<END>