Anzeige "Noch zu machende Bilder"

[Ludder231]

Hallo liebe evpers,

ich hab mal wieder ne frage. Und zwar möchte ich wissen wie ich anzeigen lassen kann wie viele "noch zu machende Bilder" sind.

So weiß ich wie es geht, aber andersherum nicht.

PHP Code:

ToolTip("Gemachte Bilder:" & $i, 0, 0, "Fortschritt") 


Und das bloß mit "zu machende Bilder".

[BlackHybrid]

Wenn es mit deinem letzten Thema zu tun hat so.

PHP Code:

ToolTip("Gemachte Bilder:" & GUICtrlRead($Input2) - $i, 0, 0, "Fortschritt") 


Das einfach vor _screencapture_capture() setzen.

Ps: Bitte genauer erklären. Ohne dein anderes Thema hätte ich nicht gewusst was du meinst.

[derpo]

Bitte genauer erklären. Hier mal, wie ich es verstanden habe :

PHP Code:

Global $Menge = 5
Global $Bildernamen[$Menge]
$Bildernamen[0] = "Img01"
$Bildernamen[1] = "Img02"
$Bildernamen[2] = "Img03"
$Bildernamen[3] = "Img04"
$Bildernamen[4] = "Img05"
Global $Fertig[$Menge]
$Fertig[0] = 0
$Fertig[1] = 1
$Fertig[2] = 0
$Fertig[3] = 0
$Fertig[4] = 1
Global $Bilderunfertig[5][1]
$Text = "Fertiggestellte Bilder : "
$Mengegemacht = 0
For $i = 0 To 4 Step 1
If $Fertig[$i] = 1 Then
$Bilderunfertig[$i][0] = 0
$Mengegemacht = $Mengegemacht + 1
If $i < 4 Then
$Text = $Text & $Bildernamen[$i] & ", "
Else
$Text = $Text & $Bildernamen[$i]
EndIf
Else
$Bilderunfertig[$i][0] = 1
EndIf
Next
$einprozent = $Menge / 100
$Text = $Text & " ( " & $Mengegemacht / $einprozent & " % ) "
MsgBox(0,"Fortschritt",$Text) 


[Ludder231]

Originally Posted by BlackHybrid

Wenn es mit deinem letzten Thema zu tun hat so.

PHP Code:

ToolTip("Gemachte Bilder:" & GUICtrlRead($Input2) - $i, 0, 0, "Fortschritt") 


Das einfach vor _screencapture_capture() setzen.

Ps: Bitte genauer erklären. Ohne dein anderes Thema hätte ich nicht gewusst was du meinst.

AHh genau das wollte ich
Wegen der erklärung sorry aber, ich war in Eile ^^
Nächstes mal besser würde ich sagen

[Ludder231]

Hab noch ne frage und zwar:

Ich möchte, dass wenn nichts in der Inputbox geschrieben wird das dann eine error Msgbox kommt und dann die gleiche Form nochmal anzeigt ohne das das script danach weiter läuft.

Ich habs mal so gemacht aber der läuf einfach weiter nach der msgbox:

PHP Code:

if GUICtrlRead($input3) = "" then
            for $i=1 to $versuche2
            next
            msgbox(16, "Folder", "Bitte geb einen Pfad an oder einen Ordner")
            $Input3 = GUICtrlCreateInput("D:\ImagesbyBot", 16, 208, 193, 21)
            GUISetState(@SW_SHOW) 


[BlackHybrid]

Wofür die For schleife? Poste einfach mal deinen ganzen Quelltext.

[Ludder231]

Ich hab schon einiges wieder verändert, deswegen sind vllt ein paar variablen ungenutzt

PHP Code:

