через браузер работает, а через скрипт не работает »
Нужно кодировать адреса.
Возьми отсюда (http://autoit-script.ru/index.php/topic,510.0.html) библиотеку Encoding.au3 и помести рядом со скриптом.
#include (http://www.autoitscript.com/autoit3/docs/keywords.htm##include) <Encoding.au3>
Dim (http://www.autoitscript.com/autoit3/docs/keywords.htm#Dim) $aUrl = StringSplit (http://www.autoitscript.com/autoit3/docs/functions/StringSplit.htm)(StringStripWS (http://www.autoitscript.com/autoit3/docs/functions/StringStripWS.htm)(StringRegExpReplace (http://www.autoitscript.com/autoit3/docs/functions/StringRegExpReplace.htm)(FileRead (http://www.autoitscript.com/autoit3/docs/functions/FileRead.htm)(@ScriptDir (http://www.autoitscript.com/autoit3/docs/macros.htm#@scriptdir) & "\List.txt"), '(?s).*?(https?://.*?)\r?\n.*?', '\1' & @LF (http://www.autoitscript.com/autoit3/docs/macros.htm#@lf)), 3), @LF (http://www.autoitscript.com/autoit3/docs/macros.htm#@lf))
$sLinks = ""
For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 1 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) $aUrl[0]
$sHtml = BinaryToString (http://www.autoitscript.com/autoit3/docs/functions/BinaryToString.htm)(InetRead (http://www.autoitscript.com/autoit3/docs/functions/InetRead.htm)("http://save2go.ru/parse/?url=" & _Encoding_URLToHex($aUrl[$i])))
$sLink = StringRegExpReplace (http://www.autoitscript.com/autoit3/docs/functions/StringRegExpReplace.htm)($sHtml, '(?s).*?<b><a href="(.*?)" target="_blank" onclick=".*">.*</a>.*', '\1')
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) @extended (http://www.autoitscript.com/autoit3/docs/macros.htm#@extended) > 0 And (http://www.autoitscript.com/autoit3/docs/keywords.htm#And) $sLink <> $sHtml Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sLinks &= $sLink & @CRLF (http://www.autoitscript.com/autoit3/docs/macros.htm#@crlf)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)
$sLinks = StringStripWS (http://www.autoitscript.com/autoit3/docs/functions/StringStripWS.htm)($sLinks, 3)
;В буфер обмена
ClipPut (http://www.autoitscript.com/autoit3/docs/functions/ClipPut.htm)($sLinks)
;В файл
FileWrite (http://www.autoitscript.com/autoit3/docs/functions/FileWrite.htm)(@ScriptDir (http://www.autoitscript.com/autoit3/docs/macros.htm#@scriptdir) & '\MySuperLinks.txt', $sLinks)
скрипт забирает только первую »
А как их сортировать, или это не важно?
#include (http://www.autoitscript.com/autoit3/docs/keywords.htm##include) <Encoding.au3>
Dim (http://www.autoitscript.com/autoit3/docs/keywords.htm#Dim) $aUrl = StringSplit (http://www.autoitscript.com/autoit3/docs/functions/StringSplit.htm)(StringStripWS (http://www.autoitscript.com/autoit3/docs/functions/StringStripWS.htm)(StringRegExpReplace (http://www.autoitscript.com/autoit3/docs/functions/StringRegExpReplace.htm)(FileRead (http://www.autoitscript.com/autoit3/docs/functions/FileRead.htm)(@ScriptDir (http://www.autoitscript.com/autoit3/docs/macros.htm#@scriptdir) & "\List.txt"), '(?s).*?(https?://.*?)\r?\n.*?', '\1' & @LF (http://www.autoitscript.com/autoit3/docs/macros.htm#@lf)), 3), @LF (http://www.autoitscript.com/autoit3/docs/macros.htm#@lf))
$sLinks = ""
For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 1 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) $aUrl[0]
$sHtml = BinaryToString (http://www.autoitscript.com/autoit3/docs/functions/BinaryToString.htm)(InetRead (http://www.autoitscript.com/autoit3/docs/functions/InetRead.htm)("http://save2go.ru/parse/?url=" & _Encoding_URLToHex($aUrl[$i])))
$aLinks = StringRegExp (http://www.autoitscript.com/autoit3/docs/functions/StringRegExp.htm)($sHtml, '.*<b><a href="(.*)" target="_blank" onclick=".*">', 3)
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) Not (http://www.autoitscript.com/autoit3/docs/keywords.htm#Not) @error (http://www.autoitscript.com/autoit3/docs/macros.htm#@error) Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $sLink In (http://www.autoitscript.com/autoit3/docs/keywords.htm#In) $aLinks
$sLinks &= $sLink & @CRLF (http://www.autoitscript.com/autoit3/docs/macros.htm#@crlf)
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)
$sLinks = StringStripWS (http://www.autoitscript.com/autoit3/docs/functions/StringStripWS.htm)($sLinks, 3)
;В буфер обмена
ClipPut (http://www.autoitscript.com/autoit3/docs/functions/ClipPut.htm)($sLinks)
;В файл
FileWrite (http://www.autoitscript.com/autoit3/docs/functions/FileWrite.htm)(@ScriptDir (http://www.autoitscript.com/autoit3/docs/macros.htm#@scriptdir) & '\MySuperLinks.txt', $sLinks)