Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub Form_Load() Dim port, MyPorts Dim totalport Dim X As Single Dim sInput As String Dim ModemFind As Boolean 'Compile list of ports and add to combobox For port = 1 To 16 MSComm1.CommPort = port MSComm1.Settings = "9600,N,8,1" MSComm1.InputLen = 0 On Error Resume Next MSComm1.PortOpen = True If Err.Number = 8002 Then Err.Clear End If If Err.Number = 8005 Then Err.Clear End If If Err = 0 Then If MSComm1.PortOpen = True Then MSComm1.PortOpen = False cboCommPort.AddItem (CStr(port)) totalport = totalport + 1 End If 'Use this code to detect the modem port If MSComm1.PortOpen Then MSComm1.Output = "ATV1Q0" & Chr$(13) X = Timer While Timer - X < 1 DoEvents Wend sInput = sInput & MSComm1.Input 'MSComm1.PortOpen = False If InStr(sInput, "OK" & vbCrLf) <> 0 Then cboCommPort.RemoveItem (CStr(port)) MsgBox " Modem detected on COM" & port ModemFind = True MSComm1.PortOpen = False Exit For End If If ModemFind = False Then Resume Next End If If cboCommPort.Text = "" Then cboCommPort.Text = CStr(port) End If End If Next FrmMain.StatusBar1.Panels(1).Text = "Detected available PC Comm. Ports..." start_tmrStatusBarText Err.Clear
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.