Make your program detect the modem automaticaly

Category:

Miscellaneous

Type:

Applications

Difficulty:

Intermediate

Author:

KHaled El-Menshawy

Version Compatibility: Visual Basic 6

More information:

This a simple code you can write it in the form load or using a command button

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Private Sub Command1_Click()
On Error GoTo Errr
If ProgBar.Value = 100 Then
   ProgBar.Value = 0
End If
Port = 1
PortinG:
MSComm1.CommPort = Port
MSComm1.PortOpen = True
ProgBar.Value = ProgBar.Value + 20
Label1.Caption = ProgBar.Value & "%"
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 >= 6 Then
Errr:
 MsgBox "Can't Find Modem"
 GoTo done
 End If
 End If
 
 Loop Until MSComm1.InBufferCount >= 2
 
 instring = MSComm1.Input
 MSComm1.PortOpen = False
 ProgBar.Value = 100
 Label1.Caption = ProgBar.Value & "%"
 Text1.Text = "com" & Port 'MSComm1.CommPort & instring
 MsgBox "Modem found On Com" & Port
 
done:
End Sub