Windows环境下的串行数据通信程序设计

到“OK”
    Beep''已经接收到“OK”,发蜂呜声
    MsgBox"对方电话已经拨通,请摘话机并按回车或OK钮”
    Exit Do
          End If
        End If
        If CancelFlag Then''若Cancel钮按下则处理
          CancelFlag=False
          Exit Do
        End If
      Loop
      Commi.Output="ATH"+Chr$(13)''挂断命令
      Commi.PortOpen=False''关闭该口
    End Sub
    Sub DialButton_Click()''Dial按钮处理程序
      Dim Number$,Temp$
    DialButton.Enabled=False''Dial,Quit二个按钮同时无效
    QuitButton.Enabled=False
    CancelButton.Enabled=True''开放Cancel按钮
    Number$=PhoneNumbers$(List1.ListIndex))''获得一个电话号码
    Temp$=Status''保存状态
    Status$=“正在拨号码:”+Number$
    Dial Number