hier möchte ich euch mein neustes autoit programm vorstellen. es ist dafür gedacht downloads zu sortieren. verbesserungsvorschläge und feedbacks sind willkommen!
die gui um die settings einzustellen
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
$dlpfad = IniRead("dph's_dls_settings.ini", "Settings", "Downloadpfad", "")
$moviedls = IniRead("dph's_dls_settings.ini", "Settings", "Moviedlspfad", "")
$bilderdls = IniRead("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", "")
$musikdls = IniRead("dph's_dls_settings.ini", "Settings", "Musikdlspfad", "")
$zeit = IniRead("dph's_dls_settings.ini", "Settings", "Sortertime", "")
$format1 = IniRead("dph's_dls_settings.ini", "Settings", "vidformarte", "")
$format2 = IniRead("dph's_dls_settings.ini", "Settings", "bilderformate", "")
$format3 = IniRead("dph's_dls_settings.ini", "Settings", "musikformate", "")
$autostart = IniRead("dph's_dls_settings.ini", "Settings", "Autostart", "")
checkini()
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=D:\Scripts\koda_1.7.2.0\Forms\dls.kxf
$Form1 = GUICreate("Downloadsorter", 501, 242, 190, 120)
$setdlpfad = GUICtrlCreateButton("Downloadverzeichnis Wählen", 16, 8, 185, 33, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Wähle dein Verzeichnis für Videodateien.", 16, 56, 198, 17)
$setpfadmovie = GUICtrlCreateButton("Setpfad", 216, 56, 49, 17, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Wähle dein Verzeichnis für Grafikdateien.", 16, 80, 199, 17)
$setpfadbilder = GUICtrlCreateButton("Setpfad", 216, 80, 49, 17, $WS_GROUP)
$Label3 = GUICtrlCreateLabel("Wähle dein Verzeichnis für Musikdateien.", 16, 104, 199, 17)
$setpfadmusik = GUICtrlCreateButton("Setpfad", 216, 104, 49, 17, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Autostart", 24, 144, 89, 41)
$Group2 = GUICtrlCreateGroup("Autostart", 40, 280, 105, 89)
If $autostart = 1 Then
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("ja", 32, 160, 41, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Else
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("ja", 32, 160, 41, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
EndIf
$vidformate = GUICtrlCreateInput($format1, 280, 56, 209, 21)
$bilderformate = GUICtrlCreateInput($format2, 280, 80, 209, 21)
$musikformate = GUICtrlCreateInput($format3, 280, 104, 209, 21)
$inputmin = GUICtrlCreateInput("30", 144, 144, 49, 21)
$Label6 = GUICtrlCreateLabel("Wähle nach wie vielen Minuten die Dateien wieder aus dem " & @CRLF & "Download Ordner verschoben werden sollen.", 208, 144, 549, 37)
$Fertig = GUICtrlCreateButton("Fertig", 272, 176, 97, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $setdlpfad
$dlpfad = FileSelectFolder("Wähle den Ordner in dem deine Downloads gespeichert werden", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Downloadpfad", $dlpfad)
Case $setpfadmovie
$movpfad = FileSelectFolder("Wähle den Ordner wo deine Videos gespeichert werden sollen", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Moviedlspfad", $movpfad)
Case $setpfadbilder
$bildpfad = FileSelectFolder("Wähle den Ordner wo deine Grafiken gespeichert werden sollen", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", $bildpfad)
Case $setpfadmusik
$musikpfad = FileSelectFolder("Wähle den Ordner wo deine Musikdateien gespeichert werden sollen", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Musikdlspfad", $musikpfad)
Case $Fertig
_auto()
WinSetState("Downloadsorter", "", @SW_HIDE)
$formatvid = GUICtrlRead($vidformate)
$formatbild = GUICtrlRead($bilderformate)
$formatmusik = GUICtrlRead($musikformate)
$sorttime = GUICtrlRead($inputmin)
IniWrite("dph's_dls_settings.ini", "Settings", "Sortertime", $sorttime)
IniWrite("dph's_dls_settings.ini", "Settings", "vidformarte", $formatvid)
IniWrite("dph's_dls_settings.ini", "Settings", "bilderformarte", $formatbild)
IniWrite("dph's_dls_settings.ini", "Settings", "musikformarte", $formatmusik)
If ProcessExists("dph's_dls.exe") Then
ProcessClose("dph's_dls.exe")
EndIf
ShellExecute("dph's_dls.exe")
Exit
EndSwitch
WEnd
Func checkini()
If Not FileExists(@ScriptDir & "\dph's_dls_settings.ini") Then
IniWrite("dph's_dls_settings.ini", "Settings", "Downloadpfad", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Moviedlspfad", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Musikdlspfad", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Sortertime", "")
IniWrite("dph's_dls_settings.ini", "Settings", "vidformarte", "")
IniWrite("dph's_dls_settings.ini", "Settings", "bilderformarte", "")
IniWrite("dph's_dls_settings.ini", "Settings", "musikformarte", "")
MsgBox(0, "", "Created dph's_dls_settings.ini")
EndIf
EndFunc ;==>checkini
Func _auto()
$auto = GUICtrlRead($Checkbox1)
If $auto = 1 Then
IniWrite("dph's_dls_settings.ini", "Settings", "Autostart", $auto)
Else
IniWrite("dph's_dls_settings.ini", "Settings", "Autostart", "0")
EndIf
If IniRead("dph's_dls_settings.ini", "Settings", "Autostart", $auto) = 1 Then
FileCreateShortcut(@ScriptDir & "\dph's_dls.exe", "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\dph's_dls.exe")
MsgBox(0, "Autostart", "dph's_dls wird jetzt bei jedem Systemstart mitgestartet.")
Else
FileDelete("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\dph's_dls.exe.lnk")
MsgBox(0, "Autostart", "dph's_dls wird nicht beim Systemstart mitgestartet.")
EndIf
EndFunc ;==>_auto
; Copyright by dph
; special thanks to tobN
die hauptfunktion
Spoiler anzeigen
#NoTrayIcon
#include <array.au3>
$dlpfad = IniRead("dph's_dls_settings.ini", "Settings", "Downloadpfad", "")
$moviedls = IniRead("dph's_dls_settings.ini", "Settings", "Moviedlspfad", "")
$bilderdls = IniRead("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", "")
$musikdls = IniRead("dph's_dls_settings.ini", "Settings", "Musikdlspfad", "")
$zeit = IniRead("dph's_dls_settings.ini", "Settings", "Sortertime", "")
$format1 = IniRead("dph's_dls_settings.ini", "Settings", "vidformate", "")
$format2 = IniRead("dph's_dls_settings.ini", "Settings", "bilderformate", "")
$format3 = IniRead("dph's_dls_settings.ini", "Settings", "musikformate", "")
checkpfads()
While 1
main()
WEnd
Func _filemove($format1, $dlpfad, $moviedls)
$types = StringSplit($format1, ',')
For $i = 1 To $types[0] Step +1
FileMove($dlpfad & "\*." & $types[$i], $moviedls)
Next
EndFunc ;==>_filemove
Func main()
_filemove($format1, $dlpfad, $moviedls)
_filemove($format2, $dlpfad, $bilderdls)
_filemove($format3, $dlpfad, $musikdls)
Sleep($zeit * 1000 * 60)
EndFunc ;==>main
Func checkpfads()
If $dlpfad = "" Then
MsgBox(0, "", "Downloadpfad setzen")
Exit
ElseIf $moviedls = "" Then
MsgBox(0, "", "Moviesorter Verzeichnis setzen")
Exit
ElseIf $bilderdls = "" Then
MsgBox(0, "", "Bildersorter Verzeichnis setzen")
Exit
ElseIf $musikdls = "" Then
MsgBox(0, "", "Musiksorter Verzeichnis setzen")
Exit
EndIf
EndFunc ;==>checkpfads
; Copyright by dph
; special thanks to tobN
ein special thanks geht an tobN (tobicool oder so hier in dem board) meinem klassenkameraden der mir die filemove func geschrieben hat
thx m8
