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:
Altes 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)
InetGet($link, $dateiname)
EndSwitch
WEnd
[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