Здравствуйте.
Раньше пользовался этим кодом для проверки списка прокси.Работало.
Сейчас после первого прокси останавливается скрипт.Думал антивирус аваст выкидывает.Попробывал на другом диске тоже самое.
В чём ошибка?
Почемуто не удаляется первая строка в файле '100proxy.txt.Попробывал другой функцией,тоже самое.
Может autoit обновить?
Раньше пользовался этим кодом для проверки списка прокси.Работало.
Сейчас после первого прокси останавливается скрипт.Думал антивирус аваст выкидывает.Попробывал на другом диске тоже самое.
Код:
#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
В чём ошибка?
Сообщение автоматически объединено:
Почемуто не удаляется первая строка в файле '100proxy.txt.Попробывал другой функцией,тоже самое.
Код:
#include <FileConstants.au3>; для удаления сторок
Sleep(1000)
_FileWriteToLine('100proxy.txt', 1, "", 1);заменяет строку на "", удаляет строку
Может autoit обновить?
Последнее редактирование: