AsyncCallback.IsCompleted : AsyncCallback « System « VB.Net by API

1. VB.Net by API
2. System
3. AsyncCallback

AsyncCallback.IsCompleted

  

Imports System.Net
Imports System.Net.Sockets


Public Class Tester
    Public Shared Sub Main

        Dim myThread As Threading.Thread
        myThread = New Threading.Thread(AddressOf BeginResolveIP)
        myThread.Start()

    End Sub
    Private Shared Sub BeginResolveIP()
        Try
            Dim myAsyncCallback As New AsyncCallback(AddressOf GetIPList)


            Dim myIAsyncResult As IAsyncResult = Dns.BeginResolve("www.google.com", myAsyncCallback, Nothing)

            Do While Not myIAsyncResult.IsCompleted
                Threading.Thread.Sleep(10)
            Loop
            Threading.Thread.Sleep(2000)
        Catch ex As SocketException
            Console.WriteLine(ex.Message)
        End Try

    End Sub

    Private Shared Sub GetIPList(ByVal pIAsyncResult As IAsyncResult)
        Dim myIPHostEntry As IPHostEntry
        myIPHostEntry = Dns.EndResolve(pIAsyncResult)

        Dim myIPAddresses() As IPAddress = myIPHostEntry.AddressList
        Dim myIPAddress As IPAddress

        For Each myIPAddress In myIPAddresses
            Console.WriteLine(myIPAddress.ToString)
        Next
    End Sub

    
End Class

   
    
  

Related examples in the same category