example in vb.net about simplewifi HOT 19 OPEN

Public Class Wifi

	Public Shared Event ConnectionStatusChanged(isConnected As Boolean)

	Public Shared ReadOnly Property IsConnected() As Boolean
		Get
			Return _wifi.ConnectionStatus = SimpleWifi.WifiStatus.Connected
		End Get
	End Property

	Public Shared Function GetAccessPoints() As List(Of SimpleWifi.AccessPoint)
		Return _wifi.GetAccessPoints().
			OrderByDescending(Function(ap) ap.SignalStrength).
			ToList()
	End Function

	Public Shared Function Connect()
		If IsConnected Then Return True

		For Each ap In GetAccessPoints().Where(Function(x) x.HasProfile)
			If Connect(ap, New SimpleWifi.AuthRequest(ap)) Then Return True
		Next

		Return False
	End Function

	Public Shared Function Connect(ap As SimpleWifi.AccessPoint, ar As SimpleWifi.AuthRequest)
		Disconnect()

		AddHandler _wifi.ConnectionStatusChanged, AddressOf Wifi_ConnectionStatusChanged

		Return ap.Connect(ar)
	End Function

	Public Shared Sub Disconnect()
		_wifi.Disconnect()

		RemoveHandler _wifi.ConnectionStatusChanged, AddressOf Wifi_ConnectionStatusChanged
	End Sub

	Private Shared _wifi As SimpleWifi.Wifi =
		New SimpleWifi.Wifi()

	Private Shared Sub Wifi_ConnectionStatusChanged(sender As Object, e As SimpleWifi.WifiStatusEventArgs)
		RaiseEvent ConnectionStatusChanged(e.NewStatus = SimpleWifi.WifiStatus.Connected)
	End Sub

End Class

Sub Main()
    'try to connect to a known network
    Wifi.Connect()

    'get all avaliable networks to choose witch one you will connect
    Dim access_points = Wifi.GetAccessPoints()

    'imagine you choose the first one
    Dim access_point = access_points.First()
    Dim auth_access = New SimpleWifi.AuthRequest(access_point)

    If auth_access.IsPasswordRequired Then
        If Not access_point.HasProfile Then
            'TODO: request password, then
            auth_access.Password = "typed password"
        End If
    End If

    'try connect with given password
    If Not Wifi.Connect(access_point, auth_access) Then
        'if not, delete profile to request new attempt
        access_point.DeleteProfile()
    End If
End Sub

Dim isNetworkAvailable = My.Computer.Network.IsAvailable
Dim isInternetAvailable = My.Computer.Network.Ping("http://google.com")

...
access_point.ConnectAsync(auth_access, onConnectComplete:=AddressOf OnConnectComplete)
...
Private Sub OnConnectComplete(isConnected As Boolean)

End Sub

    For Each ap As AccessPoint In accessPoints
        listWifi.Items.Add(ap.Name)
    Next

    Dim selectedAP As AccessPoint = listWifi.SelectedItem

End Sub`

    Dim selectedAP As AccessPoint = listWifi.SelectedItem
    Dim authRequest As AuthRequest = New AuthRequest(selectedAP)
    Wifi.Connect(selectedAP, authRequest)

End Sub`

Thanks you @marcosdvpereira