Hi,
ich habe vor einen automatischen Downloader zu programmieren.
Grundidee: Der User soll die .exe Datei starten und das Programm sucht auf dem Server ob eine neu Datei von diesem Monat vorhanden ist. Die Datei soll immer jeden Monat "neu" erscheinen und wird von mir mit einer entsprecheneden "Monatsendung" versehen, wie z.B. Inventarliste-Okt10.doc . Das Programm soll nun den User fragen ob diese neue Datei (für diesen Monat) gedownloadet werden soll, anschließend soll er nur noch auf einen Button klicken müssen und die Datei wird gedownloadet.
Ich stehe noch ziemlich in den Kinderschuhen, da ich auch erst seit einer woche ca. mit autoit "bastel":
Vllt könnt ihr mir ja Tipps, Beispiele usw geben
Spoiler anzeigen
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#Include <date.au3>
$pfad = @TempDir & "\"
$server = "http://www.irgendwas.de/test"
$ininame = "\config.ini"
$data = filename von Download
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Auto Download", 345, 252, 193, 125)
$Edit = GUICtrlCreateEdit("", 24, 56, 281, 129, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetState($Edit,$GUI_Disable)
GUICtrlSetData(-1, "+++ Programm wurde gestartet+++")
$Downloadbutton = GUICtrlCreateButton("Download", 24, 192, 281, 49, 0)
$Dlprogress = GUICtrlCreateProgress(24, 16, 281, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Downloadbutton
If InetGet($server,$pfad & $data,1,0) Then
MsgBox(64,"Info","Download OK")
IniWrite(@ScriptDir & $ininame,"Downloads", "Dl-" & _NowDate() , $data)
GUICtrlSetData($Dlprogress, Filesize von Datei/100)
if $Dlprogress = 100 Then MsgBox(64,"Downloader", "Die Datei wurde erfolgreich gedownloadet!")
EndSwitch
WEnd
Neu:
Spoiler anzeigen
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#Include <date.au3>
$pfad = @TempDir & "\"
$server = "http://www.irgendwas.de/test"
$ininame = "\config.ini"
$data = filename von Download
$mediaformat = "doc"
$FileList = "files.txt"
$SaveFileList = @TempDir & "\files.txt"
If InetGet($ServerUrl & $FileList,$SaveFileList,1) = 0 Then
MsgBox(48,"Fehler","Fehler beim Download der Dateiliste")
Exit 1
EndIf
Dim $fso = FileOpen($SaveFileList,0)
Dim $txt = FileRead($fso)
FileClose($fso)
$txt = StringReplace($txt,@CRLF,"|")
MsgBox(64,"File",$txt)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Auto Download", 345, 252, 193, 125)
$Edit = GUICtrlCreateEdit("", 24, 56, 281, 129, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetState($Edit,$GUI_Disable)
GUICtrlSetData(-1, "+++ Programm wurde gestartet+++")
$Downloadbutton = GUICtrlCreateButton("Download", 24, 192, 281, 49, 0)
$Dlprogress = GUICtrlCreateProgress(24, 16, 281, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Downloadbutton
$SaveFile = FileSaveDialog("Datei speichern..",@DesktopDir,"Word (*." & $mediaformat & ")",2,GUICtrlRead($FileList))
If NOT @error Then Download()
EndSwitch
WEnd
Func Download()
If InetGet($server,$pfad & $data,1,0) Then
MsgBox(64,"Info","Download OK")
IniWrite(@ScriptDir & $ininame,"Downloads", "Dl-" & _NowDate() , $data)
GUICtrlSetData($Dlprogress, Filesize von Datei/100)
if $Dlprogress = 100 Then MsgBox(64,"Downloader", "Die Datei wurde erfolgreich gedownloadet!")
EndIf
EndFunc
[/autoit]Ich hoffe ihr könnt mir helfen;
~ Johannes ~