[Creat0R]

Слишком общий заголовок темы, переименуй во что нибудь более специфическое.

По поводу выковыривания IP:

Код:

$sString = @IPAddress2 & ":8080"
$GetValidIp = _StringIsValidIP($sString, -1, 1)
ConsoleWrite($GetValidIp)

Func _StringIsValidIP($sIP_String, $iRet_Flag=-1, $iRet_Port=0)
    If $iRet_Flag <> -1 Then Return StringRegExp($sIP_String, '\A([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})\z')

    Local $sPattern = '([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}).*'
    If $iRet_Port Then $sPattern = '([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}(?::\d{4})?).*'

    Return StringRegExpReplace($sIP_String, $sPattern, '\1')
EndFunc

[morgan1991]

Ничего не понял...
Есть текст html
В нём есть эти IP, прокси.
Нужно считать их в массив.

Код:

$Mass = StringRegExp($Text, $Pattern, 3)

Чем заполнить переменную $Pattern???

[Creat0R]

Чем заполнить переменную $Pattern? »

Код:

$sPattern = '([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}(?::\d{4})?).*'

[morgan1991]

Или я дурак или лыжи по асфальту не едут....

Код:

    Local $TempHtml = _ProxyDownload("proxies.my-proxy.com", "80", "http://proxies.my-proxy.com/")
    Local $TempFormula = StringRegExp($TempHtml, '([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}(?::\d{*})?).*', 3)
    For $i = 0 To UBound($TempFormula)-1 Step +1
        FileWrite("ttttttt.txt", $TempFormula[$i] & @CRLF)
    Next

Возвращает:

Код:

5.0.2.263
211.162.208.50
82.79.131.126

[madmasles]

morgan1991,

Вот здесь Две функции CreatoRа

Я их чуть-чуть переделал под себя(CreatoR, извини, пожалуйста):

Код:

#include <Inet.au3>

$url1 = "http://www.proxylist.net/list/pl/0/1"
$sFile = "proxy.txt"
$sTest = _INetGetSource($url1)
If $sTest <> "" Then
    $IPsArray = _StringToIPArray($sTest)
    For $i = 1 To $IPsArray[0] Step 2
        FileWrite($sFile, $IPsArray[$i] & @CRLF)
    Next
EndIf

Func _StringToIPArray($sString)
    Local $avArray = StringRegExp($sString, '(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\:\d{1,5})', 3)
    Local $avRetArr[UBound($avArray) + 1], $iUbound

    For $i = 0 To UBound($avArray) - 1
        If _StringIsValidIP($avArray[$i]) Then
            $avRetArr[0] += 1
            $avRetArr[$avRetArr[0]] = $avArray[$i]
        EndIf
    Next

    If $avRetArr[0] = 0 Then Return SetError(1, 0, 0)

    ReDim $avRetArr[$avRetArr[0] + 1]
    Return $avRetArr
EndFunc   ;==>_StringToIPArray

Func _StringIsValidIP($sIP_String, $iRet_Flag = -1)
    If $iRet_Flag <> -1 Then Return StringRegExp($sIP_String, '\A(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\:\d{1,5})\z')

    Return StringRegExpReplace($sIP_String, '(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\:\d{1,5}).*', '\1')
EndFunc   ;==>_StringIsValidIP

В приведенном примере у меня железно выбирает все IP-адреса с указанного адреса.