by Vain (1 Submission)
Category: Internet/HTML
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(4 Votes)
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
VBcodersOn 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: