Включить или отключить подключение по локальной сети - Visual Basic .NET

Формулировка задачи:

как на vb.net включить или отключить подключение по локальной сети? необходимо по таймеру, например в каждую субботу в 20.00 компьютер отключался от сети, делал архив папки, а затем включал сеть обратно!дайте код! заранее спасибо!!

Код к задаче: «Включить или отключить подключение по локальной сети - Visual Basic .NET»

textual
Imports System
Imports Shell32
 
Public Class Form1
 
 
    'Отключение - включение локальной сети
 
    Shared Sub OnOff()
 
        Dim shell As New ShellClass()
 
        Dim folder As Folder = shell.[NameSpace](3)
 
        ' панель управления
 
        For Each controlPanelItem As FolderItem In folder.Items()
 
            Dim name As String = controlPanelItem.Name.ToLower()
 
            If name = "сетевые подключения" Then
 
                Dim networkConnections As Folder = DirectCast(controlPanelItem.GetFolder, Folder)
 
                For Each networkConn As FolderItem2 In networkConnections.Items()
 
                    name = networkConn.Name.ToLower()
 
 
                    ' первым всегда идёт "отключить" или "подключить", зависит от текущего состояния
 
                    Dim verbDisable As FolderItemVerb = networkConn.Verbs().Item(0)
 
                    ' врубаем/вырубаем его
 
                    verbDisable.DoIt()
 
                Next
 
            End If
 
        Next
 
    End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.455 из 5


СДЕЛАЙТЕ РЕПОСТ