Beiträge von RR04

[autoit]

GUICtrlCreatePic("Images\Blau43.jpg", 0, 0, 300, 115, 0)

[/autoit]

[autoit]

$myPic = "Images\Blau43.jpg"
GUICtrlCreatePic($myPic, 0, 0, 300, 115, 0)

[/autoit]

[autoit]

#include <GuiConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 116, 66, 193, 125)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 16, 8, 97, 17)
GUICtrlSetState(-1, $GUI_CHECKED) ;<====== oder auch so !
$Button1 = GUICtrlCreateButton("Button1", 24, 32, 75, 25, 0)
;GUICtrlSetState($Checkbox1, $GUI_CHECKED)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep (1000)
WEnd

[/autoit]

[autoit]

; by Ritzelrocker04

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$avi_RD = "IGR_AVI\3.avi"
$avi_RR04 = "IGR_AVI\15.avi"

[/autoit] [autoit][/autoit] [autoit]

$GUI = GUICreate("AVI-Switch", 315, 150, -1, 180, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$gb_All = GUICtrlCreateGroup("", 8, 1, 300, 112)
$avi1 = GUICtrlCreateAvi($avi_RD, -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
$bn_Close = GUICtrlCreateButton("&Beenden", 229, 120, 75, 25, 0)
$bn_OK = GUICtrlCreateButton("&OK", 149, 120, 75, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()

Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
Case $nMsg = $bn_OK
GUICtrlSetState ($avi1, 0)
GUICtrlDelete($avi1)
$avi2 = GUICtrlCreateAvi($avi_RR04, -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
EndSelect
WEnd

[/autoit]

[autoit]

; by Ritzelrocker04 ==> siehe $title
#include<ButtonConstants.au3>
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<WindowsConstants.au3>
#include<String.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $src_LW = StringLeft(@ScriptDir, 3); Quelle - The Stick

[/autoit] [autoit][/autoit] [autoit]

$title = "The Stick v 3.0.15"
$uccess = "USBsound\Success.wav"

[/autoit] [autoit][/autoit] [autoit]

; - Start - GUI
$GUI = GUICreate($title, 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115, 0)
$gb_Ziel = GUICtrlCreateGroup("", 64, 8, 225, 60)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$pg_Ziel = GUICtrlCreateProgress(75, 32, 195, 17)
$bn_Pic = GUICtrlCreateButton("PicButton", 8, 14, 55, 55, $BS_BITMAP)
GUICtrlSetImage(-1, "USBsys\images3.bmp", 22)
$bn_Sichern = GUICtrlCreateButton("&Sichern", 126, 80, 75, 22, 0)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$bn_Close = GUICtrlCreateButton("&Beenden", 212, 80, 75, 22, 0)
$bn_Autor = GUICtrlCreateButton("RR04", 2, 96, 30, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

[/autoit] [autoit][/autoit] [autoit]

; - The Stick - GUI
$GUI_Stick = GUICreate($title, 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
GUICtrlSetState(-1, $GUI_DISABLE)
$tb_src_Total = GUICtrlCreateInput("", 8, 20, 140, 17, $ES_READONLY)
$tb_src_Free = GUICtrlCreateInput("", 152, 20, 140, 17, $ES_READONLY)
$tb_src_Belegt = GUICtrlCreateInput("", 8, 70, 140, 17, $ES_READONLY)
$tb_src_Prozent = GUICtrlCreateInput("", 152, 70, 68, 17, $ES_READONLY)
$pg_Quelle = GUICtrlCreateProgress(8, 45, 284, 17)
$bn_Return = GUICtrlCreateButton("zurück", 225, 80, 65, 22, 0)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW, $GUI)

[/autoit] [autoit][/autoit] [autoit]

; starten Func _LW_info()
_LW_info()

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; window-handle
Case $GUI
Switch $msg[0] ; event/control-handle
Case $bn_Pic
GUISetState(@SW_HIDE, $GUI)
GUISetState(@SW_SHOW, $GUI_Stick)
Case $GUI_EVENT_CLOSE
Exit
Case $bn_Close
Exit
Case $bn_Autor
$logfile = FileOpen("TheStick.log", 0) ; 0 = nur Lesemodus (read mode)
If $logfile = -1 Then
MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
Exit
EndIf
$line = FileReadLine($logfile)
MsgBox(64, 'About', $title & ' Build 2008-04-10 ' & @CRLF & '' & @CRLF & 'Copyright by : Ritzelrocker04 ' & @CRLF & 'Thx an das http://www.Autoit.de - Team ' & @CRLF & '' & @CRLF & 'Die letzte Sicherung war am : ' & @CRLF & $line)
FileClose($logfile)
Case $bn_Sichern
If FileExists(@MyDocumentsDir & '\My Stick\USB-Stick-0' & @WDAY & '.zip') Then
$ExistsFileWahl = MsgBox(48 + 4, " Löschen", 'USB-Stick-0' & @WDAY & '.zip besteht bereits. ' & @CRLF & ' Möchten Sie sie ersetzen ? ')
If $ExistsFileWahl = 6 Then
FileDelete(@MyDocumentsDir & '\My Stick\USB-Stick-0' & @WDAY & '.zip')
EndIf
EndIf
$_Userwahlsich = MsgBox(32 + 4, " Sichern", "Sichern, möchten Sie fortfahren ? ")
If $_Userwahlsich = 7 Then
MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
MsgBox(48, " OK", "Simulation des Kopiervorgangs (Dummi, siehe Script) ! ")
; ==> RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\My Stick\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_MINIMIZE)
_LW_info() ; starten Func _LW_info()
_Log_Write() ; starten Func _Log_Write()
;SoundSetWaveVolume(50) ; optional (50)Lautstärke in %
SoundPlay($uccess, 1) ; 1 = Skript wartet, bis der Sound abgespielt ist.
MsgBox(64, " Sicherung fertig", " Sicherung abgeschlossen ! ")
Exit
EndSwitch
Case $GUI_Stick
Switch $msg[0]
Case $bn_Return
GUISetState(@SW_SHOW, $GUI)
GUISetState(@SW_HIDE, $GUI_Stick)
Case $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $GUI)
GUISetState(@SW_HIDE, $GUI_Stick)
EndSwitch
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

; die Funktion _LW_info()
Func _LW_info()
Local $dest_LW = StringLeft(@MyDocumentsDir, 2); Ziel - Eigene Dateien
; Quelle
$VOL_Quelle = DriveGetLabel($src_LW)
$TOTAL_Quelle = DriveSpaceTotal($src_LW)
$FREE_Quelle = DriveSpaceFree($src_LW)
; Ziel
$TOTAL_Ziel = DriveSpaceTotal($dest_LW)
$FREE_Ziel = DriveSpaceFree($dest_LW)
; Berechnungen und setzen der Ergebnisse
; Ziel
GUICtrlSetData($pg_Ziel, StringReplace(Round(($TOTAL_Ziel - $FREE_Ziel) / ($TOTAL_Ziel / 100), 0), ".", ","))
GUICtrlSetData($gb_Ziel, "( " & $dest_LW & " )" & " = " & _StringAddComma(StringReplace(Round($FREE_Ziel, 0), '.', ','), ".", ",") & " MB = " & StringReplace(Round(($FREE_Ziel) / ($TOTAL_Ziel / 100), 0), ".", ",") & "% frei ")
; Quelle
GUICtrlSetData($tb_src_Total, "Gesamt: " & _StringAddComma(StringReplace(Round($TOTAL_Quelle, 0), '.', ','), ".", ",") & " MB")
GUICtrlSetData($tb_src_Free, "Frei: " & _StringAddComma(StringReplace(Round($FREE_Quelle, 0), '.', ','), ".", ",") & " MB")
GUICtrlSetData($pg_Quelle, StringReplace(Round(($TOTAL_Quelle - $FREE_Quelle) / ($TOTAL_Quelle / 100), 0), ".", ","))
GUICtrlSetData($tb_src_Belegt, "Belegt: " & _StringAddComma(StringReplace(Round($TOTAL_Quelle - $FREE_Quelle, 0), '.', ','), ".", ",") & " MB")
GUICtrlSetData($tb_src_Prozent, "Frei: " & StringReplace(Round(($FREE_Quelle) / ($TOTAL_Quelle / 100), 0), ".", ",") & "%")
EndFunc ;==>_LW_info

[/autoit] [autoit][/autoit] [autoit]

; die Funktion _Log_Write()
Func _Log_Write()
$logfile = FileOpen("TheStick.log", 2) ;2 = Schreibmodus mit Löschen des vorherigen Inhaltes
If $logfile = -1 Then
MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
Exit
EndIf
FileWriteLine($logfile, @MDAY & "." & @MON & "." & @YEAR & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr ")
FileClose($logfile)
EndFunc ;==>_Log_Write

[/autoit]

[autoit]

; by Ritzelrocker04 ==> IGRv8017.au3

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $_Ergebnis_BMI
Dim $_EingabeGew , $_EingabeGro
Dim $_Ergebnis_Klasse
Dim $_Smileys

[/autoit] [autoit][/autoit] [autoit]

$ico_Normalgew = "IGRsys\Normalgew.ico"
$ico_Untergew = "IGRsys\Untergew.ico"
$ico_Uebergew = "IGRsys\Uebergew.ico"
$ico_StarkUebergew = "IGRsys\StarkUebergew.ico"
$ico_Zwink = "IGRsys\Zwink.ico"
$ico_Zwink2 = "IGRsys\Zwink2.ico"
$ico_ZwinkY = "IGRsys\ZwinkY.ico"

[/autoit] [autoit][/autoit] [autoit]

$var1 = IniRead(@ScriptDir & "\IGR.ini", "Settings", "maennlich", "0")

[/autoit] [autoit][/autoit] [autoit]

$GUI = GUICreate("IGR & BMI v 8.0", 258, 322, -1, -1)
$gb_Eingaben = GUICtrlCreateGroup("Ihre Eingaben", 16, 16, 225, 120)
$tb_Gewicht = GUICtrlCreateInput("Gewicht in kg", 32, 48, 73, 21, $ES_NUMBER)
GUICtrlSetState(-1, $GUI_FOCUS)
$tb_Groesse = GUICtrlCreateInput("Größe in cm", 32, 88, 73, 21, $ES_NUMBER)
$rb_Maennlich = GUICtrlCreateRadio("&männlich", 144, 56, 65, 17)
$rb_Weiblich = GUICtrlCreateRadio("&weiblich", 144, 88, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ico_Icon = GUICtrlCreateIcon($ico_Normalgew, 0, 200, 160, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$lb_BMI = GUICtrlCreateLabel("Willkommen,", 16, 160, 180, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$lb_Klasse = GUICtrlCreateLabel("ich errechne Ihren BMI", 16, 192, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$lb_IGR = GUICtrlCreateLabel("und das Idealgewicht !", 16, 224, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$bn_About = GUICtrlCreateButton("&About", 16, 256, 65, 25, 0)
$bn_Hinweis = GUICtrlCreateButton("&Hinweis", 96, 256, 65, 25, 0)
$bn_Close = GUICtrlCreateButton("&Beenden", 176, 256, 65, 25, 0)
$bn_Rechnen = GUICtrlCreateButton("&Rechnen", 16, 290, 225, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)

Switch $var1
Case 0
GUICtrlSetState($rb_Maennlich, $GUI_CHECKED)
Case 1
GUICtrlSetState($rb_Weiblich, $GUI_CHECKED)
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$_EingabeGew = GUICtrlRead($tb_Gewicht)
$_EingabeGro = GUICtrlRead($tb_Groesse)
$_Er = GUICtrlRead($rb_Maennlich)
Select
Case $nMsg = $bn_Rechnen
If $_EingabeGro >= 100 And $_EingabeGro <= 230 Then
$_Ergebnis_BMI = Round($_EingabeGew / ($_EingabeGro / 100) ^ 2, 0)

If $_Er = 1 Then
Switch GUICtrlRead($rb_Maennlich)
Case $GUI_CHECKED
IniWrite(@ScriptDir & "\IGR.ini", "Settings", "maennlich", "0")
Case $GUI_UNCHECKED
IniWrite(@ScriptDir & "\IGR.ini", "Settings", "maennlich", "1")
EndSwitch

$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.9

Switch $_Ergebnis_BMI
Case 0 To 20
$_Ergebnis_Klasse = "Sie haben Untergewicht ,"
$_Smileys = $ico_Untergew
Case 20 To 25
$_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
$_Smileys = $ico_Normalgew
Case 25 To 30
$_Ergebnis_Klasse = "Sie haben Übergewicht ,"
$_Smileys = $ico_Uebergew
Case 30 To 50
$_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
$_Smileys = $ico_StarkUebergew
Case Else
$_Ergebnis_BMI = "erstaunlich"
$_Ergebnis_Klasse = "es bleibt besser unser Geheimnis ,"
$_Smileys = $ico_ZwinkY
EndSwitch
Else
Switch GUICtrlRead($rb_Maennlich)
Case $GUI_CHECKED
IniWrite(@ScriptDir & "\IGR.ini", "Settings", "maennlich", "0")
Case $GUI_UNCHECKED
IniWrite(@ScriptDir & "\IGR.ini", "Settings", "maennlich", "1")
EndSwitch

$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.85

Switch $_Ergebnis_BMI
Case 0 To 19
$_Ergebnis_Klasse = "Sie haben Untergewicht ,"
$_Smileys = $ico_Untergew
Case 19 To 24
$_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
$_Smileys = $ico_Normalgew
Case 24 To 30
$_Ergebnis_Klasse = "Sie haben Übergewicht ,"
$_Smileys = $ico_Uebergew
Case 30 To 50
$_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
$_Smileys = $ico_StarkUebergew
Case Else
$_Ergebnis_BMI = "erstaunlich"
$_Ergebnis_Klasse = "es bleibt besser unser Geheimnis ,"
$_Smileys = $ico_ZwinkY
EndSwitch
EndIf
GUICtrlSetImage($ico_Icon, $_Smileys)
GUICtrlSetData($lb_BMI, "Ihr BMI ist " & $_Ergebnis_BMI & " und")
GUICtrlSetData($lb_Klasse, $_Ergebnis_Klasse)
GUICtrlSetData($lb_IGR, "das Idealgewicht beträgt : " & $_Ergebnis_IGR & " kg .")
Else
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "aber Ihre Größe bitte nur in")
GUICtrlSetData($lb_IGR, "cm von 100 bis 230 eingeben !")
GUICtrlSetImage($ico_Icon, $ico_Zwink2)
EndIf
If $_EingabeGew = 0 Then
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "Sie müssen noch")
GUICtrlSetData($lb_IGR, "Ihr Gewicht in kg eingeben !")
GUICtrlSetImage($ico_Icon, $ico_Zwink)
EndIf
Case $nMsg = $bn_About
Run("About_008_CSJRE_W9x_3281.exe")
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
Case $nMsg = $bn_Hinweis
MsgBox(64, "Wichtiger Hinweis !", "Der BMI unterscheidet nicht zwischen Fett- und Muskelmasse." & @CRLF & _
"Sportler, Bodybuilder und Schwerstarbeiter, die viele Muskel-Kilos auf die Waage bringen," & @CRLF & _
"gehören nach dem BMI bereits in die Kategorie „übergewichtig“, obwohl ihr Körperfett-Anteil " & @CR & _
"nur gering ist. " & @CRLF & _
"Der BMI gilt ebenfalls nicht für Schwangere und stillende Mütter, kranke und alte Menschen " & @CRLF & _
"und Kinder im Wachstum. Überdies werden sehr kleine Menschen ( kleiner als 150 cm) oft " & @CRLF & _
"falsch zu hoch eingestuft, sehr große Menschen (größer als 190 cm) dagegen zu niedrig " & @CRLF & _
"bewertet. Ähnliche Einschränkungen gibt es für Menschen mit schlankem Körperbau, " & @CRLF & _
"die häufig zu niedrig eingestuft werden, und untersetzte Menschen," & @CRLF & _
"die zu schnell als zu dick klassifiziert werden." & @CRLF & _
" " & @CRLF & _
"Der BMI-Rechner soll nur einen ersten Anhalspunkt geben." & @CRLF & _
"Wer es genauer wissen will, ob er abspecken sollte, misst besser seinen persönlichen" & @CRLF & _
"Körperfettanteil, z.B. mit einer speziellen Körperfettwaage!")
EndSelect
EndIf

WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

[autoit]

[DeleteOnCopy]
Owner=XP-Home
Personalized=39
PersonalizedName=Eigene Bilder
[.ShellClassInfo]
InfoTip=@Shell32.dll,-12688
IconFile=%SystemRoot%\system32\mydocs.dll
IconIndex=-101

[/autoit]

[autoit]

#include <GuiConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$Gui = GUICreate("Test", 72, 90, -1, -1, -1)
$icon = GUICtrlCreateIcon("shell32.dll", -202, 19, 19, 32, 32)
GUICtrlSetState(-1, $GUI_DISABLE)
$button = GUICtrlCreateButton("Test", 10, 10, 52, 70, BitOR($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
GUICtrlSetFont(-1, 8, 700)
GUISetState(@SW_SHOW, $Gui)

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button
EndSelect
WEnd

[/autoit]

[autoit]

;by RR04
$Path = FileOpenDialog("","","(*.*)")
IniWrite(@ScriptDir & "\test.ini", "Settings", "test", $Path)

[/autoit]

[autoit]

$path = FileSelectFolder('Bitte ein Laufwerk oder Ordner auswählen !', "::{00000000-1080-F9E5-6311-4162E05A6BEE}", 1)
If Not @error Then
GUICtrlSetData($cobDest, $path, $path)
EndIf

[/autoit]

[autoit]

; Author : Ritzelrocker04 ==> SimplyColorProgress
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>
#include<String.au3>

[/autoit] [autoit][/autoit] [autoit]

$LW = StringLeft(@ScriptDir, 3)
$srcLW = Round((DriveSpaceTotal($LW) - DriveSpaceFree($LW)) / (DriveSpaceTotal($LW) / 100), 0)

[/autoit] [autoit][/autoit] [autoit]

#Region ### START SimplyColorProgress GUI section ###
$GUI = GUICreate("SimplyColorProgress by Ritzelrocker04", 400, 300)
$lb = GUICtrlCreateLabel("Festplatte " & $LW, 50, 20, 100, 17)
$implyColorProgressF = GUICtrlCreateInput("II " & 100 - $srcLW & " % frei " & _StringRepeat("I", 100 - $srcLW - 13), 45, 40, 310, 17, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xFFFBF0)
GUICtrlSetColor(-1, 0x008000); dunkelgruen
$implyColorProgressB = GUICtrlCreateInput("II " & $srcLW & " % belegt " & _StringRepeat("I", $srcLW - 15), 45, 80, 310, 17, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xFFFBF0)
GUICtrlSetColor(-1, 0xFF0000) ; rot
$lbB1 = GUICtrlCreateLabel("II " & $srcLW & " % " & _StringRepeat("I", $srcLW - 8), 45, 120, 310, 17)
GUICtrlSetColor(-1, 0xFF0000) ; rot
$lbF1 = GUICtrlCreateLabel("II " & 100 - $srcLW & " % " & _StringRepeat("I", 100 - $srcLW - 8), 45, 145, 310, 17)
GUICtrlSetColor(-1, 0x008000); dunkelgruen
$lbB2 = GUICtrlCreateLabel(_StringRepeat("I", $srcLW), 45, 180, 155, 20, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000) ; rot
$lbF2 = GUICtrlCreateLabel(_StringRepeat("I", 100 - $srcLW), 200, 180, 155, 20)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000); dunkelgruen
$implyColorProgressB = GUICtrlCreateInput(_StringRepeat("I", $srcLW / 2 - 7) & " " & $srcLW & "% belegt " & _StringRepeat("I", $srcLW / 2 - 7), 45, 220, 310, 17, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xFFFBF0)
GUICtrlSetColor(-1, 0xFF0000) ; rot
$ButtonOk = GUICtrlCreateButton("&OK", 122, 265, 75, 22, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 203, 265, 75, 22, 0)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)
#EndRegion ### START SimplyColorProgress GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()

Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $ButtonCancel
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $ButtonOk
MsgBox(0, "Info über", "SimplyColorProgress by Ritzelrocker04", 5)
ExitLoop
EndSelect
WEnd

[/autoit]

[autoit]

; by Carsten8
#include <GUIConstantsEx.au3>
#RequireAdmin
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Test", 367, 235, 429, 334)
$Avi1 = GUICtrlCreateAvi("copy.avi", 167, 6, 10) ;sollte die "Runterladen" Animation abspielen
GUICtrlSetState($Avi1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]