Я хочу определить исходящий порт модема, но мой код не показывает результат?

Question

Я хочу получить исходящий порт модема через визуальный базовый 6 Mscomm1. Я использую 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 

Answer 1

попробовать этот пример, используя встроенный в классе последовательного порта Импорт системы Импорт 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