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

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


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


Похожие ответы
  1. Здравствуйте. Дан код, аля:vb.net1 2 3 4 5 6 7 Imports Microsoft.Office.Interop.Excel Imports Microsoft.Office.Interop   dim excel as object excel = CreateObject("Excel.Application") dim doc as object doc = excel.workbooks.open(путь к файлу).activate()Возможно ли настроить среду так, чтоб при вводе doc. появлялись варианты? .worksheets, .close, .saveas и т.д. Ссылку на microsoft office 12.0 object library подключил. Всё работает, но не подсказывает

  1. Есть папка(D:\wscom). В ней лежат файлы, папки, подпапки. на форме текстовое поле(для ввода даты за которую необходимо осуществить поиск), ListView (для вывода полного пути к файлу с его именем в первом столбце и датой и временем создания/изменения во втором) и Кнопка(по которой запускается поиск файлов) Необходимо осуществить поиск файлов созданных/измененных) за определенную дату в папке с файлами и подкаталогами. Возможно ли еще сделать таймер поиска и ProgressBar и в Label отображать имя и путь файла, который просматривается в данный момент? (по возможности) Заранее спасибо за помощь.

  1. Добрый вечер! Может кто сталкивался... Используя драг-н-дроп мы получаем массив путей к чему-попало, а вот дальше нужно это все как-то разбирать и обрабатывать. Мне нужно получить все файлы с расширением txt из всего множества того, что перетянет пользователь в окно. Но как это сделать... Ведь например попадается путь типа: ... /Desktop/object Как можно узнать что такое object? Папка? Или файл без расширения? Если файл, то ясно. Если папка, то сканируем ее содержимое и ищем текстовые файлы там (как?). Но ведь бывают же еще и папки с расширением! В общем, думаю, суть вопроса ясна. Спасибо

  1. Компилирую EXE файл (и системные файлы программы) в папку свою: Edit/system так удобнее, все файлы программы отделяю от рабочих (анализируемых *.txt, *.xlsx, *.word и т.д. - файлы в папке /Edit/ ) файлов. Чтобы добраться до рабочих файлов пишу путь в программе:vb.net1  iPath = Microsoft.VisualBasic.Left(My.Application.Info.DirectoryPath, InStrRev(My.Application.Info.DirectoryPath, "")) + "test.xlsx"Есть ли возможность написать тоже, но короче?

  1. Всем добрый вечер! Есть программа в которой по нажатию на одну из кнопок запускается EXCEL файл. Как сделать проверку установлен или нет на компьютер EXCEL. Если установлен, то открываем файл, если нет - выходит сообщение что EXCEL'я НЕТ!Добавлено через 5 минут Нашел вот такой код:vb.net1 2 3 4 5 6 7 8 Dim xlApp As Object         Try             xlApp = CreateObject("Excel.Application")             Process.Start(Application.StartupPath & "\Наклейки.xlsm")         Catch ex As SystemException             MsgBox("На этом компьютере не установлен пакет MS Office")           End TryНо при установленном на моем компьютере OFFICE и EXCEL в частности, выкидывает на строчку MsgBox("На этом компьютере не установлен пакет MS Office")Добавлено через 7 минут Изначально был вот такой код:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15         Dim msg As String         Dim title As String         Dim style As MsgBoxStyle         Dim response As MsgBoxResult         msg = "Для запуска Наклеек нужен установленный пакет MS Office.     Пакет MS Office установлен?"         style = MsgBoxStyle.DefaultButton2 Or _            MsgBoxStyle.Information Or MsgBoxStyle.YesNo         title = "Предупреждение"         response = MsgBox(msg, style, title)         If response = MsgBoxResult.Yes Then          Process.Start(Application.StartupPath & "\Наклейки.xlsm")         Me.Close()         Else         Me.Show()         End IfНо данный код выводит сообщение о вопросе ЕСТЬ ЛИ УСТАНОВЛЕННЫЙ ОФИС. ЕСЛИ ДА, ТО ОТКРЫВАЕТ ФАЙЛ, ЕСЛИ НЕТ ТО ПРОСТО ЗАКРЫВАЕТ СООБЩЕНИЕ ВЫВОДЯ ГЛАВНУЮ ФОРМУ. Но я хочу сделать это более автоматизированно и без помощью пользователя.

  1. Здравствуйте! Подскажите пожалуйста, возможно ли сохранить массив:vb.net1 2 3 Dim МассивЗвуковыхФайлов() As String = {".mp3", ".flac", ".ape",                                           ".ogg", ".waw", ".ac3",                                           ".wma", ".m4a", ".acc"}С помощью My.Settings или записывать в txt файл? У меня при работе с программой можно добавлять новые форматы файлов и чтобы каждый раз не вводить мне нужно, чтобы массив сохранялся с новыми значениями

  1. Добрый день, товарищи! Открываем ворд с помощью vb.net1 oWord = CreateObject("Word.Application")Допустим во время работы, создается много таких объектов в ворде. (закрывать их сразу нельзя по задаче) Вопрос. Как по нажатию кнопки, закрыть все ворд окна, открытые нами? Может маркер какой свой писать, или тэг... Я думаю есть же функционал такой. Может через процесс? Но я лишь знаю как закрыть все процессы ворда без разбора

  1. Собственно в теме все указано. Не подскажете как это реализовать? Хочу сделать красивый анимированный интерфейс на основе Gif анимации.

  1. Всем знатокам доброго времени суток! Вопрос, собственно, в заголовке. Сторонние программы существуют, но код на NET найти не удалось. ПОМОГИТЕ! Благодарю всех откликнувшихся.

  1. Нужно зная дату рождения определить было ли у человека в этом году День рождения или пока нет? Мой вариант:vb.net1 2 3 4 5 6 7 8         Dim BDate As Date = #11/23/1960#         Dim iRes As Integer         iRes = DateSerial(2000, DatePart("m", BDate), DatePart("d", BDate)) < DateSerial(2000, DatePart("m", Date.Today), DatePart("d", Date.Today))         If iRes = 0 Then             Label1.Text = Format(BDate, "d MMMM") & " в этом году ещё не было."         Else ' iRes = -1             Label1.Text = Format(BDate, "d MMMM") & " в этом году уже было."         End Ifкажется мне очень громоздким. Может это можно сделать как-то короче?