|
You last visited: Today at 04:26
Advertisement
Anzeige "Noch zu machende Bilder"
Discussion on Anzeige "Noch zu machende Bilder" within the AutoIt forum part of the Coders Den category.
04/04/2011, 15:41
|
#1
|
elite*gold: 0 
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Anzeige "Noch zu machende Bilder"
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".
|
|
|
|
04/04/2011, 16:02
|
#2
|
elite*gold: 52
Join Date: Oct 2010
Posts: 1,998
Received Thanks: 389
|
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.
|
|
|
|
|
04/04/2011, 16:25
|
#3
|
elite*gold: 0
Join Date: Feb 2010
Posts: 344
Received Thanks: 151
|
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)
|
|
|
|
|
04/04/2011, 19:13
|
#4
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Quote:
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
|
|
|
|
|
04/05/2011, 16:44
|
#5
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
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)
|
|
|
|
|
04/05/2011, 16:56
|
#6
|
elite*gold: 52
Join Date: Oct 2010
Posts: 1,998
Received Thanks: 389
|
Wofür die For schleife? Poste einfach mal deinen ganzen Quelltext.
|
|
|
|
|
04/05/2011, 17:29
|
#7
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
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
|
|
|
|
|
04/27/2011, 11:39
|
#8
|
elite*gold: 0
Join Date: Feb 2010
Posts: 344
Received Thanks: 151
|
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
|
|
|
|
Similar Threads
|
Mehrere Channel 2010 Files (Frage zur Anzeige "norm" / "...")
02/11/2011 - Metin2 Private Server - 1 Replies
Guten Tag liebe Community,
ich habe mir gestern (mehr aus lw) mal 6 Channels gemacht. Hier für habe ich Serverside den Channel1 (kp wie der vorher hieß, glaube game) kopiert und dann immer in Channel1/2/3/4 usw umbenannt. In diesen Channels hab ich jeweils die Ports erhöht, so dass diese funktionieren. Dann habe ich im Client in der Serverinfo.py den einen Channel der bisher da war 5 mal kopiert und auch die Ports umgeändert und diese 11 in 12/13/14 usw erhöht. Nun kann man auf die Channels...
|
Kann mir bitte jemmand eine Hmachi HP erstellen """""SOS HELP""""
09/15/2010 - Metin2 Private Server - 11 Replies
SO wie der Titel schon sagt ich suche einen der mir per Teamviwer eine hp machen kann habe schon alles ausprobiert aber es klappt nie!!!!
PLS HELP...
|
All times are GMT +1. The time now is 04:27.
|
|
