USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Descobrindo a porta COM do modem
Postada em 24/8/2003 por Ð@®l@n            
Já precisou descobrir em qual porta o modem esta instalado em seu programa VB. Então...

'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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página