#include <ScreenCapture.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spybot.kxf
$Form1_1_1 = GUICreate("Bot", 243, 244, 192, 124)
$Label1 = GUICtrlCreateLabel("Start", 16, 16, 31, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Start", 16, 40, 73, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("How long between screens", 104, 16, 133, 17)
$Input1 = GUICtrlCreateInput("5", 104, 40, 89, 21)
$Label4 = GUICtrlCreateLabel("msec", 200, 40, 37, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("How many?", 104, 80, 60, 17)
$Input2 = GUICtrlCreateInput("20", 104, 104, 97, 21)
$Label6 = GUICtrlCreateLabel("JPG's", 208, 104, 31, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Load config", 104, 152, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("Open", 16, 152, 73, 25)
$Label2 = GUICtrlCreateLabel("Beta 1.0.2", 8, 112, 93, 16)
GUICtrlSetFont(-1, 9, 400, 0, "Ethnocentric")
$Label7 = GUICtrlCreateLabel("Ordner für die Bilder:", 16, 184, 100, 17)
$Input3 = GUICtrlCreateInput("d:\ImagesbyBot", 16, 208, 193, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


HotKeySet("{F5}", "_stop")
HotKeySet("{F8}", "_folder")
#RequireAdmin

$oCreator="Ludder"
$otime= @MDAY&"." &@MON&"."&@YEAR&"|" &@hour&"Uhr " &@MIN&"Min " &@SEC&"Sec "
$versuche= 2
$versuche2=4



While 1
    if ProcessExists("screenshotprogramm.exe") Then
    GUISetState(@sw_hide)
    msgbox(16, "Error", "Programm alredy exists")
    exitloop
    exit
    endif
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button4
            if FileExists(GUICtrlRead($input3)) Then
                ShellExecute(GUICtrlRead($input3))
            Else
                msgbox(16, "Error", "Cannot open "&GUICtrlRead($input3))
                endif
            case $Button3
                
                GUICtrlSetData($Input1,IniRead(GUICtrlRead($input3), "oBot", "sec", ""))
                GUICtrlSetData($Input2,IniRead(GUICtrlRead($input3), "oBot", "times", ""))
                
            case $Button1
            if not FileExists(GUICtrlRead($input3)) then
                    DirCreate(GUICtrlRead($input3))
                endif
                
            
                
            
            if GUICtrlRead($input3) = "" then
            for $i=1 to $versuche2
            next
            msgbox(16, "Folder", "Bitte geb einen Pfad an oder einen Ordner")
            $Input3 = GUICtrlCreateInput("D:\ImagesbyBot", 16, 208, 193, 21)
            GUISetState(@SW_SHOW)
            
            EndIf
        
                GUISetState(@sw_hide)
            $input=Inputbox("Passwort", "Bitte gib das Passwort ein")
                if $input="Dj Ludder" Then
                TrayTip("Succefully", "Das eingegebene Passwort ist richtig", "")
                sleep(3000)
            Else
for $i=1 to $versuche    
msgbox(16, "Error", "Passwort ist falsch")    
$input=Inputbox("Passwort", "Bitte gib das Passwort ein")
next
msgbox(16, "Error", "3 versuche fehlgeschlagen," & @CRLF & _ 
"bitte programm neu starten")
exit
endif
            
            $iniwrite1=IniWrite(GUICtrlRead($input3)&"\Bot.ini", "oTime", "oProjekt_oTime", $otime)
            $iniwrite2=IniWrite(GUICtrlRead($input3)&"\Bot.ini", "oCreator", "oProjekt_oCreator", $ocreator)
            $iniwrite3=iniwrite(GUICtrlRead($input3)&"\Bot.ini", "oBot", "sec", GUICtrlRead($Input1))
            $iniwrite4=iniwrite(GUICtrlRead($input3)&"\Bot.ini", "oBot", "times", GUICtrlRead($Input2))
            $iniread1=Iniread(GUICtrlRead($input3)&"\Bot.ini", "oBot", "sec", GUICtrlRead($Input1))
            $iniread3=IniRead(GUICtrlRead($input3)&"\Bot.ini", "oBot", "times", GUICtrlRead($Input3))
            
            TrayTip("Folder", "Open Folder with F8" &@CRLF& _
            "Stop Manager with F5", "")
            for $i=1 to GUICtrlRead($Input2)
            sleep(guictrlread($input1))
            ToolTip("Gemachte Bilder:" & $i& @CRLF & _
            "Noch zu machende Bilder:" & GUICtrlRead($Input2) - $i , 0, 0, "Fortschritt")
            _ScreenCapture_Capture(GUICtrlRead($Input3)&"\Capture " &@HOUR&"Uhr " &@MIN&"min " &@SEC&"sec " & ".png")
            
        next
        exit
        
        

    EndSwitch
WEnd

func _stop()
    Exit
    EndFunc
    
func _folder()
    if FileExists(GUICtrlRead($input3))then
    ShellExecute(GUICtrlRead($input3))

Else
    msgbox(16, "Folder", "Folder does not exist, it will created")
    DirCreate(GUICtrlRead($input3))
    IniWrite(GUICtrlRead($input3), "oDirCreate", "created", $dircreate)
    ShellExecute(GUICtrlRead($input3))
    endif
    
EndFunc 


[derpo]

Der Thread ist zwar relativ alt, aber falls es noch nicht gelöst wurde :

PHP Code:

            if GUICtrlRead($input3) = "" then
            for $i=1 to $versuche2
            next
            msgbox(16, "Folder", "Bitte geb einen Pfad an oder einen Ordner")
            GUICtrlSetData($input3,"D:\ImagesbyBot")
            GUISetState(@SW_SHOW)
            Else
            
        
                GUISetState(@sw_hide)
            $input=Inputbox("Passwort", "Bitte gib das Passwort ein")
                if $input="Dj Ludder" Then
                TrayTip("Succefully", "Das eingegebene Passwort ist richtig", "")
                sleep(3000)
            Else
for $i=1 to $versuche    
msgbox(16, "Error", "Passwort ist falsch")    
$input=Inputbox("Passwort", "Bitte gib das Passwort ein")
next
msgbox(16, "Error", "3 versuche fehlgeschlagen," & @CRLF & _ 
"bitte programm neu starten")
exit
endif
EndIf