Отключение/подключение активных сетевых соединений

[_Eternity_]

Есть такая задача: есть компьютер, на нем есть активные сетевые подключения. Необходимо создать программу, которая бы при первом запуске отключала бы все активные сетевые соединения, а при повторном запуске - подключала.

Зачем это нужно? Вариантов много.

Как это сделать? В этом и весь вопрос.

Поиск примеров в интернете работы с сетевыми подключениями в нужном мне контексте особых успехов не принес. Видимо за порядочное количество лет, я так и не научилась пользоваться поисковиками

Буду благодарна за любой совет относительно реализации задачи. Хотя бы в какую стороне искать

[_Eternity_]

Нашла вот такой пример, кстати, на этом же форуме. (Я не совсем безнадежна )
В примере тупо находится в панели управления сетевые подключения и нужное соединение.

Код: Выделить всё

    On Error GoTo err
    Dim aa As New Shell
    Dim folder1 As Folder
    Dim fi As FolderItem
    Set folder1 = aa.[NameSpace](3)
            'панель управления
            For Each fi In folder1.Items()
             If LCase(fi.Name) = "сетевые подключения" Then
             
             Dim fff As Folder
            Set fff = fi.GetFolder
            Dim it1 As FolderItems2
            Dim i As Integer
            i = 0
            While fff.Items.Item(i).Name <> ""
            If LCase(fff.Items.Item(i).Name) = "ADSL_Connection" Then '''Здесь имя соединения'
                If fff.Items.Item(i).Verbs().Item(0).Name <> "&Отключить" Then
                    fff.Items.Item(i).Verbs().Item(0).DoIt
                End If
            End If
            i = i + 1
            Wend

             End If
            Next fi
    err:
    If err.Number = 91 Then Exit Sub
            Exit Sub

Буду пробовать разбираться и переделывать под свои задачи. Но все равно жду советов.

Исходный адрес кода: http://bbs.vbstreets.ru/viewtopic.php?f=1&t=39302

[_Eternity_]

Получила следующий код:

Код: Выделить всё

    Sub Main()
        Dim aa As New Shell
        Dim folder1 As Folder
        Dim fi As FolderItem
        Dim FileName As String
        FileName = "ConnectionNames.txt"

        folder1 = aa.[NameSpace](3) 'панель управления
        For Each fi In folder1.Items()
            If LCase(fi.Name) = "сетевые подключения" Or LCase(fi.Name) = "network connections" Then
                Dim tf As Folder
                tf = fi.GetFolder
                Dim i, cnt As Integer
                cnt = tf.Items.Count
                If My.Computer.FileSystem.FileExists(FileName) Then
                    FileOpen(1, FileName, OpenMode.Input)
                    Do While Not EOF(1)
                        Dim tstr As String
                        tstr = LineInput(1)
                        tstr = tstr.Substring(1, tstr.Length - 2)
                        For i = 0 To cnt - 1
                            If tf.Items.Item(i).Name = tstr And tf.Items.Item(i).Verbs().Item(0).Name <> "&Отключить" And tf.Items.Item(i).Verbs().Item(0).Name <> "&Disconnect" And tf.Items.Item(i).Verbs().Item(0).Name <> "&Disable" Then
                                tf.Items.Item(i).Verbs().Item(0).DoIt()
                                i = cnt - 1
                            End If
                        Next i
                    Loop
                    FileClose(1)
                    My.Computer.FileSystem.DeleteFile(FileName)
                Else
                    FileOpen(1, FileName, OpenMode.Output)
                    For i = 0 To cnt - 1
                        If tf.Items.Item(i).Verbs().Item(0).Name = "&Отключить" Or tf.Items.Item(i).Verbs().Item(0).Name = "&Disconnect" Or tf.Items.Item(i).Verbs().Item(0).Name = "&Disable" Then
                            WriteLine(1, tf.Items.Item(i).Name)
                            tf.Items.Item(i).Verbs().Item(0).DoIt()
                        End If
                    Next i
                    FileClose(1)
                End If
                Exit Sub
            End If
        Next fi
    End Sub


На русских ХР работает отлично, а вот английские противятся.
Не могу понять почему. Есть у кого-нибудь идеи?

Есть вариант, что все дело в & ("&Disconnect"). Проверить пока к сожалению не могу

[arvitaly]

Перебери да посмотри какое там имя кнопки

[_Eternity_]

Спасибо что хоть что-то написал а то общаюсь сама с собой тут