Anweisung nur einmal pro Minute ausführen

Hallo,

hier meine allererste Frage, bin noch ganz neu in Sachen AutoIT.
Frage: Wie kann ich eine IF-Anweisung nur einmal ausführen in der Minute.

hier mein bisheriger Code:

$keys = "beispieltext"

While 1
If (@SEC = "00") Then
$file = FileOpen("test.txt", 1)
FileWriteLine($file, @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " : " & $keys)
FileClose($file)
EndIf
WEnd

Bisher schreibt er mir mehrmals in der Sekunde, wenn die Sekunde "00" ist, den Text dahin, der Grund ist mir auch klar warum, nur wie beseitige ich das, dass er mir den Text halt nur einmal hinschreibt?

muss ich denn die Variable $sekunde vorher deklarieren? Sie wird doch eigentlich mit $sekunde = @SEC deklariert oder nicht?

Dann deklarier ich am besten alle Variablen, ok.

Nochwas.

funkey wrote:
Anstelle von @sec kannst du auch @min nehmen!

D.h. bei @sec wird die Anweisung nur einmal die Sekunde aufgerufen und bei @min wird sie nur einmal die Minute aufgerufen?

Man könnte auch einfach

AdlibEnable()

nehmen ;).
Beispiel:

AdlibEnable("_funktion",5000)

Func _funktion()
MsgBox (0,"","Es sind nun 5 Sekunden vergangen")
EndFunc

While 1
WEnd

Würde alle 5 Sekunden die Funktion "_funktion" aufrufen!

hab den Code jetzt geändert:

Local $file, $keys, $minute, $minute_alt

$keys = "beispieltext"

While 1
$minute = @MIN
If $minute <> $minute_alt And @SEC = "00" Then
$file = FileOpen("test.txt", 1)
FileWriteLine($file, @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " : " & $keys)
FileClose($file)
$minute_alt = $minute
EndIf
WEnd

soweit funktioniert er auch, danke an funkey.

Hab aber noch ein kleines Problem. Unzwar schreibt er folgendes in die Textdatei.

2008/12/23 16:29:00 : beispieltext
2008/12/23 16:29:00 : beispieltext
2008/12/23 16:30:00 : beispieltext
2008/12/23 16:31:00 : beispieltext
2008/12/23 16:32:00 : beispieltext

Die erste Zeile schreibt er doppelt rein, das soll er aber natürlich nicht.
Ich weiß nun schon den Grund des Problems aber ich weiß nicht was ich tun soll.
Er tut es denk ich mal weil am Anfang ja $minute_alt noch undefiniert ist, und für ihm dann ungleich ist.

ich hab es mal mit der Lösung von bernd670 probiert, und sie funktioniert. ich hab nur das Sleep(500) weggelassen, weil ich das eigentlich nicht benötige, oder?

hier nun mein Code:

Local $file, $keys

$keys = "beispieltext"

While 1
If @SEC = "00" Then
$file = FileOpen("test.txt", 1)
FileWriteLine($file, @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " : " & $keys)
FileClose($file)
Sleep(1200)
EndIf
WEnd

ok hab ich dann auch hinzugefügt, funktioniert super dankeschön.
Und hiermit ist der Beitrag -closed-.

sorry aber ich fress nen besen wenn das KEIN keylogger wird, ich würd hier keinen support liefern.

ich glaub sogar die eine zeile ist die von kingsuperfly's keylogger, du versuchst ihn zu modden weil er bei schnellem tippen nich alle keys erwischt.

ich glaub nicht dass WoEf sooo falsch liegt mit seiner vermutung da oben die variable $keys heißt...
aber einmal in der minute die gedrückten tasten aufzeichnen kommt mir nicht wien keylogger vor...

Padmak

Edit:

Zitat

ich glaub sogar die eine zeile ist die von kingsuperfly's keylogger, du versuchst ihn zu modden weil er bei schnellem tippen nich alle keys erwischt.

woher kennstn du nen keylogger? sogar von wem? (ich kenn ihn nicht aber wenn jemand schon so etwas behauptet...) UND sogar dass er nich alle tasten aufzeichnet...
das stellt dich auch nicht in das absolut beste licht oder?