[Creat0R]

через браузер работает, а через скрипт не работает »

Нужно кодировать адреса.

Возьми отсюда библиотеку Encoding.au3 и помести рядом со скриптом.

Код:

#include <Encoding.au3>

Dim $aUrl = StringSplit(StringStripWS(StringRegExpReplace(FileRead(@ScriptDir & "\List.txt"), '(?s).*?(https?://.*?)\r?\n.*?', '\1' & @LF), 3), @LF)

$sLinks = ""

For $i = 1 To $aUrl[0]
    $sHtml = BinaryToString(InetRead("http://save2go.ru/parse/?url=" & _Encoding_URLToHex($aUrl[$i])))
    $sLink = StringRegExpReplace($sHtml, '(?s).*?<b><a href="(.*?)" target="_blank" onclick=".*">.*</a>.*', '\1')

    If @extended > 0 And $sLink <> $sHtml Then
        $sLinks &= $sLink & @CRLF
    EndIf
Next

$sLinks = StringStripWS($sLinks, 3)

;В буфер обмена
ClipPut($sLinks)

;В файл
FileWrite(@ScriptDir & '\MySuperLinks.txt', $sLinks)

скрипт забирает только первую »

А как их сортировать, или это не важно?

Код:

#include <Encoding.au3>

Dim $aUrl = StringSplit(StringStripWS(StringRegExpReplace(FileRead(@ScriptDir & "\List.txt"), '(?s).*?(https?://.*?)\r?\n.*?', '\1' & @LF), 3), @LF)

$sLinks = ""

For $i = 1 To $aUrl[0]
    $sHtml = BinaryToString(InetRead("http://save2go.ru/parse/?url=" & _Encoding_URLToHex($aUrl[$i])))
    $aLinks = StringRegExp($sHtml, '.*<b><a href="(.*)" target="_blank" onclick=".*">', 3)

    If Not @error Then
        For $sLink In $aLinks
            $sLinks &= $sLink & @CRLF
        Next
    EndIf
Next

$sLinks = StringStripWS($sLinks, 3)

;В буфер обмена
ClipPut($sLinks)

;В файл
FileWrite(@ScriptDir & '\MySuperLinks.txt', $sLinks)