Hallo wie schaff ich es das sich die ersten 2 progressbar von links nach rechts bewegen und die letzten 2 von rechts nach links bewegen
bewegen sich alle 4 von links nach rechts bekomm einfach nicht raus wie es umgekehrt geht ![]()
Spoiler anzeigen
Spoiler anzeigen
$passwort0001 = ""
$passwort0002 = 0
$programmname = "Programmname"
$programmversion = "0.0.0.1"
$programmierer = "S.C."
$guicreatex = 500
$guicreatey = 500
For $passwort0003 = 1 To 1 Step -1
If InputBox("Passwort","Bitte Passwort eingeben" & @CRLF & "Sie haben noch " & $passwort0003 & " Versuche","","*") <> $passwort0001 Then
ContinueLoop
Else
$passwort0002 = 1
ExitLoop
EndIf
Next
If $passwort0002 = 0 Then Exit MsgBox (262144+16, "Fehler", "Es wurde das falsche Passwort eingegeben!") & MsgBox (262144+16, "Fehler", "Das Programm wird beendet!")
#include <GuiConstantsEx.au3>
#include <GuiMenu.au3>
#include <GuiStatusBar.au3>
#include <ComboConstants.au3>
#include <WinAPI.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <DateTimeConstants.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>
#include <StaticConstants.au3>
#Include <Timers.au3>
Opt ("CaretCoordMode", 1)
Opt ("ExpandEnvStrings", 0)
Opt ("ExpandVarStrings", 0)
Opt ("FtpBinaryMode", 1)
Opt ("GUICloseOnESC", 1)
Opt ("GUICoordMode", 1)
Opt ("GUIDataSeparatorChar","|")
Opt ("GUIOnEventMode", 0)
Opt ("GUIResizeMode", 0)
Opt ("GUIEventOptions",0)
Opt ("MouseClickDelay", 10)
Opt ("MouseClickDownDelay", 10)
Opt ("MouseClickDragDelay", 250)
Opt ("MouseCoordMode", 1)
Opt ("MustDeclareVars", 0)
Opt ("OnExitFunc","OnAutoItExit")
Opt ("PixelCoordMode", 1)
Opt ("SendAttachMode", 0)
Opt ("SendCapslockMode", 1)
Opt ("SendKeyDelay", 5)
Opt ("SendKeyDownDelay", 5)
Opt ("TCPTimeout",100)
Opt ("TrayAutoPause",0)
Opt ("TrayIconDebug", 0)
Opt ("TrayIconHide", 0)
Opt ("TrayMenuMode",0)
Opt ("TrayOnEventMode",0)
Opt ("WinDetectHiddenText", 0)
Opt ("WinSearchChildren", 1)
Opt ("WinTextMatchMode", 1)
Opt ("WinTitleMatchMode", 1)
Opt ("WinWaitDelay", 250)
Local $hGUI
[/autoit] [autoit][/autoit] [autoit]HotKeySet ("{ESC}", "_exit")
HotKeySet ("{F8}", "_button")
; DirCreate
; FileInstall
$guicreate0010 = GUICreate ($programmname & " - " & $programmversion, $guicreatex, $guicreatey, -1, -1)
GUISetBkColor (0x000000)
$guicreate0011 = _GUICtrlStatusBar_Create ($guicreate0010)
_GUICtrlStatusBar_SetParts ($guicreate0011, 4, $guicreatex / 4)
GUISetState (@SW_SHOW, $guicreate0010)
$guicreate0012 = GUICtrlCreateProgress (0, 0, -1, -1, $PBS_MARQUEE)
$guicreate0013 = GUICtrlGetHandle ($guicreate0012)
_GUICtrlStatusBar_EmbedControl ($guicreate0011, 0, $guicreate0013, 4)
_SendMessage ($guicreate0013, $PBM_SETMARQUEE, True, 200)
$guicreate0014 = GUICtrlCreateProgress (0, 0, -1, -1, $PBS_MARQUEE)
$guicreate0015 = GUICtrlGetHandle ($guicreate0014)
_GUICtrlStatusBar_EmbedControl ($guicreate0011, 1, $guicreate0015, 4)
_SendMessage ($guicreate0015, $PBM_SETMARQUEE, True, 400)
; dieses soll in die andere richtung laufen
$guicreate0016 = GUICtrlCreateProgress (0, 0, -1, -1, $PBS_MARQUEE)
$guicreate0017 = GUICtrlGetHandle ($guicreate0016)
_GUICtrlStatusBar_EmbedControl ($guicreate0011, 2, $guicreate0017, 4)
_SendMessage ($guicreate0017, $PBM_SETMARQUEE, True, 400)
; dieses soll in die andere richtung laufen
$guicreate0018 = GUICtrlCreateProgress (0, 0, -1, -1, $PBS_MARQUEE)
$guicreate0019 = GUICtrlGetHandle ($guicreate0018)
_GUICtrlStatusBar_EmbedControl ($guicreate0011, 3, $guicreate0019, 4)
_SendMessage ($guicreate0019, $PBM_SETMARQUEE, True, 200)
GUISetCursor (3)
_button ()
Func _button ()
While True
Sleep (1000)
WEnd
EndFunc
Func _exit ()
; FileDelete
; DirRemove
Exit
EndFunc