was hab ich verkakt)???

  • [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.2.12.1
    Author: Markus K.

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

    Script Function: New Pk3 Files auto downlaode

    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    #include <IE.au3>
    #Include <File.au3>

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

    #include <GUIConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Markus\Desktop\autoit-Projekts\Projects\Dowloader\Final\pfad+url abfrage.kxf
    $Form1 = GUICreate("Wolfenstein Pk3 Downloader", 633, 447, 187, 118)
    $sPicPath = StringLeft(@ScriptDir, StringInStr(@ScriptDir, "\", 0, -1)) & $sWolfenstein.jpg
    $Hintergrund = GUICtrlCreatePic($sPicPath, 0, 0, 628, 444, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    $Pfad = GUICtrlCreateInput("Pfad", 8, 320, 225, 21)
    $URL = GUICtrlCreateInput("URL", 392, 320, 225, 21)
    $OK = GUICtrlCreateButton("OK", 272, 128, 81, 41, 0)
    $Information = GUICtrlCreateLabel("z.B C:\Programme\Wolfenstein - Enemy Territory\etmain\", 8, 424, 274, 17)
    GUICtrlSetBkColor(-1, 0x004E98)
    $Information = GUICtrlCreateLabel("z.B. http://alienzown.co.uk/etmain/", 392, 424, 177, 17)
    GUICtrlSetBkColor(-1, 0x004E98)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    GUIDelete($Form1)
    ExitLoop

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

    EndSwitch
    WEnd

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

    $sPath = Guictrlread($pfad)
    $oIE = _IECreate (Guictrlread($URL))
    $oLinks = _IELinkGetCollection($oIE)
    For $oLink In $oLinks
    If StringInStr($oLink.href, "pk3") Then
    If Not FileExists($sPath & $oLink.innerHTML) Then
    InetGet($oLink.href, $sPath & $oLink.innerHTML)
    EndIf
    EndIf
    Next
    _IEQuit($oIE)

    [/autoit]
  • wenn du uns wenigstens sagen würdest was das teil macht und was nicht geht, könnten wir dir besser helfen.

    Ich vermute mal das GUIDelte ist schuld.
    Schreib mal das

    [autoit]

    $sPath = Guictrlread($pfad)
    $oIE = _IECreate (Guictrlread($URL))

    [/autoit]


    nicht hinter die while sondern vor das GUIDelete.

  • achso ja .

    >"C:\Programme\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Dokumente und Einstellungen\Markus\Desktop\autoit-Projekts\Projects\Dowloader\Wolfenstein pk3 downloader123.au3"
    C:\Dokumente und Einstellungen\Markus\Desktop\autoit-Projekts\Projects\Dowloader\Wolfenstein pk3 downloader123.au3 (20) : ==> Variable used without being declared.:
    $sPicPath = StringLeft(@ScriptDir, StringInStr(@ScriptDir, "\", 0, -1)) & $sWolfenstein.jpg
    $sPicPath = StringLeft(@ScriptDir, StringInStr(@ScriptDir, "\", 0, -1)) & (^ ERROR
    >Exit code: 1 Time: 0.336

  • Also, eigentlich muss es so lauten:

    [autoit]

    $sPicPath = StringLeft(@ScriptDir, StringInStr(@ScriptDir, "\", 0, -1)) & $sWolfenstein & ".jpg"

    [/autoit]

    lauten. Unter der Vorraussetzung, dass der NAme in der Variable steht...

  • ich will ja das der das bild nicht durch nen pfad findet sondern einfach im überordne sucht,

  • Also soll das ein String sein, oder wie?

    [autoit]

    "sWolfenstein.jpg"
    ;oder meinst du so was:
    $sWolfenstein_jpg = "sWolfenstein.jpg"

    [/autoit]
  • Das mit der Variable ist von mir so gemeint:

    Du schreibst in sie hinein, wie das Bild heißt und durch das

    [autoit]

    & ".jpg"

    [/autoit]

    wird halt die Dateiendung hinzugefügt.