Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.74/19: Рейтинг темы: голосов - 19, средняя оценка - 4.74
637 / 591 / 90
Регистрация: 19.03.2012
Сообщений: 1,123
1
.NET 4.x

Получение списка доступных Wi-Fi сетей и подключение к выбранной сети

11.02.2013, 21:59. Показов 3577. Ответов 14
Метки нет (Все метки)

Здравствуйте, уважаемые форумчане!
Googl'ил - Муглил, но ответа пока не нашёл, а вопросы таковы:

1) Как средствами vb.net получить список доступных Wi-Fi сетей и вывести их, к примеру, в ListBox?
2) Соответственно, необходимо реализовать подключение к выбранной из списка сети (шифрование WPA-PSK).

Может, кто-нибудь "копал" в этом направлении или есть, что почитать?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.02.2013, 21:59
Ответы с готовыми решениями:

Получение списка доступных COM портов
Хочу получить список портов. Нашел пару примеров под делфи. Но в них используются несуществующие...

Получение списка доступных шрифтов
Как получить список установленных в системе шрифтов?

Получение списка доступных COM портов
Всем здравствуйте. Не могу выделить в отдельную функцию работающий код. Всё что написано в...

Получение всех доступных ip из сети и последующий ping этих ip
Как в Visual Studio реализовать получение всех доступных IP из сети и последующий ping этих ip ?

14
120 / 120 / 12
Регистрация: 12.06.2010
Сообщений: 499
Записей в блоге: 2
12.02.2013, 00:17 2
Вот нашел ссылку: _http://stackoverflow.com/questions/12344874/scan-wifi-network-using-visual-basic
п.с. модераторам сори на ссылку на другой ресурс, просто мтс модем сегодня октазывается нормально работать и не хочет открывать эту страницу. Если не сложно перепостите кто нибудь код с того сайта если он там есть)
1
637 / 591 / 90
Регистрация: 19.03.2012
Сообщений: 1,123
12.02.2013, 18:37  [ТС] 3
Pe4eNEG, там на C++ только увидел. Или что-то проглядел?
0
Заблокирован
12.02.2013, 22:53 4
C# а не
Цитата Сообщение от Nachrichter Посмотреть сообщение
C++
0
65 / 39 / 3
Регистрация: 07.12.2010
Сообщений: 328
12.03.2014, 08:53 5
Так на VB никто не пробовал найти WiFi сети и подключиться?
0
4 / 4 / 0
Регистрация: 16.12.2012
Сообщений: 90
30.01.2015, 12:02 6
Цитата Сообщение от SergKr Посмотреть сообщение
найти WiFi сети
нашёл только как отобразить
0
637 / 591 / 90
Регистрация: 19.03.2012
Сообщений: 1,123
30.01.2015, 12:14  [ТС] 7
rockymcdale, и то "хлеб", поделитесь.
0
4 / 4 / 0
Регистрация: 16.12.2012
Сообщений: 90
30.01.2015, 12:27 8
Кликните здесь для просмотра всего текста

Вот ссылка на Ютуб. Под видео описание, в нём ссылка на скачивание. Единственное - на испанском программа, но там пару слов, это не проблема.
2
Модератор
Эксперт .NET
3357 / 3019 / 462
Регистрация: 27.01.2014
Сообщений: 5,608
30.01.2015, 13:00 9
Найди на Codeplex проект открытый WiFi Hotspot.разбери его. Может там что по этому вопросу будет
1
4 / 4 / 0
Регистрация: 16.12.2012
Сообщений: 90
01.03.2015, 15:08 10
Nachrichter, Вам удалось подключиться к Wi-Fi?
0
637 / 591 / 90
Регистрация: 19.03.2012
Сообщений: 1,123
02.03.2015, 18:37  [ТС] 11
rockymcdale, нехватка времени, пока не добрался...
0
8 / 8 / 0
Регистрация: 15.10.2016
Сообщений: 10
27.08.2017, 09:04 12
VB.NET
1
2
3
4
5
6
7
8
9
10
'Очистка буфера обмена
My.Computer.Clipboard.Clear()
My.Application.DoEvents()
 
'Запуск бат-файла
Dim iProcess As Process = Process.Start("C:\Users\...\Desktop\Получить список Wi-Fi сетей.bat")
iProcess.WaitForExit()
 
