Weiß einer wie ich es lösen kann? Also es nimmt aus Filezilla eine Rar entpackt es und zählt die Bilder. Eine For Schleife sollte
mit GUICtrlSetData die Labels usw bearbeiten. Aber ich weiß nicht wie es geht.
#include <FTPEx.au3>
#include <Zip.au3>
;Form1 | Laden
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Profilbilder | LADEN", 301, 40, 192, 122)
GUISetBkColor(0x99B4D1)
$Label100 = GUICtrlCreateLabel("Bitte haben sie Geduld, ladet...", 8, 8, 291, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If Not FileExists(@ScriptDir & "\images") Then
DirCreate(@ScriptDir & "\images")
EndIf
If Not FileExists(@TempDir & "\images") Then
DirCreate(@TempDir & "\images")
EndIf
_FTP_FileGet($FTP_Connect, "Profilbilder.zip", @TempDir & "\images\Profilbilder.zip")
_Zip_UnzipAll(@TempDir & "\images\Profilbilder.zip", @TempDir & "\images")
$Bilder = _Zip_Count(@TempDir & "\images\Profilbilder.zip")
FileDelete(@TempDir & "\images\Profilbilder.zip")
;Form2 | Profilbilder P1
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Profilbilder", 354, 426, 192, 124)
GUISetBkColor(0x000000)
$Tab1 = GUICtrlCreateTab(8, 8, 337, 409)
GUICtrlCreateTabItem("Seite 1")
$Label1 = GUICtrlCreateLabel("Dateiname:", 16, 32, 154, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Größe:", 16, 200, 76, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Dateiname:", 184, 32, 146, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Größe:", 184, 200, 76, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel("Dateiname:", 16, 224, 154, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel("Größe:", 16, 392, 76, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel("Dateiname:", 184, 224, 154, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel("Größe:", 192, 392, 76, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Pic1 = GUICtrlCreatePic("", 16, 48, 150, 150)
$Pic2 = GUICtrlCreatePic("", 184, 48, 150, 150)
$Pic3 = GUICtrlCreatePic("", 16, 240, 150, 150)
$Pic4 = GUICtrlCreatePic("", 184, 240, 150, 150)
$Button1 = GUICtrlCreateButton("Download", 88, 200, 75, 17)
$Button2 = GUICtrlCreateButton("Download", 256, 200, 75, 17)
$Button3 = GUICtrlCreateButton("Download", 88, 392, 75, 17)
$Button4 = GUICtrlCreateButton("Download", 264, 392, 75, 17)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $Form2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd