Русское сообщество AutoIt

  • Май 22, 2012, 14:44:16 *
  • Добро пожаловать, Гость
Пожалуйста, войдите или зарегистрируйтесь.

Войти
Расширенный поиск  

Новости:


Последняя финальная версия AutoIt: 3.3.8.1 (Скачать)
Последняя Beta версия AutoIt: 3.3.9.4 (Скачать)

Реклама

Автор Тема: [Сеть, интернет] работа с интернет через proxy  (Прочитано 3739 раз)

0 Пользователей и 2 Гостей смотрят эту тему.

r35p3ct [?]

  • Продвинутый
  • ***
  • Репутация: 56
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 222
  • Версия AutoIt: 3
    • Награды
Требуется попасть в интернет, через proxy с авторизацией.
Код: AutoIt [Выделить]
HttpSetProxy ( mode [, "proxy:port" [, "username", "password"]] )
не помогает, пробывал и с параметрами IE, и забивал вручную. видимо из за этого:Only CERN proxy servers are supported.А для WinHttp вроде бы нельзя задать подключение с авторизацией, или я плохо смотрел.
Есть варианты решения?




  Записан

snoitaleR [?]

  • AutoIt Гуру
  • *****
  • Репутация: 172
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 729
  • Версия AutoIt: 3.3.8.0
    • Награды
r35p3ct

Как я понял отсюда, есть proxy-серверы, которые поддерживают стандарт CERN и которые не поддерживают...
Наверное, надо искать такой proxy-сервер, который поддерживает стандарт CERN...

Это предположение...




  Записан
Главное в жизни человека - это отношение...

r35p3ct [?]

  • Продвинутый
  • ***

  • Автор темы
  • Репутация: 56
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 222
  • Версия AutoIt: 3
    • Награды
Проблема в том, это proxy на работе, тоесть выбрать другой нельзя.




  Записан

snoitaleR [?]

  • AutoIt Гуру
  • *****
  • Репутация: 172
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 729
  • Версия AutoIt: 3.3.8.0
    • Награды
r35p3ct
Посмотри, может вот этот скрипт будет полезен (источник)

Код: AutoIt [Выделить]
;set parameters for using
Global $UseIntegratedSecurity = False
Global $ProxyServer = "10.0.0.1:8080"
Global $ProxyUser = "username" ;if $UseIntegratedSecurity is true (and working), these can be blank
Global $ProxyPass = "password"

;create WinHttpRequest object for downloading config info
Global $oHttp = ObjCreate ("WinHttp.WinHttpRequest.5.1")
$oHttp.SetProxy(2,$ProxyServer) ; PRECONFIG = 0 (default), DIRECT = 1, PROXY = 2

$sHTML = httpget("http://www.google.com")
ConsoleWrite($sHTML & @CRLF)

func httpget($url)
    $COMerrnotify = false
   
    If $UseIntegratedSecurity Then
        $oHttp.SetAutoLogonPolicy(0) ; Always = 0, OnlyIfBypassProxy = 1, Never = 2
    Else
        $oHttp.SetAutoLogonPolicy(2) ; Always = 0, OnlyIfBypassProxy = 1, Never = 2
    EndIf
   
    $status = $oHttp.Open("GET", $url,false)
   
    If Not $UseIntegratedSecurity Then
        $oHttp.SetCredentials($ProxyUser,$ProxyPass,0) ; HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
    EndIf
   
   
    $oHttp.Send()
    if $oHttp.Status <> "200" then
        $status = $oHttp.Status
        $StatusText = $oHttp.StatusText
        Consolewrite("Status: " & $status & @crlf)
        Consolewrite("StatusText: " & $StatusText & @crlf)
        $COMerrnotify = true
        SetError(1)
        return $status & " - " & $StatusText        
    Else
        $COMerrnotify = true
        SetError(0)
        Consolewrite("Response Headers: " & $oHttp.GetAllResponseHeaders & @crlf)
        return $oHttp.ResponseText
    EndIf
   
EndFunc

