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.
Public Class One Private Delegate Sub Logger(ByVal _message As String) Dim t As Threading.Thread Dim WithEvents oTwo As New Two Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click t = New Threading.Thread(AddressOf oTwo.startCounting) t.Start() End Sub Private Sub updateList(ByVal entry As String) ListBox1.Items.Add(entry) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click t.Abort() End Sub Sub ThreadLogging(ByVal entry As String) Handles oTwo.LogUpdated Invoke(New Logger(AddressOf updateList), entry) Dim writer As Logger writer = AddressOf updateList writer.Invoke(entry) End Sub End Class Public Class Two Public Event LogUpdated(ByVal entry As String) Public Sub startCounting() Dim count As Integer = 0 While True WriteMonitorLog(count.ToString) count += 1 Threading.Thread.Sleep(100) End While End Sub Private Sub WriteMonitorLog(ByVal entry As String) RaiseEvent LogUpdated(entry) End Sub End Class
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.