Автор Тема: [Автоматизация] ICS (Общий доступ к интернету) EnableDisableICS.au3  (Прочитано 1315 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Astel064 [?]

  • Осваивающий
  • **
  • Сообщений: 260
  • Репутация: 44
  • Пол: Мужской
  • Помог мой пост, ставь +!
    • Astel064
    • Награды
  • Версия AutoIt: 3.3.6.1
AutoIt: 3.3.6.1+
Версия: 1.0

Категория: Автоматизация, Интернет, Сеть, Система

Описание: Функция для включения/отключения общего доступа к Интернету для указанного сетевого интерфейса
(нажмите для показа/скрытия)

Код/Пример:
(нажмите для показа/скрытия)

Файл: EnableDisableICS.au3

История версий:
(нажмите для показа/скрытия)

Код UDF:
(нажмите для показа/скрытия)

Источники: autoit-script.ru, kazunposh.wordpress.com
Автор(ы): Bryuhanov, Astel064


Внимание: Для просмотра прикреплённых файлов необходимо Войти или Зарегистрироваться
« Последнее редактирование: Январь 28, 2018, 20:38:21 от Astel064 »

Русское сообщество AutoIt


Оффлайн Alofa [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 1437
  • Репутация: 213
  • Пол: Мужской
  • Windows 7 /10 [x64]
    • Награды
  • Версия AutoIt: 3.3.12.0
Включать-то оно включает, а вот при отключении:
Код: AutoIt [Выделить]
_EnableDisableICS("Беспроводная сеть", "Ethernet", 0)

Func _EnableDisableICS($sPublicConnectionName, $ssPrivateConnectionName, $bEnable)
; ...
    For $oItem In $oConnectionCollection
; ...
                $EveryConnection.DisableSharing() ; <-- Скрипт падает на этой строке
; ...
    Next
; ...              
EndFunc   ;==>_EnableDisableICS

>Exit code: -1073741819Win10[x64]

Оффлайн Astel064 [?]

  • Осваивающий
  • **
  • Сообщений: 260

  • Автор темы
  • Репутация: 44
  • Пол: Мужской
  • Помог мой пост, ставь +!
    • Astel064
    • Награды
  • Версия AutoIt: 3.3.6.1
Alofa  [?]
Цитировать
Включать-то оно включает, а вот при отключении:

Давайте разберемся, почему так: мне понадобится скриншот окна "Панель управления\Сеть и Интернет\Сетевые подключения", чтобы знать, какие типы подключений Вы используете. Сам я тестировал эту функцию на Win7 x64. Проверить на Win10 возможности нет, буду благодарен, если кто-либо еще проверит ее на десятке.


Внимание: Для просмотра прикреплённых файлов необходимо Войти или Зарегистрироваться

Оффлайн mr.god [?]

  • Новичок
  • *
  • Сообщений: 2
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Я извиняюсь, а какие значения и как править в скрипте? Если вместо
Func _EnableDisableICS($sPublicConnectionName, $ssPrivateConnectionName, $bEnable)
прописать строчку
Func _EnableDisableICS("Беспроводная сеть", "Ethernet", 0)
то выдает ошибку с галочкой под первой буквой названия соединения, т.е. Б
как делать?

Русское сообщество AutoIt

Re: [Автоматизация] ICS (Общий доступ к интернету) EnableDisableICS.au3
« Ответ #3 Отправлен: Февраль 05, 2018, 16:09:44 »

Оффлайн Astel064 [?]

  • Осваивающий
  • **
  • Сообщений: 260

  • Автор темы
  • Репутация: 44
  • Пол: Мужской
  • Помог мой пост, ставь +!
    • Astel064
    • Награды
  • Версия AutoIt: 3.3.6.1
mr.god  [?]
Цитировать
Я извиняюсь, а какие значения и как править в скрипте? Если вместоFunc _EnableDisableICS($sPublicConnectionName, $ssPrivateConnectionName, $bEnable)прописать строчкуFunc _EnableDisableICS("Беспроводная сеть", "Ethernet", 0)то выдает ошибку с галочкой под первой буквой названия соединения, т.е. Бкак делать?

А скришнот (или полный текст описания) ошибки можно? Какая ОС (случайно не Win10 x64)?
Желательно кусок Вашего кода, откуда Вы запускаете функцию при включении ICS и кусок с отключением ICS...

Оффлайн mr.god [?]

  • Новичок
  • *
  • Сообщений: 2
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
я новичок, мои действия таковы - скачал ваш файлик EnableDisableICS.au3, установил программу autoit_v3.3, далее запускаю ваш файлик и ничего не происходит, потом я меняю ниже мной описанную строчку как у вас в примере, в итоге выходит допустим такая часть

#RequireAdmin

Func _EnableDisableICS(most, openvpn, 0)
Local $oNetSharingManager, $oConnectionCollection, $oItem, $EveryConnection, $objNCProps, $bFound=0

и при запуске файлика ошибка, ругается на значение в скобках. Win server 2016
Просто я допускаю, что чтото не так или не там меняю. Прошу помощи, если не трудно

Оффлайн Astel064 [?]

  • Осваивающий
  • **
  • Сообщений: 260

  • Автор темы
  • Репутация: 44
  • Пол: Мужской
  • Помог мой пост, ставь +!
    • Astel064
    • Награды
  • Версия AutoIt: 3.3.6.1
mr.god  [?]
Цитировать
я новичок, мои действия таковы - скачал ваш файлик EnableDisableICS.au3, установил программу autoit_v3.3, далее запускаю ваш файлик и ничего не происходит, потом я меняю ниже мной описанную строчку как у вас в примере, в итоге выходит допустим такая часть

Код: AutoIt [Выделить]
;Подключаем библиотеку, которая лежит в папке со скриптом (ее можно скачать из шапки темы)
#include "EnableDisableICS.au3"

; По Вашему примеру, подключение с именем most дает доступ в интернет, которым надо поделиться подключению с именем openvpn. Т.е. Интернет с most открывается для openvpn.


; Включаем общий доступ Интернета
_EnableDisableICS("most", "openvpn", 1)

; Выводим ошибку:
    If @Error Then
    MsgBox(0, "Enable ICS", "Ошибка "&@Error)
    Else
    MsgBox(0, "Enable ICS", "Успешно")
    EndIF


; Отключаем общий доступ Интернета
_EnableDisableICS("most", "openvpn", 0)

; Выводим ошибку:
    If @Error Then
    MsgBox(0, "Disable ICS", "Ошибка "&@Error)
    Else
    MsgBox(0, "Disable ICS", "Успешно")
    EndIF
 


Русское сообщество AutoIt

Re: [Автоматизация] ICS (Общий доступ к интернету) EnableDisableICS.au3
« Ответ #6 Отправлен: Февраль 05, 2018, 18:47:18 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
4 Ответов
6234 Просмотров
Последний ответ Ноябрь 15, 2010, 16:30:56
от Stells
21 Ответов
17212 Просмотров
Последний ответ Октябрь 26, 2014, 11:20:32
от max1300
5 Ответов
3966 Просмотров
Последний ответ Февраль 08, 2012, 23:36:22
от Afonichev
8 Ответов
7076 Просмотров
Последний ответ Март 15, 2012, 22:32:39
от erlik
0 Ответов
2965 Просмотров
Последний ответ Июнь 07, 2013, 17:08:04
от firex
4 Ответов
2045 Просмотров
Последний ответ Март 19, 2014, 17:21:27
от erlik
7 Ответов
2623 Просмотров
Последний ответ Сентябрь 25, 2014, 13:01:48
от ---Zak---
2 Ответов
1729 Просмотров
Последний ответ Май 15, 2015, 11:53:39
от ZeVSalt
1 Ответов
762 Просмотров
Последний ответ Декабрь 23, 2015, 13:56:22
от 11exx
14 Ответов
843 Просмотров
Последний ответ Апрель 23, 2018, 22:32:24
от CRD