'Считываем текст из буфера обмена
Dim STR_SSID As String = My.Computer.Clipboard.GetText
0
Вложения
Тип файла: rar Получить список Wi-Fi сетей.rar (721 байт, 18 просмотров)
8 / 8 / 0
Регистрация: 15.10.2016
Сообщений: 10
27.08.2017, 09:19 13
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Поиск рабочего беспроводного интерфейса
Dim WI_FI_INTERFACE As NetworkInterface = Nothing
For Each WI_FI_INTERFACE In NetworkInterface.GetAllNetworkInterfaces
        If NetworkInterface.GetIsNetworkAvailable = True Then Exit For
        My.Application.DoEvents()
Next
 
'Отключение от сети
КОМАНДА$ = "netsh wlan disconnect interface=""" & WI_FI_INTERFACE.Name & """"
Shell("Cmd /c " & КОМАНДА$, AppWinStyle.Hide, True)
 
'Подключение к выбранной сети
КОМАНДА$ = "netsh wlan connect name=""" & WI_FI_ИМЯ_СЕТИ & """ ssid=""" & WI_FI_SSID_СЕТИ & """"
Shell("Cmd /c " & КОМАНДА$, AppWinStyle.Hide)
WI_FI_SSID_СЕТИ - берем из списка полученных сетей
WI_FI_ИМЯ_СЕТИ - обычно совпадает с SSID сети
0
8 / 8 / 0
Регистрация: 15.10.2016
Сообщений: 10
29.08.2017, 01:12 14
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
'Очистка ComboBox
Me.ComboBox_SSIDS.Items.Clear()
 
'Очистка буфера обмена
My.Computer.Clipboard.Clear()
My.Application.DoEvents()
 
'Получение списка сетей и вывод в буфер обмена
КОМАНДА$ = "netsh wlan show networks | clip"
Shell("Cmd /c " & КОМАНДА$, AppWinStyle.Hide, True)
 
'Получение текста из буфера обмена
Dim STR_SSID As String = My.Computer.Clipboard.GetText
 
'Формирование списка сетей в ComboBox
Dim STR_ARRAY() As String = STR_SSID.Split(vbLf)
For Each s As String In STR_ARRAY
   If s.IndexOf("SSID") <> -1 Then
      s = s.Replace(vbCr, "")
      s = s.Replace(vbLf, "")
      s = Strings.Right(s, s.Length - (s.IndexOf(":") + 2))
      If s.Replace(" ", "") <> "" Then Me.ComboBox_SSIDS.Items.Add(s)
   End If
   My.Application.DoEvents()
Next
 
'Поиск рабочего беспроводного интерфейса
Dim WI_FI_INTERFACE As NetworkInterface = Nothing
For Each WI_FI_INTERFACE In NetworkInterface.GetAllNetworkInterfaces
   If WI_FI_INTERFACE.NetworkInterfaceType = NetworkInterfaceType.Wireless80211 And _
                        NetworkInterface.GetIsNetworkAvailable = True Then Exit For
   My.Application.DoEvents()
Next
 
'Отключение от сети
КОМАНДА$ = "netsh wlan disconnect interface=""" & WI_FI_INTERFACE.Name & """"
Shell("Cmd /c " & КОМАНДА$, AppWinStyle.Hide, True)
 
'Подключение к выбранной сети
КОМАНДА$ = "netsh wlan connect name=""" & WI_FI_ИМЯ_СЕТИ & """ ssid=""" & WI_FI_SSID_СЕТИ & """"
Shell("Cmd /c " & КОМАНДА$, AppWinStyle.Hide, True)
1
78 / 71 / 4
Регистрация: 05.01.2016
Сообщений: 287
29.08.2017, 02:08 15
https://msdn.microsoft.com/en-... s.85).aspx

https://msdn.microsoft.com/ru-... s.85).aspx
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.08.2017, 02:08

Получение списка всех доступных методов из библиотеки jar
Добрый день! Подскажите пожалуйста, как получить из jar библиотеки список всех методов, которые...

При сильный нагрузке ноута не видит доступных сетей
Добрый вечер, суть проблемы: При сильный нагрузки на ноут ( игры) пропадает доступные сети при...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.