VBNet - Форум - On/Off Internet FSO VB6

Вопрос: On/Off Internet FSO VB6 Добавлено: 05.01.11 02:03

Автор вопроса: Don_Saliery | Web-сайт: arnoldgames.areal.ru | ICQ: 380283217

Доброго времени суток! Есть код программы на FSO, которая определяет подключения к интернету и подключены ли они. Мне нужно, чтобы была возможность эти соединения программно подключать и отключать. Возможно это?

Dim strComputer As String, objWMIService As Object, colItems As Object, objItem As Object

   strComputer = "."
   Set objWMIService = GetObject("winmgmts:" _
       & "{impersonationLevel=impersonate}!\\" & strComputer & _
           "\root\microsoft\homenet")

   Set colItems = objWMIService.ExecQuery("Select * from HNet_Connection")

   For Each objItem In colItems
       MsgBox "GUID: " & objItem.Guid
       MsgBox "Is LAN Connection: " & objItem.IsLANConnection
       MsgBox "Name: " & objItem.Name
   Next

Ответить

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

Номер ответа: 1 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #1	Добавлено: 05.01.11 02:19
	М? http://social.technet.microsoft.com/Forums/ru-RU/scrlangru/thread/13895c57-e6f6-4832-b166-fdd825c2d5f8 Ответить

Номер ответа: 2 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #2	Добавлено: 05.01.11 11:17
	Возможно конечно. Как-то давно я писал прогу для контроля и перезапуска зависающих подключений по локальной сети. Ответить

Номер ответа: 3 Автор ответа: Don_Saliery ICQ: 380283217 Вопросов: 9 Ответов: 8	Web-сайт: arnoldgames.areal.ru Профиль \| \| #3	Добавлено: 05.01.11 20:58
	Smith, исходника или примера не осталось? Или хотя бы какие Вы функции использовали? Ответить

Номер ответа: 4 Автор ответа: Don_Saliery ICQ: 380283217 Вопросов: 9 Ответов: 8	Web-сайт: arnoldgames.areal.ru Профиль \| \| #4	Добавлено: 06.01.11 01:23
	не пойму, почему этот код не работает, он должен отключать соединения с интернетом, он открывает командную строку несколько раз и не отключает, что не так? Private Sub Command10_Click() strComputer = "." NewName = "NewName" Dim wshShell As Object Set wshShell = CreateObject("Wscript.Shell") Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\microsoft\homenet") Set colItems = objWMIService.ExecQuery("Select * from HNet_Connection") For Each objItem In colItems If (objItem.IsLANConnection) Then Set ExecResult = wshShell.Exec("netsh interface set interface name = " & Chr(34) & objItem.Name & Chr(34) & " admin=disabled") Do While ExecResult.Status = 0 Sleep 200 Loop End If Next End Sub Ответить

Номер ответа: 5 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #5	Добавлено: 06.01.11 15:48
	твоих контактов не вижу MRA adamislistru стучись кину архив Ответить

Номер ответа: 6 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #6	Добавлено: 06.01.11 15:49
	у меня в архиве готовая но страшная прога, выполняла те функции которые я озвучил раньше Ответить

Номер ответа: 7 Автор ответа: Don_Saliery ICQ: 380283217 Вопросов: 9 Ответов: 8	Web-сайт: arnoldgames.areal.ru Профиль \| \| #7	Добавлено: 06.01.11 21:23
	Smith, я Вас в ICQ не нашёл! даю свой адрес: djande@mail.ru ; ICQ: 380283217 Ответить

Номер ответа: 8 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #8	Добавлено: 06.01.11 21:52
	а я и не давал УИН, я давал майл агент Ответить

Страница: 1 |