Что нового

программу которая будет при каждом запуске изменять прокси.

ZanMax

Тестер
Сообщения
120
Репутация
5
Всем привет.
Вот возникла необходимость написать программу которая будет при каждом запуске изменять прокси.

Прокси ставлю вот так:
Код:
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


Но есть некоторые прокси которые просят авторизацию.
proxy.png


Пробую решить вот так:
Код:
if WinExists("Подключение к","Для входа на сервер") Then
WinActivate("Подключение к","Для входа на сервер")		
        Send($plogin)
        Send("{TAB}")
        Send($ppass)
        Send("{TAB}{TAB}")
	Send("{ENTER}")
    EndIf


Но когда я это делаю из :
Код:
$url = 'http://google.com'
$oIE = _IECreate($url)

Оно его просто не находит. Может к-то знает простой способ как решить эту проблему. Уже кучу времени потратил.
Спасибо большое.
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: [Сеть, интернет] Проблема с прокси

ZanMax [?]
программу которая будет при каждом запуске изменять прокси.
может стоит и тему назвать как-то на подобие этого? :smile:
 
Автор
Z

ZanMax

Тестер
Сообщения
120
Репутация
5
Программа то изменяет прокси но вот проблема именно при вводе логина и пароля на этот прокси.

Просто когда создаю :
Код:
$url = 'http://google.com'
$oIE = _IECreate($url)

Вот это уже не работает:

Код:
if WinExists("Подключение к","Для входа на сервер") Then

WinActivate("Подключение к","Для входа на сервер")		
        Send($plogin)
        Send("{TAB}")
        Send($ppass)
        Send("{TAB}{TAB}")
		Send("{ENTER}")
  EndIf

Кто может подсказать почему?
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
ZanMax,
ИМХО, IE блокирует дальнейшие действия. Запускайте дополнительный скрипт.
 
Верх