[proxy]

Код:

#include <IE.au3>

$oIE = _IECreate('http://www.yandex.ru/')
_IELoadWait($oIE)

$oImgs = _IEImgGetCollection ($oIE)
$iNumImg = @extended
MsgBox(0, "Img Info", "There are " & $iNumImg & " images on the page")
If $iNumImg > 0 Then
    $file = FileOpen("0.txt", 1)
    If $file = -1 Then MsgBox(64, 'Ошибка', 'При открытие файла возникла ошибка')
    For $oImg In $oImgs
        MsgBox(0, "Img Info", "src=" & $oImg.src)
        FileWriteLine($file, $oImg.src & @CRLF)
    Next
    FileClose($file)
EndIf

[beve]

Привет . Помогите с кодом. Нужно чтобы он из исходного кода страницы выхватывал строки типа "<img src="http://--------.ru/-----/----/--------_1.jpg" и Записывал в файл уже ссылки уже вот так "http://--------.ru/-----/----/--------_1.jpg" »

Вот, примерно так, если действовать по твоей задумке:

Код:

#include <INet.au3>
#include <array.au3>
;ссилку взял первую попавшуюся
$sUrl = _INetGetSource('http://dogdraw.narod.ru/links.html')

$sArray = StringRegExp( $sUrl , '.*<img src="(http://.*?.jpg).*',3,1)
$sSsilki=_ArrayToString($sArray, @CRLF, 0, UBound($sArray) - 1)

$sFile="0.txt"
$fOpen=FileOpen($sFile,1)
FileWrite($fOpen,$sSsilki)
FileClose($sFile)

[ancoder]

Спасибо огромное !!!

[proxy]

смотри выше - пример от beve