Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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.
Dim Time_Compare as String = Format(Now, "H:mm:ss") Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Try If conn.State = ConnectionState.Open Then conn.Close() Else conn.Open() End If strSQL1 = "SELECT DISTINCT Time_To_Check FROM FirstShift_Checklist WHERE Time_To_Check = '" & Time_Compare & "'" Dim sdr As SqlDataReader = cmd.ExecuteReader If (sdr.Read()) Then MsgBox("Do checkouts") End If sdr.Close() conn.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub
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.