用 Modem 拨号,如何用程序判断对方是在振铃,还是占线?

[lcm]

用 Modem 拨号,如何用程序判断对方是在振铃,还是占线? 用 VB 编程

[lqjin]

拨号完毕后，如对方是在占线MODEM会马上返回BUSY标志，
如对方是在振铃MODEM会过一段时间返回BUSY标志，而这
一段时间是可设的。
可以根据时间来判断。

[wjl]

读medom状态,如果返回信息包含busy(一般在拨号10~20s后返回)则表示占线

[Yangyang]

调用GetCommModemStatus(FHandle,lpModemStat);
FHandle为串口句柄，如果lpModemState & MS_RING_ON=TRUE ，then RING_ON.
或者读串口接收的数据，如果返回的结果码为RING,表示振铃，BUSY 则为占线。

[lcm]

非常感谢指教, 你说的是VC++编程,能否用VB编程?

[Un1]

......
Private Sub MSComm1_OnComm()

......
Case comEvRecive

If MSComm1.CDHolding Then
......
Else
strModem = strModem & StrConv(MSComm1.Input, vbUniCode)
End If

......


Private Sub Timer1_Timer()

......

If MSComm1.CDHolding Then
......
Else
Select Case lngModemState
......
Case conlngModemStateDialing
If Instr(strModem, vbCrLf & "BUSY" & vbCrLf) Then
'dial busy proc
ElseIf
......
ElseIf
......
End If