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 Form1 Dim iCount As Long = 0 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim aaa = DoSomethingAndWaitAsync() End Sub Private Sub trmLabel_Tick(sender As Object, e As EventArgs) Handles trmLabel.Tick Dim iDate As DateTime = Date.UtcNow Label2.Text = iDate.ToString If iDate.Second = 59 Then iCount = 0 Else If iCount > 0 Then Label1.Text = (iCount / iDate.Second).ToString & " | " & iCount.ToString Else Label1.Text = iCount.ToString End If End If End Sub Public Async Function DoSomethingAndWaitAsync() As Task Dim i = True While (i = True) Await Task.Run(Function() DoSomething()) Await Task.Delay(1) End While End Function Function DoSomething() As Long iCount += 1 Return iCount End Function End Class
|VB.net Open Folder in Windows Explorer||3||54|
|HTML - Color not displaying correctly in EMAIL.||6||49|
|vb.net winforms sizing/resolution?||4||42|
|VB.net Duplicating a table - primary key not created||3||32|