$ProxiEnable = RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "1"); вкл. Прокси
$LocalDisable = RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride", "REG_SZ", "*.local;<local>") ; не использовать прокси для локальных адресов
$IpPort = "192.168.100.5:8080"
$ProxiIpPort = RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $IpPort); указываем прокси и порт
IE7 Думаю, с восьмёркой тоже получится.Я имею ввиду как автоитом повторить движения "ручной настройки"? Это возможно ?
Opt("WinTitleMatchMode", 2)
While Not WinExists(" - Windows Internet Explorer")
Sleep(250)
WEnd
Send("{ALT}")
Send("{LEFT 2}")
Send("{DOWN}")
Send("{UP}")
Send("{ENTER}")
WinWait("Свойства обозревателя")
Sleep(250)
Send("^{TAB 4}")
Sleep(250)
ControlClick("Свойства обозревателя", "", "[CLASS:Button; INSTANCE:10]")
WinWait("Настройка параметров локальной сети")
ControlCommand("Настройка параметров локальной сети", "", "[CLASS:Button; INSTANCE:6]", "Check", "")
ControlSetText("Настройка параметров локальной сети", "", "[CLASS:Edit; INSTANCE:2]", "127.0.0.1")
ControlSetText("Настройка параметров локальной сети", "", "[CLASS:Edit; INSTANCE:3]", "8080")
ControlClick("Настройка параметров локальной сети", "", "[CLASS:Button; INSTANCE:12]")
ControlClick("Свойства обозревателя", "", "[CLASS:Button; INSTANCE:42]")
qsort сказал(а):Да я смотрю, они оба исчезли... Заработало!!! :laugh:
Как бы то ни было, хоть я и не использую Осла вообще, пришлось убедиться, что изменение его параметров соединения, влияет на функцию InetGet(). Сразу даже не понял, что произошло - тут же заткнулись с десяток скриптов, использующих InetGet().
Garrett сказал(а):Tommy Dreams [?]
IE7 Думаю, с восьмёркой тоже получится.Я имею ввиду как автоитом повторить движения "ручной настройки"? Это возможно ?
Код:Opt("WinTitleMatchMode", 2) While Not WinExists(" - Windows Internet Explorer") Sleep(250) WEnd Send("{ALT}") Send("{LEFT 2}") Send("{DOWN}") Send("{UP}") Send("{ENTER}") WinWait("Свойства обозревателя") Sleep(250) Send("^{TAB 4}") Sleep(250) ControlClick("Свойства обозревателя", "", "[CLASS:Button; INSTANCE:10]") WinWait("Настройка параметров локальной сети") ControlCommand("Настройка параметров локальной сети", "", "[CLASS:Button; INSTANCE:6]", "Check", "") ControlSetText("Настройка параметров локальной сети", "", "[CLASS:Edit; INSTANCE:2]", "127.0.0.1") ControlSetText("Настройка параметров локальной сети", "", "[CLASS:Edit; INSTANCE:3]", "8080") ControlClick("Настройка параметров локальной сети", "", "[CLASS:Button; INSTANCE:12]") ControlClick("Свойства обозревателя", "", "[CLASS:Button; INSTANCE:42]")
Garrett сказал(а):Tommy Dreams
Получилось?
Garrett сказал(а):
qsort сказал(а):http://dl.ie7pro.com/ie7prodl/IE7proSetup_2.4.7.exe
Самый что ни на есть "Рабочий способ смены прокси(Internet Explorer)" ;D
; Убираем прокси ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Hardware Profiles\0001\Software\Microsoft\windows\CurrentVersion\Internet Settings", _
"ProxyEnable", "REG_DWORD", "00000000")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Hardware Profiles\Current\Software\Microsoft\windows\CurrentVersion\Internet Settings", _
"ProxyEnable", "REG_DWORD", "00000000")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\0001\Software\Microsoft\windows\CurrentVersion\Internet Settings", _
"ProxyEnable", "REG_DWORD", "00000000")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\Current\Software\Microsoft\windows\CurrentVersion\Internet Settings", _
"ProxyEnable", "REG_DWORD", "00000000")
RegWrite("HKEY_USERS\S-1-5-21-839522115-1123561945-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet Settings", _
"ProxyEnable", "REG_DWORD", "00000000")
RegDelete("HKEY_USERS\S-1-5-21-839522115-1123561945-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet Settings", _
"ProxyServer")
RegWrite("HKEY_USERS\S-1-5-21-839522115-1123561945-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet", _
"ProxyEnable", "REG_DWORD", "00000000")
RegDelete("HKEY_USERS\S-1-5-21-839522115-1123561945-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet", _
"ProxyServer")
; ВНИМАНИЕ! Перезагружаем IE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Выстовляем прокси ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Hardware Profiles\0001\Software\Microsoft\windows\CurrentVersion\Internet Settings", _
"ProxyEnable", "REG_DWORD", "00000001")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Hardware Profiles\Current\Software\Microsoft\windows\CurrentVersion\Internet Settings", _
"ProxyEnable", "REG_DWORD", "00000001")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\0001\Software\Microsoft\windows\CurrentVersion\Internet Settings", _
"ProxyEnable", "REG_DWORD", "00000001")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\Current\Software\Microsoft\windows\CurrentVersion\Internet Settings", _
"ProxyEnable", "REG_DWORD", "00000001")
RegWrite("HKEY_USERS\S-1-5-21-839522115-1123561945-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet Settings", _
"ProxyEnable", "REG_DWORD", "00000001")
RegWrite("HKEY_USERS\S-1-5-21-839522115-1123561945-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet Settings", _
"ProxyServer", "REG_SZ", "127.0.0.1:8080")
RegWrite("HKEY_USERS\S-1-5-21-839522115-1123561945-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet", _
"ProxyEnable", "REG_DWORD", "00000001")
RegWrite("HKEY_USERS\S-1-5-21-839522115-1123561945-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet", _
"ProxyServer", "REG_SZ", "127.0.0.1:8080")
; ВНИМАНИЕ! Перезагружаем IE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
для текущего активного пользователя, а вот :HKEY_CURRENT_USER
Это уже для всех пользователей.HKEY_LOCAL_MACHINE
VladUs сказал(а):Попробуйте так
Код:$ProxiEnable = RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "1"); вкл. Прокси $LocalDisable = RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride", "REG_SZ", "*.local;<local>") ; не использовать прокси для локальных адресов $IpPort = "192.168.100.5:8080" $ProxiIpPort = RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $IpPort); указываем прокси и порт