Descobrindo a porta COM do modem.

Já precisou descobrir em qual porta o modem esta instalado em seu programa VB. Então...

1- Inicie um novo projeto no VB e no formulário padrão insira

2- O Layout deverá ser algo como :

3- Agora insira o seguinte código no formulário : A função Mostra_Porta exibe a porta COM usada pelo Modem:

Private Sub mostra_porta()
Dim s As String
Dim iPorta As Integer
Dim n As Single
Dim bModem As Boolean

For iPorta = 1 To 4
 With MSComm1
  .CommPort = iPorta
  .Settings = "9600,N,8,1"
  .InputLen = 0
  On Error Resume Next
  .PortOpen = True
  If Err = 0 Then
    .Output = "ATV1Q0" & Chr$(13)
    n = Timer
    While Timer - n < 1
       DoEvents
    Wend
    s = s & .Input
    .PortOpen = False
    If InStr(s, "OK" & vbCrLf) <> 0 Then
        MsgBox "Modem detectado na porta ==> COM" & iPorta      
        bModem = True
        Exit For
    End If
   End If
 End With
Next
If Not bModem Then MsgBox "Nenhum modem detectado !"
End Sub

Agora basta clicar no botão de comando e invocar a função Mostra_Porta:

Private Sub Command1_Click()
  mostra_porta
End Sub

Até mais...