#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.2.12.1
Author: Markus K.
Script Function: New Pk3 Files auto downlaode
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]#include <IE.au3>
#Include <File.au3>
#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 ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
GUIDelete($Form1)
ExitLoop
EndSwitch
WEnd
$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)