ArtemSV
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем большой привет, прошу помощи 
Как видно из приведенного скрипта, сначала меняются пути реестра, но после этого новый прокси не применяется и приходится открывать окно настроек и жмакать ОК. Но это как-то не красиво. Как корректно поменять прокси адрес (не вызывая окна настроек IE) ?
Код:
Func SetProxy($pEnable, $pAdress)
$flProxySet = 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Local $tmpItWasProxyAnable = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
Local $tmpItWasProxyAdr = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
if ($tmpItWasProxyAnable = $pEnable) and ($pAdress = $tmpItWasProxyAdr) Then
TrayTip("Current proxy settings", $pAdress, 5, 1)
TraySetToolTip("Current proxy adress is " & $pAdress)
Return(1)
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $pEnable)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $pAdress)
$Res = Run("Rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,4", "", @SW_DISABLE)
WinSetState("Свойства: Интернет", "", @SW_HIDE)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Res = WinWait("Свойства: Интернет", "", 15)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
If ($Res = 1) Then
WinSetState("Свойства: Интернет", "", @SW_HIDE)
ControlClick("Свойства: Интернет", "", "ОК")
TrayTip("Current proxy settings", $pAdress, 5, 1)
TraySetToolTip("Current proxy adress is " & $pAdress)
Else
SP_Info("Proxy settings is not been changed ...", "", 3)
Exit
EndIf
EndFunc
|
Добавлено:
И еще интересный вопрос вдогонку, как нажать кнопку "Настройка" в окне касперского 2009 ?
Вроде просто, а не получается 
http://img4.imageshack.us/img4/1607/avpt.jpg
timsky
Спасибо большое за avp скрипт. Я-то все голову ломал, куда они ключ запихнули, оказывается в поток
|
Всего записей: 6 | Зарегистр. 10-02-2008 | Отправлено: 17:52 09-04-2009 | Исправлено: ArtemSV, 13:48 10-04-2009 |
|
