|
|
|
|
|
|
|
|
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
|
|
|
|
|
