如何在VB中利用MODEM来测试到电话振铃

编号：QA001639
建立日期: 1999年9月1日 最后修改日期：1999年9月1日
所属类别：

Visual Basic - 网络与通信

谢沅皓:
    vb
    win97
    请问如何在VB中利用MODEM来测试到电话振铃?

回答:

    在窗体上建立两个控件
     1) MSComm 将Name属性改为Comm
     2) Timer 将Name属性改为Time
    程序代码为：
    Private Sub Form_Load()
     Comm.CommPort = 2 '设置Modem所在的端口
     Comm.PortOpen = True '打开通讯口
     Time.Interval = 500
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
     Comm.PortOpen = False '关闭通讯口
    End Sub
    
    Private Sub Time_Timer()
     Dim Buffer As Variant
     Buffer = LTrim(Comm.Input) '获得Modem的响应信息
     If InStr(Buffer, "RING") > 0 Then Debug.Print "振铃" '如果是振铃则显示振铃
    End Sub

此问题由SUNTECH回答。

把这个问题推荐给朋友         您的意见类别 更好的答案 希望得到进一步解释 我有有关代码可以提供给网友 链接错误 文字错误 其他 您的名字 您的电子邮件 您的建议(请尽可能详细)