Что нового

[Сеть, интернет] Рабочий способ смены прокси (Internet Explorer)

Arei

Скриптер
Сообщения
938
Репутация
115
Под словом перезапустить что вы имеете в виду, я делаю так вначале прогоняю скрипт для изменения прокси, а потом запускаю IE.


Добавлено:
Сообщение автоматически объединено:

просто я не знал что есть 8.01 версия.
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Попробуйте так

Код:
$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); указываем прокси и порт
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
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]")
 

Dream-52

...
Сообщения
82
Репутация
1
qsort сказал(а):
Да я смотрю, они оба исчезли... Заработало!!! :laugh:
Как бы то ни было, хоть я и не использую Осла вообще, пришлось убедиться, что изменение его параметров соединения, влияет на функцию InetGet(). Сразу даже не понял, что произошло - тут же заткнулись с десяток скриптов, использующих InetGet().

не,не,я не ищез,просто девушку встречал :laugh:
Спасибо за все тебе ! :beer:


Добавлено:
Сообщение автоматически объединено:

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

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Tommy Dreams
Получилось?
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Tommy Dreams [?]
но вопрос остается..)
Какой?
Tommy Dreams [?]
Я имею ввиду как автоитом повторить движения "ручной настройки"? Это возможно ?
Я же показал вам как осуществить:
"повторить движения "ручной настройки"
 

Dream-52

...
Сообщения
82
Репутация
1
Garrett сказал(а):
Tommy Dreams [?]
но вопрос остается..)
Какой?
Tommy Dreams [?]
Я имею ввиду как автоитом повторить движения "ручной настройки"? Это возможно ?
Я же показал вам как осуществить:
"повторить движения "ручной настройки"

Извеняюсь,просто интересует как можно поменять прокси,не открывая это все.Тоесть как через реестр...только чтото оно не работает.В общем,можете тему закрыть,если считаете нужным,я не обижусь))
и что ваша аваторка это означает,если не секрет?


Добавлено:
Сообщение автоматически объединено:

qsort сказал(а):
http://dl.ie7pro.com/ie7prodl/IE7proSetup_2.4.7.exe
Самый что ни на есть "Рабочий способ смены прокси(Internet Explorer)" ;D

А что это такое то?

Всем рябятам выражаю благодарность,если что - обращайтесь,буду помогать тоже
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Вот вам ключи, которые выполняют поставленную задачу c IE7.
Думаю у IE8, коренных изменений в этом плане нет.

ВНИМАНИЕ!!!
Перед применением кода, сделайте резервную копию реестра!
C помощью RegEdit посмотрите на соответствие у себя ключей, и их значений!

Данные тестирования:
1. Один пользователь (Администратор)
2. Windows XP SP2

Код:
; Убираем прокси ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 

Guezt

Продвинутый
Сообщения
335
Репутация
82
qsort

qsort [?]
для текущего активного пользователя, а вот :

Garrett [?]
Это уже для всех пользователей.
p.s. при добавлении ключа для всех пользователей информация добавится всем пользователям в соответствующие ветки реестра автоматически ( могу ошибаться давно это было ) :smile:
 

ckret

Новичок
Сообщения
44
Репутация
0
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); указываем прокси и порт

Возможно ли использование данного способа для прокси с аутентификацией?
 
Верх