方法 : Visual Basic で、シリアルポートに接続されているモデムをダイヤルする

[アーティクル]
08/16/2008

更新 : 2007 年 11 月

このトピックでは、Visual Basic で My.Computer.Ports を使用してモデムをダイヤルする方法を説明します。

通常、モデムはコンピュータのいずれかのシリアルポートに接続されています。アプリケーションがモデムとやり取りするためには、適切なシリアルポートにコマンドを送信する必要があります。

モデムをダイヤルするには

モデムが接続されているシリアルポートを確認します。この例では、モデムが COM1 に接続されていることを前提としています。
My.Computer.Ports.OpenSerialPort メソッドを使用して、ポートへの参照を取得します。詳細については、「My.Computer.Ports.OpenSerialPort メソッド」を参照してください。

Using ブロックを使用すると、アプリケーションが例外を生成した場合でも、シリアルポートを閉じることができます。シリアルポートを操作するコードは、このブロックまたは Try...Catch...Finally ブロック内に記述する必要があります。
```
Using com1 As IO.Ports.SerialPort = _
        My.Computer.Ports.OpenSerialPort("COM1", 9600)
End Using
```
DtrEnable プロパティを設定し、コンピュータがモデムからの伝送を受け取る準備ができたことを通知します。
```
com1.DtrEnable = True
```
Write メソッドを使用して、ダイヤルコマンドと電話番号をシリアルポート経由でモデムに送信します。
```
com1.Write("ATDT 555-0100" & vbCrLf)
```

使用例

Sub DialModem()
    ' Dial a number via an attached modem on COM1.
    Using com1 As IO.Ports.SerialPort = _
            My.Computer.Ports.OpenSerialPort("COM1", 9600)
        com1.DtrEnable = True
        com1.Write("ATDT 555-0100" & vbCrLf)
        ' Insert code to transfer data to and from the modem.
    End Using
End Sub

このコードの例は、IntelliSense コードスニペットとしても利用できます。コードスニペットピッカーでは、これは [接続とネットワーク] にあります。詳細については、「方法 : コードにスニペットを挿入する (Visual Basic)」を参照してください。

コードのコンパイル方法

この例では、System 名前空間への参照が必要です。

堅牢性の高いプログラム

この例では、モデムが COM1 に接続されていることを前提としています。作成するコードでは、利用可能なシリアルポートの一覧から、目的のポートをユーザーが選択できるようにすることをお勧めします。詳細については、「方法 : Visual Basic で利用可能なシリアルポートを表示する」を参照してください。

この例では、アプリケーションが例外をスローした場合でもポートが閉じられるよう、Using ブロックを使用しています。詳細については、「Using ステートメント (Visual Basic)」を参照してください。

この例では、アプリケーションは、モデムをダイヤルした後でシリアルポートを切断しています。実際には、モデムとの間でデータの転送が必要となります。詳細については、「方法 : Visual Basic でシリアルポートから文字列を受信する」を参照してください。