;_IEErrorHandlerRegister("ComErrFunc")
$oIEErrorHandler = ObjEvent("AutoIt.Error","ComErrFunc")
global $COMerrnotify = true
Func ComErrFunc()
    If IsObj($oIEErrorHandler) Then
        if $COMerrnotify then
            ConsoleWrite("--> ComErrFunc: COM Error Encountered in " & @ScriptName & @CR)
            ConsoleWrite("----> Scriptline = " & $oIEErrorHandler.scriptline & @CR)
            ConsoleWrite("----> Number Hex = " & Hex($oIEErrorHandler.number, 8) & @CR)
            ConsoleWrite("----> Number = " & $oIEErrorHandler.number & @CR)
            ConsoleWrite("----> Win Description = " & StringStripWS($oIEErrorHandler.WinDescription, 2) & @CR)
            ConsoleWrite("----> Description = " & StringStripWS($oIEErrorHandler.description, 2) & @CR)
            ConsoleWrite("----> Source = " & $oIEErrorHandler.Source & @CR)
            ConsoleWrite("----> Help File = " & $oIEErrorHandler.HelpFile & @CR)
            ConsoleWrite("----> Help Context = " & $oIEErrorHandler.HelpContext & @CR)
            ConsoleWrite("----> Last Dll Error = " & $oIEErrorHandler.LastDllError & @crlf)
        EndIf
        $HexNumber = Hex($oIEErrorHandler.number, 8)
        SetError($HexNumber)
    Else
        SetError(1)
    EndIf
    Return 0
EndFunc
 




  Записан

r35p3ct [?]

  • Продвинутый
  • ***

  • Автор темы
  • Репутация: 56
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 222
  • Версия AutoIt: 3
    • Награды
То, что нужно :laugh:
Код: AutoIt [Выделить]
Global $ProxyServer = "10.10.10.10:8080"
Global $ProxyUser = "name"
Global $ProxyPass = "pass"
$oHttp.SetProxy(2,$ProxyServer)
$oHttp.SetCredentials($ProxyUser,$ProxyPass,0)
 




  Записан

HukpoFuJl [?]

  • Осваивающий
  • **
  • Репутация: 26
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 90
  • Версия AutoIt: 3.3.6.1
  • AццkuЙ HukpoFuJl
    • WWW
    • Награды
Брр, может глупость скажу - но голова совсем щас не варит...
Как поставить прокси - это понятно, всё работает отлично... А как его убрать?

$oHttp.SetProxy (2,"")   ?




  Записан
Хостинг файлов и скриншотов специально созданный для autoit-script.ru:

r35p3ct [?]

  • Продвинутый
  • ***

  • Автор темы
  • Репутация: 56
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 222
  • Версия AutoIt: 3
    • Награды
Видимо...
Код: AutoIt [Выделить]
$oHttp.SetProxy(1)




  Записан

HukpoFuJl [?]

  • Осваивающий
  • **
  • Репутация: 26
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 90
  • Версия AutoIt: 3.3.6.1
  • AццkuЙ HukpoFuJl
    • WWW
    • Награды
