faustf Posted November 21, 2015 Posted November 21, 2015 hi guyi do a script for take a freelist proxy bye this site http://freeproxylists.net/ i build this script but not worksomeone can help me ?? where i did do a mistake? thnakz alot expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.12.0 Author: myName Script Function: ESTRATTORE PROXY by Faustf #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <IE.au3> #include <MsgBoxConstants.au3> #include <StringConstants.au3> #include <InetConstants.au3> #include <WinAPI.au3> #include <WinAPIsysinfoConstants.au3> #include <WindowsConstants.au3> #include <GDIPlus.au3> #include <Misc.au3> #include <INet.au3> #include <Excel.au3> #include <File.au3> #include <Array.au3> ; VARIABILI GLOBALI Global $percorso_stati_txt = "E:\_ESTRATTORE PROXY\Proxy_list.txt" Global $oIE,$pagine = 2 If ProcessExists("iexplore.exe") Then ; Check if the internet esplorer process is running. ProcessClose("iexplore.exe") EndIf _FileBorn($percorso_stati_txt) ;creo file degli stati temporaneo _entra_dentro() ; entra dentro il sito web e arriva fino a fantaricerca e primo livello gruppi ,es. audio borse cd dvd elttrodomestici Func _1_step() Do Local $proxy_html = _IEBodyReadHTML($oIE) Local $lista = StringRegExpReplace ($proxy_html,'(?s)script><a href="http://www.freeproxylists.net/.+?.html" abp=".+?">(.*?)</a></td><td align="center" abp=".+?">(.*?)</td>', $STR_REGEXPARRAYGLOBALMATCH) _ArrayDisplay($lista) For $i = 0 To UBound($lista) - 1 _popola_txt($percorso_stati_txt, $lista[$i]) Next _IENavigate ($oIE,"http://freeproxylists.net/?page="&$pagine) _IELoadWait($oIE) $pagine +=1 Until $pagine = 21 EndFunc ; #FUNCTION# ==================================================================================================================== ; Author ........: faustf ; Modified.......: ; What do........: popola txt creato ; =============================================================================================================================== Func _popola_txt($sFilePath, $sFlieTxt) $file = FileOpen($sFilePath, 1) FileWrite($file, $sFlieTxt & @CR) FileClose($file) EndFunc ;==>_popola_txt ;#FUNCTION# ==================================================================================================================== ; Author ........: faustf ; Modified.......: ; What do........: controlla se il file esiste nella cartella se si lo cancella e ne crea uno nuovo vuoto, se no non fa nulla ; =============================================================================================================================== Func _FileBorn($sFilePath) Local $iFileExists = FileExists($sFilePath) If $iFileExists Then FileDelete($sFilePath) _FileCreate($sFilePath) Else _FileCreate($sFilePath) EndIf EndFunc ;==>_FileBorn ; #FUNCTION# ==================================================================================================================== ; Author ........: faustf ; Modified.......: ; What do........: entro dentro il sito ; =============================================================================================================================== Func _entra_dentro() $oIE = _IECreate("http://freeproxylists.net/", 0, 1, 1, 1) _IELoadWait($oIE) _1_step() EndFunc ;==>_entra_dentro
Danyfirex Posted November 21, 2015 Posted November 21, 2015 You can do this.#include <Array.au3> #include <IE.au3> Local $oIE = _IECreate("http://freeproxylists.net/") _IELoadWait($oIE) Local $oTable = _IETableGetCollection($oIE, 1) Local $aTableData = _IETableWriteToArray($oTable) _ArrayDisplay($aTableData) _IEQuit($oIE)Saludos Danysys.com AutoIt... UDFs: VirusTotal API 2.0 UDF - libZPlay UDF - Apps: Guitar Tab Tester - VirusTotal Hash Checker Examples: Text-to-Speech ISpVoice Interface - Get installed applications - Enable/Disable Network connection PrintHookProc - WINTRUST - Mute Microphone Level - Get Connected NetWorks - Create NetWork Connection ShortCut
Danyfirex Posted November 21, 2015 Posted November 21, 2015 you can do this for get all IPs#include <Array.au3> Local $lista = StringRegExp(FileRead("Data.html"),'\b(?:[0-9]{1,3}\.){3}[0-9]{1,3}\b', 3) _ArrayDisplay($lista)Saludos Danysys.com AutoIt... UDFs: VirusTotal API 2.0 UDF - libZPlay UDF - Apps: Guitar Tab Tester - VirusTotal Hash Checker Examples: Text-to-Speech ISpVoice Interface - Get installed applications - Enable/Disable Network connection PrintHookProc - WINTRUST - Mute Microphone Level - Get Connected NetWorks - Create NetWork Connection ShortCut
Danyfirex Posted November 21, 2015 Posted November 21, 2015 the code I show it read data from html file. you can use _IEBodyReadHTML. So Page seems to have captcha verification some times. Saludos Danysys.com AutoIt... UDFs: VirusTotal API 2.0 UDF - libZPlay UDF - Apps: Guitar Tab Tester - VirusTotal Hash Checker Examples: Text-to-Speech ISpVoice Interface - Get installed applications - Enable/Disable Network connection PrintHookProc - WINTRUST - Mute Microphone Level - Get Connected NetWorks - Create NetWork Connection ShortCut
faustf Posted November 21, 2015 Author Posted November 21, 2015 i use this Func _1_step() Do Local $proxy_html = _IEBodyReadHTML($oIE) Local $oTable = _IETableGetCollection($oIE, 1) Local $aTableData = _IETableWriteToArray($oTable) Local $lista = StringRegExp(FileRead("Data.html"),'\b(?:[0-9]{1,3}\.){3}[0-9]{1,3}\b', 3) _ArrayDisplay($lista) ;_ArrayDisplay($aTableData) ; _ArrayDisplay($lista) For $i = 0 To UBound($lista) - 1 _popola_txt($percorso_stati_txt, $lista[$i]) Next _IENavigate ($oIE,"http://freeproxylists.net/?page="&$pagine) _IELoadWait($oIE) $pagine +=1 Until $pagine = 21 EndFuncbut not go
Danyfirex Posted November 21, 2015 Posted November 21, 2015 try this. should work if page does not show the captcha verification to enter.#include <Array.au3> #include <IE.au3> Local $oIE = _IECreate("http://freeproxylists.net/") _IELoadWait($oIE) ConsoleWrite(_IEBodyReadHTML($oIE)) Local $lista = StringRegExp(_IEBodyReadHTML($oIE),'\b(?:[0-9]{1,3}\.){3}[0-9]{1,3}\b', 3) _ArrayDisplay($lista) _IEQuit($oIE)Saludos Danysys.com AutoIt... UDFs: VirusTotal API 2.0 UDF - libZPlay UDF - Apps: Guitar Tab Tester - VirusTotal Hash Checker Examples: Text-to-Speech ISpVoice Interface - Get installed applications - Enable/Disable Network connection PrintHookProc - WINTRUST - Mute Microphone Level - Get Connected NetWorks - Create NetWork Connection ShortCut
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now