Hi,
hier mal ein Beispiel :
http://www.autoit.de/index.php?page=Thread&postID=43520#top
Schönes WE und weiterhin viel Erfolg !
Hi,
hier mal ein Beispiel :
http://www.autoit.de/index.php?page=Thread&postID=43520#top
Schönes WE und weiterhin viel Erfolg !
...zu Deinem ersten Projekt. Das Eis ist nun gebrochen.
Die Images kann man mit FileInstall, wie oben behandeln. Ebenso sind direkte Pfade möglich (siehe zB 1) oder den Ort des Images einer Variablen zuweisen (siehe zB 2).
GUICtrlCreatePic("Images\Blau43.jpg", 0, 0, 300, 115, 0)
$myPic = "Images\Blau43.jpg"
GUICtrlCreatePic($myPic, 0, 0, 300, 115, 0)
Schönes WE und weiterhin viel Erfolg !
Hallo,
es ist auch diese Schreibweise möglich.
#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 ###
While 1
Sleep (1000)
WEnd
Herzlich Willkommen und weiterhin viel Erfolg !
Hallo Oscar!
Ich freue mich, dass wir dieses Thema noch einmal angeschnitten haben.
Schönes WE und weiterhin viel Erfolg !
Hi,
zu diesem Thema habe ich mich schon mal geäußert und jetzt das Gefühl, dass mich Oscar falsch verstanden hat (dann Sorry Oscar) ?
Meine These:
Bei einer derart großen Zahl von Nutzern, durch professionelle User aber auch Querdenker, müssten solche Sachen und deren Auswirkungen schon früher und im zunehmenden Maße aufgefallen sein.
Ich denke hier nicht an einen Einzelnen, sondern mehr an das Gesetz der großen Zahl.
Ebenso wollte ich auf die Sensibilität des Virensuchers hinweisen.
Mir persönlich ist beim erstellen von Festplattenabbildern aufgefallen, dass eine erfolgreiche Virensuche vor der Imageerstellung mit Hilfe einer Live-CD nochmals zwischen 20 u. 30 Übeltäter zutage fördert. Besonders auffällig ist hier M$ selbst und die IE-Favoriten.
Schönes WE und weiterhin viel Erfolg !
Für Avi-Dateien habe ich auch so etwas schon gemacht, dass trifft es besser.
; by Ritzelrocker04
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$avi_RD = "IGR_AVI\3.avi"
$avi_RR04 = "IGR_AVI\15.avi"
$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)
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
Weiterhin viel Erfolg !
Ich habe mein Script noch etwas weiterentwickelt.
PS: siehe Dummys
; by Ritzelrocker04 ==> siehe $title
#include<ButtonConstants.au3>
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<WindowsConstants.au3>
#include<String.au3>
Global $src_LW = StringLeft(@ScriptDir, 3); Quelle - The Stick
[/autoit] [autoit][/autoit] [autoit]$title = "The Stick v 3.0.15"
$uccess = "USBsound\Success.wav"
; - 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)
; - 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)
GUISetState(@SW_SHOW, $GUI)
[/autoit] [autoit][/autoit] [autoit]; starten Func _LW_info()
_LW_info()
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
; 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
; 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
Schönes WE und weiterhin viel Spaß !
Vielleicht so,
ein Beispiel aus IGRv8017.
; by Ritzelrocker04 ==> IGRv8017.au3
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Dim $_Ergebnis_BMI
Dim $_EingabeGew , $_EingabeGro
Dim $_Ergebnis_Klasse
Dim $_Smileys
$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"
$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
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
Weiterhin viel Erfolg !
Hi,
diese Sachen werden doch über ini-Dateien gesteuert. Kannst Du nicht eine in diesen Ordner schreiben lassen?
Hier einmal die Ini aus Eigene Bilder.
[DeleteOnCopy]
Owner=XP-Home
Personalized=39
PersonalizedName=Eigene Bilder
[.ShellClassInfo]
InfoTip=@Shell32.dll,-12688
IconFile=%SystemRoot%\system32\mydocs.dll
IconIndex=-101
Weiterhin viel Erfolg !
@progandy
gut zu wissen
auch von mir Danke
Hi,
zB so:
#include <GuiConstants.au3>
$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)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button
EndSelect
WEnd
Weiterhin viel Erfolg !
Hi (A)Lina,
vielleicht mit 7zip eine .exe-Datei erstellen und dann mit dem guten alten RunWait entpacken ?
Ich selbst habe es noch nicht gemacht.
Schönes WE und weiterhin mehr Erfolg !
@(A)Lina
Greenhorn
beide Lösungen sind hier richtig, einziger Unterschied 7z und 7za sind zwei verschiedene Programme. Eines (7z) ist in 7zip enthalten, dass Andere (7za) ist standalone und man muss es separat downloaden. Also zwei verschiedene Programme.
Schönes WE und weiterhin viel Erfolg !
Mein Script habe ich noch etwas weiterentwickelt und die Angaben lassen sich jetzt zentrieren. Ich bin mir aber nicht sicher, ob es in jeder Situation funktioniert.
Download siehe Post 1
; Author : Ritzelrocker04 ==> SimplyColorProgress
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>
#include<String.au3>
$LW = StringLeft(@ScriptDir, 3)
$srcLW = Round((DriveSpaceTotal($LW) - DriveSpaceFree($LW)) / (DriveSpaceTotal($LW) / 100), 0)
#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)
GUISetState(@SW_SHOW)
#EndRegion ### START SimplyColorProgress GUI section ###
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $ButtonCancel
ExitLoop
Case $msg = $ButtonOk
MsgBox(0, "Info über", "SimplyColorProgress by Ritzelrocker04", 5)
ExitLoop
EndSelect
WEnd
Schönes WE und weiterhin viel Spaß !
Hi,
Dein Script habe ich mal ergänzt, jetzt läuft es auch unter Vista.
Aber bitte nochmal nachfragen, wegen der rechtlichen Sache, Xeno wird sicherlich mehr wissen.
; 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 ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Schönes WE und weiterhin viel Erfolg !
Hi,
extrahieren könnte klappen, weiss nicht ob es rechtlich OK ist ?
http://angusj.com/resourcehacker/
Schönes WE und viel Erfolg !
Hi,
bei mir funktioniert die Animation unter XP. Die Blätter fliegen. Vielleicht kann man sie extrahieren ?
Schönes WE und viel Erfolg !
Fans älterer AutoIT-Versionen müssen auf den Obfuscator nicht länger verzichten. In meiner Batch-Datei im Anhang kann man auch die jeweiligen Befehle mitgeben. Wer lust hat, kann auch gleich eine GUI bauen.
Schönes WE und weiterhin viel Spaß !