• Home
 · 
• Internet/HTML
 · 
• Modem Comm

Modem Comm

this code finds what comm port your modem is on. the modem must be on for it to work
you need mscomm and a textbox
thats it

Rate Modem Comm

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

On Error GoTo errr:
port = 1
PortinG:
MSComm1.CommPort = port
MSComm1.PortOpen = True
Form1.MSComm1.Settings = "9600,N,8,1"
MSComm1.Output = "AT" + Chr$(13)
x = 1
Do: DoEvents
x = x + 1
If x = 1000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 2000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 3000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 4000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 5000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 6000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 7000 Then
MSComm1.PortOpen = False
port = port + 1
GoTo PortinG:
If MSComm1.CommPort >= 5 Then
errr:
MsgBox "Can't Find Modem!"
GoTo done:
End If
End If
Loop Until MSComm1.InBufferCount >= 2
instring = MSComm1.Input
MSComm1.PortOpen = False
  Text1.Text = MSComm1.CommPort & instring
MsgBox "Modem Found On Comm" & port
done: