Downloader für Homeserver (NAS System)

#include <Array.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GuiComboBoxEx.au3>
#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>
#include <ListBoxConstants.au3>
#include <GuiListBox.au3>
#include <StaticConstants.au3>
;Bilder einbinden
; Url zum Webverzeichnis
Global $ServerUrl = "http://bennes-music.no-ip.biz/Files/"
;Dim $ServerUrl = "http://testuser:qwert@http://www.kroegers-web.de/testdaten/"
; Dateiliste die runtergeladen werden soll
Global $FileList = "files.txt"
;Notiz
Global $Notice = "notice.txt"
;Speicherpfad für die Liste
Global $SaveFileList = @TempDir & "\files.txt"
;Speicherpfad für die Notiz
Global $SaveNotice = @TempDir & "\notice.txt"
;Textdatei laden
If InetGet($ServerUrl & $FileList, $SaveFileList, 1) = 0 Then
MsgBox(48, "Fehler...", "Fehler beim download der Dateiliste")
Exit 1
EndIf
;Notiz Laden
If InetGet($ServerUrl & $Notice, $SaveNotice, 1) = 0 Then
MsgBox(48, "Fehler...", "Fehler beim download der Notiz")
Exit 1
EndIf
;Dateiliste zum lesen öffnen
Global $fso = FileOpen($SaveFileList, 0)
;Notiz zum Lesen öffnen
Global $fsn = FileOpen($SaveNotice, 0)
;Inhalt der Datei einlesen
Global $txt = FileRead($fso)
;Inhalt der Notiz einlesen
Global $ntxt = FileRead($fsn)
;Dateiliste schliessen
FileClose($fso)
;Notiz schließen
FileClose($fsn)
;@CRLF aus der $txt Variabele entfernen
$txt = StringReplace($txt, @CRLF, "|")

