[Сеть, интернет] Корректная смена прокси в IE

[Ranos1982]

Подскажите как корректно сменить прокси в IE с помощью autoit? Просто как то пробывал - не получилось,код привести не могу,так как пишу с телефона.

 

[VladUs]

Func _SetProxy ($sPort, $sServer)
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") 
$objShare = $objWMIService.Get("Win32_Proxy.ServerName='Localhost'")
$objInParam = $objShare.Methods_("SetProxySetting").inParameters.SpawnInstance_()
$objInParam.Properties_.Item("ProxyPortNumber") =  $sPort
$objInParam.Properties_.Item("ProxyServer") =  $sServer
$objOutParams = $objWMIService.ExecMethod("Win32_Proxy.ServerName='Localhost'", "SetProxySetting", $objInParam)
EndFunc

_SetProxy("8090","Proxytest.Com")

 

[Ranos1982]

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

 

[Arei]

такой способ для XP не подходит.

 

[VladUs]

Arei [?]

такой способ для XP не подходит.

Это почему он не подходит ?

 

[Arei]

да соглашусь,что он меняет в настройках сети локальную сеть, порт и адрес, но есть такая штука как подключения и там он не меняет, где должен,т.е адрес и порт берутся от туда.

 

[Ranos1982]

там можно както способом от VladUs сделать прокси для каждого обьекта (ie) ?

 

[Ranos1982]

Может мне все же ктото подскажет....(если не трудно) :whistle:

 

[Arei]

я например не понял, про это каждого обьекта!Что это такое?

 

[Ranos1982]

Arei

имею ввиду,можно ли таким способом сделать прокси для каждого

_IECreateEmbedded

(обьекта) . Это вообще реально..?

 

[Garrett]

Arei

имею ввиду,можно ли таким способом сделать прокси для каждого

_IECreateEmbedded

(обьекта) . Это вообще реально..?

Нет. Настройки прокси едины, даже GC использует настройки IE.
Можно написать свой прокси, и тогда у вас появится выбор. ;)

 

[axlwor]

где то на просторах встречал прокси/аноним.
заходишь на этот сайт. в поле вбиваешь адрес куда хочешь потом попасть. и дальше работаешь
или
http://proxy1/http://proxy2/URLсайта

 

[Astel064]

Func _SetProxy ($sPort, $sServer)
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$objShare = $objWMIService.Get("Win32_Proxy.ServerName='Localhost'")
$objInParam = $objShare.Methods_("SetProxySetting").inParameters.SpawnInstance_()
$objInParam.Properties_.Item("ProxyPortNumber") =  $sPort
$objInParam.Properties_.Item("ProxyServer") =  $sServer
$objOutParams = $objWMIService.ExecMethod("Win32_Proxy.ServerName='Localhost'", "SetProxySetting", $objInParam)
EndFunc

_SetProxy("8090","Proxytest.Com")

А есть способ отключить использование прокси?

 

[Se7enstars]

Приветь!
А почему у меня в консоль такой текст?

--> Press Ctrl+Alt+F5 to Restart or Ctrl+Break to Stop
C:\Documents and Settings\Krutoy-Nol\??????? ????\My Browser.au3 (60) : ==> The requested action with this object has failed.:
$objShare = $objWMIService.Get("Win32_Proxy.ServerName='Localhost'")
$objShare = $objWMIService.Get("Win32_Proxy.ServerName='Localhost'")^ ERROR
->04:11:32 AutoIT3.exe ended.rc:1

 

[madmasles]

Se7enstars,
Не надо разукрашивать посты.