[архив

ChVL · Отправлено: **19:44, 26-07-2007** | #**191**

Creat0R

Цитата:

Нужно отключить полностью интернет, и подключить через несколько секунд заного..

В любом файерволле есть опция "Заблокировать интернет".

Creat0R · Конфигурация компьютера

ChVL

Цитата:

В любом файерволле есть опция "Заблокировать интернет".

У меня нет файрвола (не считая виндовский), и возможно у многих моих друзей тоже его нет, и как это связано с переподключением? и как это связано с AutoIT?
Мне нужно программно переподключиться

Спасибо за попытку помочь

Я даже на оф. форум спрашивал, неужели это так сложно? мне казалось что это будет простое решение, но видимо в реале всё совсем иначе

Creat0R · Конфигурация компьютера

amel27

Цитата:

временно выставить настройки на несуществующий прокси

Упс, как я этого не заметил... а подробнее можно плиз? как можно скриптом выставить настройки прокси?

И как это поможет пересоеденить сеть?

ChVL · Отправлено: **09:26, 27-07-2007** | #**194**

Теперь понятно, что Вам надо перезапуск соединения. Конечно, отключение/подключение интернет с помощью файерволла соединение не затрагивает.
Тем не менее перезапуск в каком месте? Чего? Сетевой карты? Модема? VPN? Просто виндусового апплета Сетевые подключения? IMHO, в одной программе все варианты подключений (добавить сюда ещё спутник, ускорители, всякие прокси) вряд ли удастся учесть.

Creat0R · Конфигурация компьютера

ChVL

Цитата:

перезапуск в каком месте? Чего? Сетевой карты? Модема? VPN? Просто виндусового апплета Сетевые подключения?

Обычное подключение через модем/роутер - какие порты используется не должно играть особой роли, я хочу вызвать тоже действие, что происходит при вызое пункта Отключить/Подключить из контекстного меню умолчального соединения (из папки “Сетевые подключения”).

Цитата:

в одной программе все варианты подключений (добавить сюда ещё спутник, ускорители, всякие прокси) вряд ли удастся учесть

Тогда нет смысла вообще программировать

Я понимаю что AutoIt немного для других целей назначался, но всё же в нём поддерживаются и COM-обьекты, и вызов Dll, и ещё многое другое, не думаю что это не реализуемо, на аутоите реализовывались(ются) вещи и покруче

.

ChVL · Отправлено: **10:45, 27-07-2007** | #**196**

Creat0R
Может посмотреть команды rundll32? Там что-то есть среди Network.

amel27 · Отправлено: **11:05, 27-07-2007** | #**197**

Creat0R
правка прокси это скорей "запрет на использование", чем переинициализация физического подключения, которое действительно зависит от типа подключения - для диалапа и VPN у меня RasDial и отключает и подключает.

Creat0R · Конфигурация компьютера

ChVL

Цитата:

Может посмотреть команды rundll32?

Да вот есть у меня ссылочка, но что-то она не работает уже

amel27

Цитата:

RasDial и отключает и подключает

Для отключения я знаю срабатывает Rasdial /Disconnect, а как обратно подключать?

У меня подключение через модем (VPN - Минипорт WAN (PPTP)).

amel27 · Отправлено: **11:30, 27-07-2007** | #**199**

Creat0R

Цитата:

а как обратно подключать?

у меня при сохраненных параметрах соединения срабатывает Rasdial <имя_соединения>

Кстати еще вариант - поместить ярлык соединения на рабочий стол, а дальше через контекстное меню.

Creat0R · Конфигурация компьютера

amel27

Цитата:

срабатывает Rasdial <имя_соединения>

У меня нет

- даже из батника пробую...

Код:

@echo off
rasdial /disconnect
ping -n 3 localhost > nul
rasdial 012
pause

012 это имя подключения (судя по имени самого значка в "Сетевые подключения") - но пишет ошибку:

Цитата:

Ошибка службы удаленного доступа 691 - Доступ запрещен, поскольку такие имя
пользователя или пароль недопустимы в этом домене.

Цитата:

поместить ярлык соединения на рабочий стол, а дальше через контекстное меню

Эх, другого выхода и нет, я так до сих пор и делаю, правда не ярлыком, а прямым (точнее кривым) доступом в "Сетевые подключения":

Код:

#include <GuiConstants.au3>
Opt("RunErrorsFatal", 0)
Opt("WinTitleMatchMode", 4)
Opt("TrayMenuMode", 1)
TraySetIcon('shell32.dll', 14)

$NetwConnectTitle = IniRead(@ScriptDir & "\ReConnector.ini", "Config", "Network Connections Folder Title", "")
If $NetwConnectTitle = "" Then $NetwConnectTitle = "Network Connections"

BlockInput(1)
ConnectWinShow()

If Not WinExists($NetwConnectTitle) Then Run(@ComSpec & " /c ncpa.cpl", "", @SW_HIDE)
;ShellExecute("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}")

WinWait($NetwConnectTitle, "", 5)
WinActivate($NetwConnectTitle)
WinWaitActive($NetwConnectTitle, "", 3)

If Not WinExists($NetwConnectTitle) Then
    BlockInput(0)
    Exit
EndIf

Send("{Down}")
Send("{Up}")
Sleep(100)
Send("^+{F10}")
Send("{Down}")
Send("{Enter}")

WinSetState($NetwConnectTitle, "", @SW_DISABLE)
WinSetState($NetwConnectTitle, "", @SW_MINIMIZE)
Sleep(5000)
WinSetState($NetwConnectTitle, "", @SW_RESTORE)
WinSetState($NetwConnectTitle, "", @SW_ENABLE)

WinActivate($NetwConnectTitle)
WinWaitActive($NetwConnectTitle, "", 3)

Send("^+{F10}")
Send("{Down}")
Send("{Enter}")

If WinExists($NetwConnectTitle) Then WinClose($NetwConnectTitle)
BlockInput(0)

Func ConnectWinShow()
    Local $ConnectGui = GUICreate("ReConnectProc", 300, 110, 0, 0, $WS_POPUP+$WS_BORDER, $WS_EX_TOOLWINDOW+$WS_EX_TOPMOST)

    GUICtrlCreateIcon('shell32.dll', 14, 130, 10, 36, 36)

        GUICtrlCreateLabel("Пожалуйста подождите, переподключаюсь...", 0, 60, 300, 30, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 600, 0, "Tahoma")

    GUISetState(@SW_SHOW, $ConnectGui)
EndFunc