;##################################
; Email Variables
;##################################
Global $SmtpServer = "smtp.googlemail.com" ; address for the smtp-server to use - REQUIRED
Global $FromName = "MusicLoader" ; name from who the email was sent
Global $FromAddress = "********" ; address from where the mail should come
Global $ToAddress = "*******************" ; destination address of the email - REQUIRED
Global $Subject = "Neuer Titel!" ; subject from the email - can be anything you want it to be
Global $Body = "Nachrichtentext" ; the messagebody from the mail - can be left blank but then you get a blank mail
Global $AttachFiles = "" ; the file you want to attach- leave blank if not needed
Global $CcAddress = "" ; address for cc - leave blank if not needed
Global $BccAddress = "" ; address for bcc - leave blank if not needed
Global $Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
Global $Username = "********" ; username for the account used from where the mail gets sent - REQUIRED
Global $Password = "********" ; password for the account used from where the mail gets sent - REQUIRED
;~ $IPPort = 25 ; port used for sending the mail
;~ $ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
Global $IPPort = 465 ; GMAIL port used for sending the mail
Global $ssl = 1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Global $txtList = StringSplit($txt, "|"), $txtlistlen, $txtliststart, $txtlistcount, $txtlistresult, $nMsg, $id
$txt = ""
For $i = 1 To $txtList[0]
$txtlistlen = StringLen($txtList[$i]) + 1
$txtliststart = StringInStr($txtList[$i], "/") + 1
If $txtliststart = 0 Then
$txt = $txt & $i & "-" & $txtList[$i] & "|"
Else
$txtlistcount = $txtlistlen - $txtliststart
$txtlistresult = StringMid($txtList[$i], $txtliststart, $txtlistcount)
$txt = $txt & $i & "-" & $txtlistresult & "|"
EndIf
Next
$txt = StringTrimRight($txt, 1)
;Form suche
Global $hSuche = GUICreate("Treffer ", 350, 300, 1000, 325)
Global $hListBox = GUICtrlCreateList("", 2, 2, 340, 250, BitOR($WS_BORDER, $LBS_NOTIFY, $LBS_DISABLENOSCROLL, $WS_VSCROLL))
Global $hOK = GUICtrlCreateButton("OK", 24, 270, 100, 20)
Global $hAbbruch = GUICtrlCreateButton("Abbruch", 200, 270, 100, 20)
GUISetState(@SW_HIDE)
;Form
Global $frmMain = GUICreate("Musik Loader", 285, 540, 693, 325)
Global $File = GUICtrlCreateInput("Suche", 24, 200, 235, 20, 0)
Global $Suche = GUICtrlCreateButton("Suche", 24, 225, 237, 25, 0)
Global $PlayButton = GUICtrlCreateButton("Play Music =)", 24, 255, 237, 25, 0)
Global $NoticeWindow = GUICtrlCreateEdit($ntxt, 24, 285, 237, 250, BitOR($WS_VSCROLL, $ES_READONLY))
Global $SongAskInput = GUICtrlCreateInput("Welches Lied fehlt?", 24, 132, 233, 20, 0)
Global $SongAskSend = GUICtrlCreateButton("Absenden", 24, 155, 234, 25, 0)
Global $pcbDownload = GUICtrlCreateProgress(24, 64, 233, 17)
Global $infoLabel = GUICtrlCreateLabel("", 24, 84, 233, 25);, $SS_CENTER )
Global $cmdButton = GUICtrlCreateButton("Start Download", 24, 103, 233, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $FileList = GUICtrlCreateCombo("FileList", 24, 24, 233, 25)
GUICtrlSetData(-1, $txt)
GUISetState(@SW_SHOW)
;Variable für die derzeit Ausgewählte Datei
Global $selectet
;Variable für die Dateiendung
Global $mediaformat
;Speicherort
Global $SaveFile, $Auswahl, $sText, $rc, $aSearchResult

While 1
$nMsg = GUIGetMsg(1); Erweiterte Messageabfrage einschalten
Switch $nMsg[1]; Switch Message from HwnD
Case $frmMain;Message von der Hauptgui
Switch $nMsg[0];Switch GuiControls
Case $GUI_EVENT_CLOSE
Exit
Case $cmdButton
$SaveFile = FileSaveDialog("Datei Speichern...", @DesktopDir, "Musik (*." & $mediaformat & ")", 2, GUICtrlRead($FileList))
If Not @error Then RunDownload()
Case $FileList
GUICtrlSetData($infoLabel, "")
$id = StringLeft(GUICtrlRead($FileList), StringInStr(GUICtrlRead($FileList), "-") - 1)
$selectet = $ServerUrl & $txtList[$id]
InetGetSize($selectet)
If @error Then
GUICtrlSetState($cmdButton, $GUI_DISABLE)
Else
GUICtrlSetState($cmdButton, $GUI_ENABLE)
EndIf
$mediaformat = StringRight(GUICtrlRead($FileList), 3)
Case $SongAskSend
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, "Hey, der neue Titel:" & GUICtrlRead($SongAskInput), $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error!", "E-mail konnte nicht gesandt werden!")
Else
MsgBox(0, "Song Mail!", "Die E-mail wurde erfolgreich versand an:" & $ToAddress)
EndIf
Case $PlayButton
SoundPlay($selectet)
Case $Suche
$aSearchResult = _Titelsuche(GUICtrlRead($File))
If $aSearchResult[0] = 0 Then
MsgBox(0, "Suche", "Es wurde nichts gefunden ")
Else
_GUICtrlListBox_BeginUpdate($hListBox)
For $i = 1 To $aSearchResult[0]
_GUICtrlListBox_AddString($hListBox, $aSearchResult[$i])
Next
_GUICtrlListBox_UpdateHScroll($hListBox)
_GUICtrlListBox_EndUpdate($hListBox)
_GUICtrlListBox_SetCurSel($hListBox, 0)
GUISetState(@SW_SHOW, $hSuche)
EndIf
EndSwitch
Case $hSuche;Message von der TrefferGui
Switch $nMsg[0];Switch GuiControls
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hSuche)
_GUICtrlListBox_ResetContent($hListBox)
Case $hAbbruch
GUISetState(@SW_HIDE, $hSuche)
_GUICtrlListBox_ResetContent($hListBox)
Case $hOK
$Auswahl = _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox))
For $i = 0 To _GUICtrlComboBox_GetCount($FileList)
_GUICtrlComboBox_GetLBText($FileList, $i, $sText)
If StringInStr($sText, $Auswahl, 0) > 0 Then _GUICtrlComboBox_SetCurSel($FileList, $i)
Next
GUICtrlSetData($infoLabel, "")
$id = StringLeft(GUICtrlRead($FileList), StringInStr(GUICtrlRead($FileList), "-") - 1)
$selectet = $ServerUrl & $txtList[$id]
InetGetSize($selectet)
If @error Then
GUICtrlSetState($cmdButton, $GUI_DISABLE)
Else
GUICtrlSetState($cmdButton, $GUI_ENABLE)
EndIf
$mediaformat = StringRight(GUICtrlRead($FileList), 3)
GUISetState(@SW_HIDE, $hSuche)
_GUICtrlListBox_ResetContent($hListBox)
EndSwitch
EndSwitch
WEnd
Func _Titelsuche($sTitel)
Local $aTempArray[1], $Count = 0
$aTempArray[0] = 0
For $i = 1 To $txtList[0]
If StringInStr($txtList[$i], $sTitel, 0) > 0 Then
_ArrayAdd($aTempArray, $txtList[$i])
$Count += 1
$aTempArray[0] = $Count
EndIf
Next
Return $aTempArray
EndFunc ;==>_Titelsuche
Func RunDownload()
Local $FileSize,$curFileSize, $curSize
GUISetState(@SW_DISABLE)
$FileSize = InetGetSize($selectet)
InetGet($selectet, $SaveFile, 1, 1)
$curSize = 0
Do
GUICtrlSetData($pcbDownload, $curSize)
$curFileSize = FileGetSize($SaveFile)
$curSize = $curFileSize * 100
$curSize = $curSize / $FileSize
$curSize = Ceiling($curSize)
$curFileSize = Round($curFileSize / 1024 / 1024, 2)
GUICtrlSetData($infoLabel, $curFileSize & " - " & Round($FileSize / 1024 / 1024, 2) & " MB (" & $curSize & "%)")
Sleep(200)
Until $curSize >= 99
GUISetState(@SW_ENABLE)
GUICtrlSetData($infoLabel, "Download beendet!!!")
GUICtrlSetData($pcbDownload, 0)
EndFunc ;==>RunDownload

;######### Der ganze Email Kram ###########
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment($S_Files2Attach[$x])
Else
ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
If Number($IPPort) = 0 Then $IPPort = 25
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Set Email Importance
Switch $s_Importance
Case "High"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
$objEmail = ""
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
Local $HexNumber
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc