Downloader

Hallo,

Da ich in letzter zeit nur mit Visual Basic programmiert habe, dachte ich mir, ich mach mal wieder was mit AutoIt um zu sehen, was ich noch kann^^.(Ich weis ich war vorher auch nicht gut^^)
Naja hier das script:

[spoiler=Neues AutoIt Script]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Downloader | Gugi", 474, 153, 192, 124)
$Input_link = GUICtrlCreateInput("", 8, 32, 457, 21)
$Label_link = GUICtrlCreateLabel("Link:", 8, 8, 27, 17)
$Label_dateiname = GUICtrlCreateLabel("Dateiname:", 8, 56, 58, 17)
$Input_dateiname = GUICtrlCreateInput("", 8, 80, 457, 21)
$Button_download = GUICtrlCreateButton("Download", 8, 112, 457, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_download
$link = GUICtrlread($Input_link)
$dateiname = Guictrlread($Input_dateiname)
if $link = "" and $dateiname = "" Then
MsgBox(0, "Fehler", "Bitte Link und Dateiname hineinschreiben!")
elseif $link = "" Then
MsgBox(0, "Fehler", "Bitte link reinschreiben!")
elseif $dateiname = "" then
MsgBox(0, "Fehler", "Bitte Dateiname reinschreiben!")
Else
InetGet($link, $dateiname)
EndIf
EndSwitch
WEnd

Ich werde später noch was einbauen das man sehen kann wie viel schon geschafft ist vom download.

mfg Gugi

#update
Auf wunsch von stayawayknight MsgBox hinzugefügt, falls felder oder ein feld leer ist.
AutoIT durch AutoIt ersetzt.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Downloader | Gugi", 474, 153, 192, 124)
$Input_link = GUICtrlCreateInput("", 8, 32, 457, 21)
$Label_link = GUICtrlCreateLabel("Link:", 8, 8, 27, 17)
$Label_dateiname = GUICtrlCreateLabel("Dateiname:", 8, 56, 58, 17)
$Input_dateiname = GUICtrlCreateInput("", 8, 80, 457, 21)
$Button_download = GUICtrlCreateButton("Download", 8, 112, 457, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_download
$link = GUICtrlread($Input_link)
$dateiname = Guictrlread($Input_dateiname)
if $link = "" and $dateiname = "" Then
MsgBox(0, "Fehler", "Bitte Link und Dateiname hineinschreiben!")
elseif $link = "" Then
MsgBox(0, "Fehler", "Bitte link reinschreiben!")
elseif $dateiname = "" then
MsgBox(0, "Fehler", "Bitte Dateiname reinschreiben!")
Else
InetGet($link, $dateiname)
EndIf
EndSwitch
WEnd

könnt ihr das script kurz testen^^?
hab nämlich grad keinen downloadlink^^

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Downloader | Gugi", 474, 180, 192, 124)
$Input_link = GUICtrlCreateInput("", 8, 32, 457, 21)
$Label_link = GUICtrlCreateLabel("Link:", 8, 8, 27, 17)
$Label_dateiname = GUICtrlCreateLabel("Dateiname:", 8, 56, 58, 17)
$Input_dateiname = GUICtrlCreateInput("", 8, 80, 457, 21)
$Button_download = GUICtrlCreateButton("Download", 8, 112, 457, 33, $WS_GROUP)
$Label_fortschritt = GUICtrlCreateLabel("Fortschritt: ", 96, 152, 56, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_download
$link = GUICtrlread($Input_link)
$dateiname = Guictrlread($Input_dateiname)
$dateigroesse_insgesamt = inetgetsize($link)
$dateigroesse_fortschritt = filegetsize($dateiname)
$fortschritt = guictrlread($Label_fortschritt)
if $link = "" and $dateiname = "" Then
MsgBox(0, "Fehler", "Bitte Link und Dateiname hineinschreiben!")
elseif $link = "" Then
MsgBox(0, "Fehler", "Bitte link reinschreiben!")
elseif $dateiname = "" then
MsgBox(0, "Fehler", "Bitte Dateiname reinschreiben!")
Else
InetGet($link, $dateiname)
While 1
$fortschritt = "Fortschritt: " & $dateigroesse_fortschritt & " Bytes von " & $dateigroesse_insgesamt & " Bytes!"
Wend
EndIf
EndSwitch
WEnd

also pls testen und bei wems klappt bei der umfrage ja auswählen, bei wem ned nein auswählen und wer es noch nicht getestet hat das 3.^^
edit: kanns pls noch wer testen, bei einem hats geklappt beim 2. ned xD