1、 被 撥 入 方 還 需 要 設 置 一 個 AT命 令 ， 才 能 響 應 呼 入 ： “ ATS0=1” 。 其 中 ， S0(是 數 字 零 ） 表 示 振 鈴 幾 次 后 應 答 ， 相 當 于 拿 起 話 筒 ， 接 通 連 接 ； s0=1表 示 一 有 呼 入 就 響 應 。 AT命 令 請 自 行 參 考 MODEM手 冊 。 
    2、 判 斷 MODEM是 否 已 連 通 ， 可 以 這 樣 做 ： （ 以 下 是 我 編 過 的 一 個 vb6的 程 序 段 ， 有 刪 節 ） 
    Sub MscommSetup() 
     … … 
     MSComm1.PortOpen = True '打 開 端 口 
     If Err Then 
     MsgBox "通 信 端 口 無 效 ,請 另 選 端 口 !", , "初 始 化 端 口 失 敗 " 
     Exit Sub 
     End If 
     cd = MSComm1.CDHolding '定 義 一 個 變 量 ， 后 面 要 用 到 
     MSComm1.Output = "ATS0=1&C1" & vbCr '初 始 化 MODEM， 你 的 初 始 化 命 令 可 能 不 同 
     '&C1表 示 追 蹤 數 據 載 波 信 號 CD 
     Do 
     DoEvents 
     Loop Until MSComm1.OutBufferCount = 0 
     If Not (MSComm1.CTSHolding And MSComm1.DSRHolding) Then 
     MsgBox "Modem沒 有 響 應 ,請 檢 查 Modem是 否 連 通 !", , "MODEM檢 測 失 敗 " 
     cmdExit_Click 
     End If 
     MSComm1.DTREnable = True 
    End Sub 
     
    Private Sub MSComm1_OnComm() 
    Select Case MSComm1.CommEvent 
    Case comEvCD '檢 測 CD狀 態 ,判 斷 是 否 連 通 
     If MSComm1.CDHolding <> cd Then 
     '是 連 通 的 
     … … 
     End If 
     … … 
    End Select 
    End Sub 
    附 ： 你 可 以 參 考 駱 云 志 、 邢 江 寫 的 《 用 VB編 制 MODEM遠 程 通 信 軟 件 》 ， 發 表 在 《 中 國 計 算 機 用 戶 》 1997.8(下 ) pp58~60 
<END> 
    撥 號 方 應 輸 出 "ATDT"+PhoneNum+Chr(13) 
    被 撥 入 方 輸 出 (1)自 動 接 收 "ATS0=1",返 回 "OK" 
     (2)人 工 應 答 "ATA" 
    在 OnComm事 件 中 
    select mscomm1.commevent 
     case comEvCD: 
     if not Connect And Mscomm1.CDHolding then 
     Connect=true '連 接 成 功 
     endif 
    end select 
<END>