如何在vb中利用modem来测试到电话振铃.txt

VB技巧问答10000例,是一个教程

在 窗 体 上 建 立 两 个 控 件 
     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 
<END>