Link suchen und Speichern!

  • Also ich wollte wissen ob ich zum beispiel einen link speichern kann ohne auf den draufzuklicken!
    Sprich ich geh auf eine Seite da steht Download , der Download link sollte sich dan speichern . Das mit dem speichern bekomme ich hin also das brauche ich nicht nur das mit dem Link vom Download suchen und speichern verstehe ich nicht .

    2 Mal editiert, zuletzt von Secret1994 (13. Oktober 2010 um 01:00)

  • also es geht nur darum das er halt paar seiten durschsucht und wen es das Wort downloaden findet sollte es darauf klicken.
    EDIT:

    Ich habe es soweit schon geschaft:

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>
    Global $ini = @ScriptDir & "\Zahlen.ini"
    $oIE = _IECreate("http://www.fpsbanana.com/maps/download/12165")

    [/autoit] [autoit][/autoit] [autoit]

    $sMyString = "DOWNLOAD"
    $oLinks = _IELinkGetCollection($oIE)
    For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringInStr($sLinkText, $sMyString) Then
    $link = _IEAction($oLink, "copy")
    IniWrite($ini, "Nummern", "Id",@CRLF&$link)

    [/autoit] [autoit][/autoit] [autoit]

    ExitLoop
    EndIf
    Next

    [/autoit]

    Jetzt wird zwar download gefunden aber nur als zahl 1 abgespeichert und nicht der link von Download, jetzt noch ein Problem ^^ .Vor dem eigenltichem Download link steht noch ein Download link den ich aber nicht brauche ich will nur den zweiten download link kann man das auch einstellen?

    Einmal editiert, zuletzt von Secret1994 (12. Oktober 2010 um 09:14)

  • Ich habe zwar keine Lösung für dein Problem mit dem IE, aber falls die Seiten immer gleich aufgebaut sind kriegst du so den Downloadlink

    [autoit]

    $sHtml = BinaryToString(InetRead("http://www.fpsbanana.com/maps/download/12165"),8)

    [/autoit][autoit][/autoit][autoit]

    $sLink = _FindLink($sHtml)
    If Not @error Then
    ;In Textdatei schreiben oder oder.. ;)
    MsgBox(0,"Link found",$sLink)
    ClipPut($sLink)
    EndIf

    [/autoit][autoit][/autoit][autoit]

    Func _FindLink($sSource)
    Local $aLink = StringRegExp($sSource,'href="([^"]+)">DOWNLOAD</a>',3)
    If @error Then
    ConsoleWrite("_FindLink returned with Error "&@Error&@CRLF)
    Return SetError(1,0,0)
    EndIf
    Return $aLink[0]
    EndFunc

    [/autoit]

    Lg, Fabian