Эмм... что-то это всё то ли и изначально не работало (я спросони проверял), или просто перестало работать по каким-либо причинам...
Хотел уточнить, правильно ли я вообще всю суть операции понимаю...
Прокси устанавливается где именно? Какие настройки и где при этом изменяются?
Я предполагаю, что это здесь:
Я прав?
Если да, то ни $oHttp.SetProxy (2,$proxy), ни HttpSetProxy (2,$proxy) у меня эту настройку менять категорически не хотят  :(
Хелп ми...

_____
OS: Windows 7 x86
AutoIt 3.3.6.1




  Записан

r35p3ct [?]

  • Продвинутый
  • ***

  • Автор темы
  • Репутация: 56
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 222
  • Версия AutoIt: 3
    • Награды
Эта опция применима только для
Код: AutoIt [Выделить]
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
к IE это никакого отношения не имеет.




  Записан

HukpoFuJl [?]

  • Осваивающий
  • **
  • Репутация: 26
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 90
  • Версия AutoIt: 3.3.6.1
  • AццkuЙ HukpoFuJl
    • WWW
    • Награды
Эта опция применима только для
Код: AutoIt [Выделить]
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
к IE это никакого отношения не имеет.
Ну почему сразу IE? Свойства обозревателя не только для него прописываются...

Действительно, сделал следующее:
Код: AutoIt [Выделить]
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHttp.SetProxy(1)
Sleep (3000)
$oHTTP.Open("GET", "http://2ip.ru/")
$oHTTP.Send("")
$oHTTP.WaitForResponse
FileWrite("no_proxy.htm",$oHTTP.Responsetext)
$oHttp.SetProxy(2,"212.45.5.172:3128")
Sleep (3000)
$oHTTP.Open("GET", "http://2ip.ru/")
$oHTTP.Send("")
$oHTTP.WaitForResponse
FileWrite("yes_proxy.htm",$oHTTP.Responsetext)
TrayTip ("Finish","",2000)
Sleep (3000)
И да, страницы выдались разные с разными IP...

Тогда вопрос: Как установить прокси не для WinHttp, а именно в свойствах обозревателя? И не для локалки, а для подключения по умолчанию (ну в общем там, где у меня на скриншоте показано было)...




  Записан

snoitaleR [?]

  • AutoIt Гуру
  • *****
  • Репутация: 172
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 729
  • Версия AutoIt: 3.3.8.0
    • Награды
HukpoFuJl

Может быть здесь есть полезная информация?




  Записан
 


Похожие темы
Тема Автор Ответов Просмотров Последний ответ
[Сеть, интернет] Функция проверки proxy на живучесть
AutoIt для новичков
dimontag 9 2224 Последний ответ Июль 21, 2010, 08:02:13
от Redline
[Сеть, интернет] Передача файла через Jabber
AutoIt для новичков
TFX 8 3172 Последний ответ Март 03, 2010, 19:13:24
от TFX
[Сеть, интернет] HTTP Basic Authentication через POST запрос
AutoIt для новичков
r35p3ct 0 2035 Последний ответ Февраль 19, 2010, 20:38:10
от r35p3ct
[Сеть, интернет] Открытие интернет-страницы браузером по умолчанию.
AutoIt для новичков
madmasles 3 4893 Последний ответ Март 16, 2010, 13:10:29
от madmasles
[Сеть, интернет] Скачать файл через IE.au3
AutoIt для новичков
r35p3ct 2 1999 Последний ответ Май 05, 2010, 22:53:28
от r35p3ct
[Сеть, интернет] Интернет авторизация
AutoIt для новичков
Arei 14 2600 Последний ответ Сентябрь 21, 2010, 09:55:21
от Александр
[Сеть, интернет] запретить доступ приложению в интернет
AutoIt для новичков
deeman313 3 2821 Последний ответ Ноябрь 01, 2010, 07:00:45
от Redline
[Сеть, интернет] Обмен по SOAP через HTTPS
Стол заказов
Zhavner 4 1346 Последний ответ Декабрь 13, 2010, 10:10:32
от Zhavner
[Сеть, интернет] Подключиться к готовому интернет соединению
AutoIt для новичков
den-x 0 305 Последний ответ Октябрь 21, 2011, 02:14:35
от den-x
[Сеть, интернет] Найти на интернет странице (в любом браузере) заданное слово и кликнуть на нем.
Автоматизация IE и Web-интерфейса
Vampire 1 349 Последний ответ Февраль 21, 2012, 17:41:42
от C2H5OH


Реклама

* Последние сообщения на форуме
post Сложение через or
[AutoIt для новичков] Serafim Сегодня в 14:35:00
post Re: Авторизация в одноклассниках
[Автоматизация IE и Web-интерфейса] Александр Сегодня в 14:33:42
post Re: [Элементы GUI] Нажать кнопку в скрытом окне
[AutoIt для новичков] InnI Сегодня в 14:31:49
post Re: Как заменить метку времени файла на севере
[Автоматизация IE и Web-интерфейса] eropov Сегодня в 14:11:37
post Re: Авторизация в одноклассниках
[Автоматизация IE и Web-интерфейса] Arei Сегодня в 13:24:59
post Re: Смена IP адресса
[AutoIt для новичков] Zaramot Сегодня в 13:04:33
post Re: Авторизация в одноклассниках
[Автоматизация IE и Web-интерфейса] Александр Сегодня в 12:59:21
post Re: Выполнение скрипта при нажатии средней кнопки мыши
[AutoIt для новичков] madmasles Сегодня в 12:23:31
post [Мышь, клавиатура] Re: Выполнение скрипта при нажатии средней кнопки мыши
[AutoIt для новичков] Nurgazy Сегодня в 12:09:36
post Re: Объясните плз, как работать с массивами ArrayAdd и прочее...
[AutoIt для новичков] madmasles Сегодня в 12:08:03

* Пользователи онлайн
  • Dot Гостей: 133
  • Dot Скрыт: 1
  • Dot Пользователей: 29
  • Dot Пользователи Online: