我想檢測調制解調器的傳出端口，但我的代碼未能顯示我的結果？

我想通過Visual Basic 6 Mscomm1獲得Modem的傳出端口。我正在爲我的調制解調器使用Nokia c2 0i。代碼連接調制解調器併發送消息。我的問題是我如何獲得正確的調制解調器傳出端口並在消息框中顯示其名稱。請檢查我的代碼進行修正：我想檢測調制解調器的傳出端口，但我的代碼未能顯示我的結果？

Private Sub Timer1_Timer() 
Dim FromModem$ 
On Error Resume Next 
For i% = 1 To 6 
MSComm1.CommPort = i% 
If MSComm1.PortOpen = False Then 
MSComm1.PortOpen = True 
MSComm1.InBufferCount = 0 
Label8.Caption = " PORT " & i% 
pb1.Value = pb1.Value + 10 
List2.AddItem i% 
Text1.Text = "Searching Modem Port" & i% 
MSComm1.Output = "AT" + Chr$(13) 
Sleep 4000 
If MSComm1.InBufferCount Then 
FromModem$ = FromModem$ + MSComm1.Input 
If InStr(FromModem$, "OK") Then 
MsgBox "Modem has Found" & i% 
Beep 400, 300 
Timer1.Enabled = False 
Exit For 
End If 
Else 
MSComm1.PortOpen = False 
End If 
End If 
DoEvents 
Next i% 
If i% > 6 Then 
Timer1.Enabled = False 
End If 
End Sub

來源

2013-12-14 user3101983

你覺得它是否可以將代碼添加回代碼中？這使得它更消耗。而當你在它嘗試修復我的一些interpction和captilization，並刪除謝謝。這不是必需的。 – rene

什麼不行？你能用其他方法連接到你的調制解調器嗎？ – rene

通過使用內置的串行端口類 進口系統進口System.IO.Ports 模塊SerialPortExample

嘗試這個例子

Sub Main() 
     Dim ports As String() = SerialPort.GetPortNames() 
     Dim port As String 
     For Each port In ports 

      'put your function here 
     YourTestPort(port) 'Call the Open port function then Send AT(char(13)) 

     Next port 

    End Sub 
End Module

來源

2013-12-14 11:34:28 Jade

我想檢測調制解調器的傳出端口，但我的代碼未能顯示我的結果？

回答

相關問題