HOW TO：在 Visual Basic 中撥接與序列埠連接的數據機

發行項
02/28/2013

此主題將說明如何使用 My.Computer.Ports 在 Visual Basic 中撥接數據機。

一般而言，數據機會連接至電腦上的其中一個序列埠。若要讓您的應用程式與數據機通訊，它必須傳送命令給適當的序列埠。

若要撥接數據機

判斷要將數據機連接至哪一個序列埠。此範例會假設數據機是在 COM1。
請使用 My.Computer.Ports.OpenSerialPort 方法取得對連接埠的參考。如需詳細資訊，請參閱 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 程式碼片段。在程式碼片段選擇器中，這個程式碼片段位於 [連線和網路] 中。如需詳細資訊，請參閱程式碼片段。