如何用Moden发出摘机信号？(十万火急）

[TBBT]

小弟在编写电话拨号软件(用Mscomm)，先用“ATDT”+电话号码，收到“OK”后，
可听到对方的声音，可我在话筒里喊破嗓子，对方也听不见。请问在拨通号码后，
是否要向Moden发一个命令？What?

[jiangtao]

ath既是挂机

[TBBT]

请问“挂机”是指搁下听筒的意思吗？我是要拿起听筒的命令。

[Un1]

RTS 和 DTR 必须有效!

[lqjin]

ATH1是拿起听筒，摘机
hook就是听筒架
On Hook 挂机
Off Hook 摘机

[upstream]

ath0

[TBBT]

我在拨号前用了“ATH1”命令，可还不行。各位仁兄，请帮小弟检查一下我的程序。
（RTS 和 DTR 已有效）
Private Sub Dial()
Dim DialString$, FromModem$
DialString$ = "ATDT" + phonenum + ";" + vbCr 'phonenum为包含电话号码的字符串
On Error Resume Next
MSComm1.PortOpen = True
If Err Then
Label3.Caption = "调制解调器(COM:4)无应答"
Exit Sub
End If
MSComm1.InBufferCount = 0
MSComm1.Output = "ath1;" + vbCr
MSComm1.Output = DialString$
DoEvents
Do
DoEvents
If MSComm1.InBufferCount Then
FromModem$ = FromModem$ + MSComm1.Input
If InStr(FromModem$, "OK") Then
Label3.Caption = "电话已接通..."
MSComm1.Output = "ATA+FCLASS=8;" + vbCr '置MODEN于VOICE模式
con(0) = 1
con(3) = 1
End If
End If
Loop

End Sub

[Lin]

ATH1：摘机，即那起听筒；
ATH0：挂机，即挂断。

[ratli]

其实很简单：只须将DELPHI中
MSCOMM1。DTRENABLE：=TRUE；
DELAY（100）；//延迟100毫秒
MSCOMM1。DTRENABLE：=FALSE；
即可。

[Lin]

To TBBT:
ATH1是在拨号完成并听到应答声后再发出，否则无法拨号；如果你的Modem喇叭是好的话，对方摘机并自己发出ATH1命令的话，Modem应能听到对方的声音，而话机则不能。否则相反。
所以最好在Modem传来对方的声音后再发ATH1命令，譬如通过一个按钮...

[TBBT]

加分再问

[lanren_me]

gz

[TBBT]

肯定要软件实现摘机。