モデムを使って電話をかける

目的

ＣＯＭポートに接続されているモデムを使用して電話をかける。

ポイント

COMポートを開いてモデムに命令を送信する。標準のモデムではATDTに続いて電話番号を指定する。

サンプルコード

Option Explicit

Private Sub cmdCall_Click()
' 指定した番号に電話をかける

    Dim strPhoneNumber As String
    strPhoneNumber = txtPhoneNumber.Text

    Open "COM2" For Output As #1   'もしくは COM1
    Print #1, "ATDT" & strPhoneNumber & Chr$(13)
    Close #1

End Sub

ソースのダウンロード