Hallo,
Ich komme mit meinem Programm irgendwie nicht richtig weiter.
Habe meine Versuche alle wieder entfernt.
Folgendes sollte passieren:
Wenn man auf Start klickt, sollte der Loop endlos durchlaufen.
1. Das Feld JAHR wird markiert (Dauer 5 Sekunden), zum nächsten Feld gehen...
2. Das Feld Ordner wird markiert (Dauer 5 Sekunden) u.s.w.
Wenn man nun RETURN drückt sollen die Felder gelesen werden und die
Function Eintrag startet...
Wenn die Function fertig ist, geht's wieder mit Jahr los...
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Form1", 615, 484, 192, 124)
$txtJahr = GUICtrlCreateInput("2014", 128, 48, 49, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtOrdner = GUICtrlCreateInput("", 128, 112, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtDatei = GUICtrlCreateInput("", 128, 168, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtAdresse = GUICtrlCreateInput("", 128, 224, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtKopie = GUICtrlCreateInput("", 128, 352, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Jahr:", 72, 48, 45, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblOrdner = GUICtrlCreateLabel("Ordner", 48, 112, 64, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblDatei = GUICtrlCreateLabel("Datei", 69, 167, 46, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblAdresse = GUICtrlCreateLabel("Adresse", 38, 232, 74, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblKopie = GUICtrlCreateLabel("Kopie", 56, 354, 53, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$btnEnde = GUICtrlCreateButton("beenden", 496, 416, 75, 25)
$btnStart = GUICtrlCreateButton("Start", 496, 40, 75, 41)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $txtJahr
;Send ("{Tab}")
Case $txtOrdner
Case $txtDatei
Case $txtAdresse
Case $txtKopie
Case $btnEnde
Exit
Case $btnStart
EndSwitch
WEnd
Func Eintrag()
;Code....
;fertig...
;Alle Felder leeren, Loop läuft weiter
endfunc
EDIT:
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Form1", 615, 484, 192, 124)
$txtJahr = GUICtrlCreateInput("2014", 128, 48, 49, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtOrdner = GUICtrlCreateInput("", 128, 112, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtDatei = GUICtrlCreateInput("", 128, 168, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtAdresse = GUICtrlCreateInput("", 128, 224, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtKopie = GUICtrlCreateInput("", 128, 352, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Jahr:", 72, 48, 45, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblOrdner = GUICtrlCreateLabel("Ordner", 48, 112, 64, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblDatei = GUICtrlCreateLabel("Datei", 69, 167, 46, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblAdresse = GUICtrlCreateLabel("Adresse", 38, 232, 74, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblKopie = GUICtrlCreateLabel("Kopie", 56, 354, 53, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$btnEnde = GUICtrlCreateButton("beenden", 496, 416, 75, 25)
$btnStart = GUICtrlCreateButton("Start", 496, 40, 75, 41)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{Enter}", "Eintrag")
;~ $i = 0
;~ for $i=1 to 3
;~ Send ("{Tab}")
;~ Sleep(2000)
;~ next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $txtJahr
;Send ("{Tab}")
Case $txtOrdner
Case $txtDatei
Case $txtAdresse
Case $txtKopie
Case $btnEnde
Exit
Case $btnStart
Send ("{Tab}")
Sleep (2000)
EndSwitch
Send ("{Tab}")
Sleep (2000)
WEnd
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script ist pausiert', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause
Func Terminate()
Exit 0
EndFunc ;==>Terminate
Func Eintrag()
MsgBox(4096, "", "Das ist eine Nachricht.")
EndFunc ;==>ShowMessage
Wie kann ich verhindern, dass die Buttons im Loop nicht aktiviert werden?
Grüße Ilse