Здравствуйте! Сегодня: Вт, 26 Сен 2017, Ваш IP: 54.198.28.114 Войти через loginza
 
Вход | Регистрация | Забыли пароль?
Мой Kbyte.Ru
> Список форумов Kbyte.Ru - - Общие вопросы программирования
+ Создать новую тему Страница: 1
Тема: Win 8.1 · +  +  дата добавления: 03.09.2016 / 21:09
Автор темы:
i32
i32
тем: 71 / ответов: 280 / благодарностей: 2 / репутация: 38
ответов: 280
создал(а) тем: 71


Привет всем .
Я так понял в w 8.1 netsh списки wi fi больше не выдает.?.
Кроме как профиля пользователя..
 Dim proc As New Process()
        proc.StartInfo.FileName = "c:\windows\system32\netsh.exe"
        proc.StartInfo.CreateNoWindow = True
        proc.StartInfo.RedirectStandardOutput = True
        proc.StartInfo.UseShellExecute = False
        proc.StartInfo.Arguments = "wlan show profiles"
        proc.StartInfo.StandardOutputEncoding = Encoding.GetEncoding(866)
       '437 (US)
       '720 (Arabic)
       '737 (Greek)
       '775 (Baltic)
        proc.Start()
        tempstr = proc.StandardOutput.ReadToEnd()
        Dim parts As String() = tempstr.Split(New Char() {":"c})
        TextBox3.Text = parts(2) & vbCrLf & parts(3)
        proc.WaitForExit()
        proc.Close()
Можно использовать Длл NativeWifi от nuget
  list.Clear()
        DataGridView1.DataSource = False
        On Error Resume Next' не знаю почему без него ошибку выдает
 Dim wlanClient = New WlanClient()
        For Each wlanInterface As WlanClient.WlanInterface In wlanClient.Interfaces
            For Each wlanBssEntry As Wlan.WlanBssEntry In wlanInterface.GetNetworkBssList()
                Dim ssid As Wlan.Dot11Ssid = wlanBssEntry.dot11Ssid
                Dim networkName As String = Encoding.ASCII.GetString(ssid.SSID, 0, CType(ssid.SSIDLength, Integer))
                Dim rss As Integer = wlanBssEntry.rssi
                Dim Q As String = wlanBssEntry.linkQuality.ToString + "%"
                Dim H As String = wlanBssEntry.chCenterFrequency.ToString
   Dim macAddr As Byte() = wlanBssEntry.dot11Bssid
                Dim sb As New StringBuilder("")
                Dim adMAC = ""
                Dim macAddrLen = CUInt(macAddr.Length)
                Dim str = New String(CInt(macAddrLen) - 1) {}
                For i As Integer = 0 To macAddrLen - 1
                    str(i) = macAddr(i).ToString("x2")
                    adMAC = String.Join(":", str)
                Next
                Dim networks() As Wlan.WlanAvailableNetwork = wlanInterface.GetAvailableNetworkList(1)
                For Each network As Wlan.WlanAvailableNetwork In networks
                    Secryr = network.dot11DefaultCipherAlgorithm.ToString()
                Next
                If Secryr = "CCMP" Then
                    Secryr = "WPA2"
                ElseIf Secryr = "TKIP" Then
                    Secryr = "WPA"
                End If
              list.Add(New Test(adMAC, networkName, rss.ToString, Q, H, Secryr))
           Next
        Next
        DataGridView1.DataSource = list

Все конечно работает .Но NativeWifi на phone не поставишь .Как быть...??
На win 10 вроде что то есть.. А что с 8.1 ..??
Технологии: Silverlight, Visual Basic .NET
 

Нет ответов в этой теме...

Страница: 1 + Создать новую тему