DSAPIWifi热点的扫描与连接

    Private Wifi As New DSAPI.网络.Wifi

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        '--------扫描Wifi热点
        Win7链接列表框1.链接项列表.Clear()
        Dim 所有热点() As DSAPI.网络.Wifi.Wifi热点 = Wifi.扫描可用Wifi热点
        For Each 热点 As DSAPI.网络.Wifi.Wifi热点 In 所有热点
            Win7链接列表框1.链接项列表.Add(New 链接项(热点.SSID名称))
        Next


        '--------连接wifi热点
        Dim 已连接网络 As Boolean = If(DSAPI.网络.当前已联网的网络连接 Is Nothing, False, True)
        If 已连接网络 Then Exit Sub
        For Each 热点 As DSAPI.网络.Wifi.Wifi热点 In 所有热点
            If 热点.SSID名称 = "dskj-bj" Then
                Wifi.连接到Wifi热点(热点.SSID名称, "123123123")
                Exit For
            End If
        Next
    End Sub