VBNet - Форум - Как отключить инет через vb?

Вопрос: Как отключить инет через vb? Добавлено: 01.04.09 13:55

Автор вопроса: Deemon

Здравствуйте!
Очень нужно написать программу которая отключала бы инет (сетевое подключение вроде) например по кнопке. Скажите, пожалуйста, как на 2008-ом VB это реализовать?
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: DLF Вопросов: 9 Ответов: 53	Профиль \| \| #1	Добавлено: 01.04.09 22:20
	Попробуй следующее: Нужно добавить reference на компонент "Microsoft Shell Controls and Automation" на закладке COM. Imports System Imports Shell32 Public Class Form1 'Отключение - включение локальной сети Shared Sub OnOff() im shell As New ShellClass() im folder As Folder = shell.[NameSpace](3) ' панель управления For Each controlPanelItem As FolderItem In folder.Items() im name As String = controlPanelItem.Name.ToLower() If name = "сетевые подключения" Then im networkConnections As Folder = DirectCast(controlPanelItem.GetFolder, Folder) For Each networkConn As FolderItem2 In networkConnections.Items() name = networkConn.Name.ToLower() ' первым всегда идёт "отключить" или "подключить", зависит от текущего состояния im verbDisable As FolderItemVerb = networkConn.Verbs().Item(0) ' врубаем/вырубаем его verbDisable.DoIt() Next End If Next End Sub Код писал не я, но он работает(по принципу триггера, т.е. было включено - отключаем и наоборот). Уважаемый EROS в своё время не отозвался на помощь по этому вопросу(по ICQ) по-этому, как я думаю, смотри в сторону WMI для определения состояния сетевого подключения. Хотя я могу ошибаться... Пробуй. Ответить

Номер ответа: 2 Автор ответа: DLF Вопросов: 9 Ответов: 53	Профиль \| \| #2	Добавлено: 01.04.09 22:25
	Админ сайта забросил контроль за правильное отображение информации или 1-ое апреля затянулось... Если догадался, то вместо смайлов буква D. Ответить

Номер ответа: 3 Автор ответа: gvozd Разработчик Offline Client Вопросов: 164 Ответов: 1317	Web-сайт: www.gvozdsoft.com Профиль \| \| #3	Добавлено: 02.04.09 09:40
	Невероятно, но факт: Теги [ source ] [ /source ] форматируют код как код. Например: Imports System Imports Shell32 Public Class Form1 'Отключение - включение локальной сети Shared Sub OnOff() im shell As New ShellClass() im folder As Folder = shell.[NameSpace](3) ' панель управления For Each controlPanelItem As FolderItem In folder.Items() im name As String = controlPanelItem.Name.ToLower() If name = "сетевые подключения" Then im networkConnections As Folder = DirectCast(controlPanelItem.GetFolder, Folder) For Each networkConn As FolderItem2 In networkConnections.Items() name = networkConn.Name.ToLower() ' первым всегда идёт "отключить" или "подключить", зависит от текущего состояния im verbDisable As FolderItemVerb = networkConn.Verbs().Item(0) ' врубаем/вырубаем его verbDisable.DoIt() Next End If Next End Sub Ответить

Номер ответа: 4 Автор ответа: DLF Вопросов: 9 Ответов: 53	Профиль \| \| #4	Добавлено: 02.04.09 13:22
	Юмор понял... Ответить

Номер ответа: 5 Автор ответа: RomAshKo ICQ: 416844272 Вопросов: 6 Ответов: 18	Web-сайт: http://my.mail.ru/mail/roma_komlev/ Профиль \| \| #5	Добавлено: 15.04.09 04:14
	Админ сайта забросил контроль за правильное отображение информации или 1-ое апреля затянулось... Если догадался, то вместо смайлов буква D. Админ сайта забросил контроль за правильное отображение информации или 1-ое апреля затянулось... Если догадался, то вместо смайлов буква D. Ответить

Номер ответа: 6 Автор ответа: RomAshKo ICQ: 416844272 Вопросов: 6 Ответов: 18	Web-сайт: http://my.mail.ru/mail/roma_komlev/ Профиль \| \| #6	Добавлено: 15.04.09 04:14
	Админ сайта забросил контроль за правильное отображение информации или 1-ое апреля затянулось... Если догадался, то вместо смайлов буква D. Ответить

Номер ответа: 7 Автор ответа: RomAshKo ICQ: 416844272 Вопросов: 6 Ответов: 18	Web-сайт: http://my.mail.ru/mail/roma_komlev/ Профиль \| \| #7	Добавлено: 15.04.09 04:15
	ой не то вставил Вообще то просто этот смайлик 'D появляется вместо двух рядом стоящих знаков "'" и "" при чём нетолько на этом форуме а даже в ICQ,уж им точно не нужно следить за правильным написанием кода Ответить

Страница: 1 |