Проверка прокси.

[DmitriyM]

Здравствуйте.
Раньше пользовался этим кодом для проверки списка прокси.Работало.
Сейчас после первого прокси останавливается скрипт.Думал антивирус аваст выкидывает.Попробывал на другом диске тоже самое.

#include <File.au3>;
#include <Array.au3>

$t2 = 1; 
While $t2 <= 100;
pytdesat()
$t2 = $t2 + 1
WEnd




Func pytdesat();  
 $proxy = FileReadLine ( "100proxy.txt", 1);  считывает  1 строку из файла  
 
 $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
 $oErrorHandler = ObjEvent('AutoIt.Error', 'ErrorFunc')
 $oHTTP.Option(6) = False ;WinHttpRequestOption_EnableRedirects
 $oHTTP.Open("GET", "https://www.google.com/", False);    гет запрос на данные   
 $oHTTP.SetRequestHeader("User-Agent", "User-Agent=Mozilla/5.0 (Windows NT 10.0; WOW64; rv:60.0) Gecko/20100101 Firefox/60.0")
 $oHTTP.SetRequestHeader("Referer", "https://www.google.com/") 
 $oHTTP.SetProxy(2, $proxy); 177.37.160.60:58033
 $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded") 
 $oHTTP.Send("captchasnet_captcha_content"); отправляем данные и делаем запрос на куки 
 $HeaderResponses = $oHTTP.GetAllResponseHeaders()

 $resp=$oHTTP.ResponseText
 ;вывожу ответ сервера в файл браузера
 FileWrite("console1.html", $HeaderResponses); получаем html страницу
 Sleep(2000)
 If FileExists("console1.html") Then FileWriteLine("proxy.txt", $proxy)
 
 ;----------- после использования прокси, стереть 1-ю строку в файле 1ip.txt-----------
$no4 = FileReadLine ( "100proxy.txt",  1);  считывает 1 строку из файла   
$File = @ScriptDir & '\100proxy.txt'
$Read = FileRead($File)
$Replace = StringReplace($Read, $no4 & @CRLF, ''); в .txt    меняю первую строку  на пустое значение ''
FileDelete($File)
FileWrite($File, $Replace)
;-------------------------------------------------------------------------------------
 Sleep(2000)
 FileDelete("console1.html")
 Sleep(2000)
 EndFunc
 
;----продолжить,если ошибка 
Func ErrorFunc()
    Exit 2   
EndFunc

В чём ошибка?

Сообщение автоматически объединено: 20 Фев 2022

Почемуто не удаляется первая строка в файле '100proxy.txt.Попробывал другой функцией,тоже самое.

#include <FileConstants.au3>; для удаления сторок
Sleep(1000)
_FileWriteToLine('100proxy.txt', 1, "", 1);заменяет строку на "", удаляет строку

Может autoit обновить?

 

[ЭйчЭйч]

Не вижу применения

Func[/URL] ErrorFunc()
    [URL='https://autoit-script.ru/docs/keywords/exit.htm']Exit[/URL] 2   
[URL='https://autoit-script.ru/docs/keywords/func.htm']EndFunc

Как и пользы. Удали sleep'ы. Потом читать документацию по AutoIt.

Сообщение автоматически объединено: 21 Фев 2022

Удалшь этот ErrorFunc и Sleep, потом увидишь, чо отвалится.

 

[DmitriyM]

Без Sleep -ов никуда. А ты точно программист? Может тебе мимо? Тогда ничё не отвалится.