Не работает прокси при открытии страницы

[avtoIT]

#include <IE.au3>
$file = FileOpen ( @ScriptDir & '\proxylist.txt', 0)
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
	 ExitLoop
	_IECreate ('http://2ip.ru')
WEnd
FileClose ($file)

Почему этот код не работает? (Важно чтобы страница именно открылась, а не прочиталась, для выполнения дальнейших действий).

 

[madmasles]

avtoIT [?]

Почему этот код не работает?

Потому, что Вы выходите из цикла до открытия страницы.

 

[avtoIT]

avtoIT [?]

Почему этот код не работает?

Потому, что Вы выходите из цикла до открытия страницы.

#include <IE.au3>

$file = FileOpen ( @ScriptDir & '\proxylist.txt', 0)
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
	HttpSetProxy (2, $line)
	_IECreate ( '2ip.ru', 0, 1, 1)
	Sleep (25000)
WEnd
FileClose ($file)

Я явно что-то не то скопировал) даже прокси не поставил.
Вот этот код почему не работает

 

[madmasles]

avtoIT [?]

Вот этот код почему не работает

HttpSetProxy() устанавливает прокси для функций InetGet() и InetRead(). Примеры установки прокси для IE есть на форуме, пользуйтесь поиском.

 

[avtoIT]

avtoIT [?]

Вот этот код почему не работает

HttpSetProxy() устанавливает прокси для функций InetGet() и InetRead(). Примеры установки прокси для IE есть на форуме, пользуйтесь поиском.

Я видел решение с изменением в реестре. Т.е. сменил внес, убрал - вернул старое значение... но... у меня оно с работало - после этого у меня подвис весь интернет и пришлось перезагружать ноутбук, слава богу, тогда все восстановилось, а то я думал, придется еще и реестр восстанавливать...

 

[Yashied]

Последнее предупреждение.

Предупреждение

За нарушение общих правил (пункт В.2):

Старайтесь избегать “Over quoting” (преувеличенное цитирование) - цитируйте только необходимую часть сообщения, которая наилучшим образом подчеркнёт суть цитируемого.

С уважением, ваш Модератор.

 

[avtoIT]

Я видел решение с изменением в реестре. Т.е. сменил внес, убрал - вернул старое значение... но... у меня оно с работало - после этого у меня подвис весь интернет и пришлось перезагружать ноутбук, слава богу, тогда все восстановилось, а то я думал, придется еще и реестр восстанавливать...

#Include <IE.au3>
Local $sProxy = "103.11.116.46:80"
Local $oIE = _IECreate()
Func Enable()
; Enable Proxy
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 1)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxy)
RefreshIE()
EndFunc
Func Disable()
; Disable Proxy
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 0)
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
RefreshIE()
EndFunc
Enable()
_IENavigate($oIE, "cualesmiip.com")
_IELoadWait
Disable()
Func RefreshIE()
    DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 39, 'str', 0, 'long', 0)
    DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 37, 'str', 0, 'long', 0)
EndFunc

Имею ввиду этот код - после него просто не работает интернет на в гугл хроме ни IE.

 

[madmasles]

avtoIT [?]

после него просто не работает интернет

У меня все работает и без DllCall. А Вы уверены, что прокси, который Вы устанавливаете, рабочий?


Добавлено:

Сообщение автоматически объединено: 6 Окт 2015

PS
Этот способ работает для сетевого соединения, а какой у Вас?

 

[avtoIT]

Да, видимо был уже невалидный прокси, но теперь проблема - IP сменился, но обратно не меняется...

У меня соединение через wi-fi...


Добавлено:

Сообщение автоматически объединено: 6 Окт 2015

Все, решил проблему, заменил

_IELoadWait

на

_IELoadWait ($oIE, 0, 70000)

Не срабатывало удаление видимо как раз из-за этого...