Что нового

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

avtoIT

Новичок
Сообщения
94
Репутация
0
Код:
#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)


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

avtoIT

Новичок
Сообщения
94
Репутация
0
madmasles сказал(а):
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

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
avtoIT [?]
Вот этот код почему не работает
HttpSetProxy() устанавливает прокси для функций InetGet() и InetRead(). Примеры установки прокси для IE есть на форуме, пользуйтесь поиском.
 
Автор
A

avtoIT

Новичок
Сообщения
94
Репутация
0
madmasles сказал(а):
avtoIT [?]
Вот этот код почему не работает
HttpSetProxy() устанавливает прокси для функций InetGet() и InetRead(). Примеры установки прокси для IE есть на форуме, пользуйтесь поиском.

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

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
Последнее предупреждение.

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


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

avtoIT

Новичок
Сообщения
94
Репутация
0
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

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
avtoIT [?]
после него просто не работает интернет
У меня все работает и без DllCall. А Вы уверены, что прокси, который Вы устанавливаете, рабочий?


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

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

avtoIT

Новичок
Сообщения
94
Репутация
0
Да, видимо был уже невалидный прокси, но теперь проблема - IP сменился, но обратно не меняется...

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


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

Все, решил проблему, заменил
Код:
_IELoadWait
на
Код:
_IELoadWait ($oIE, 0, 70000)

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