hey
ich hab ein kleines programm gemacht. das drückt immer die entertaste in einem bestimmten rythmus. ich will dass die sekunden, die zwischen dem drücken in eine ini datei schreiben. und auch die start und stop hotkeys will ich in die ini reinschreiben
Hier der Code:
Code
#include <GUIConstants.au3>
HotKeySet("{F4}", "pause")
HotKeySet("{F3}", "start")
HotKeySet("{ESC}", "end")
MsgBox(0, "Author", "This tool is made by © Lukas Reisinger")
MsgBox(0, "Tool", "This tool is a simple Enter-Press-Script")
MsgBox(0, "Info", "F3 = Start Tool" & @CRLF & "F4 = Stop Tool" & @CRLF & "ESC = Close Tool")
GUICreate("Some GUI", "Some Parameters")
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Lukas Reisinger\Desktop\Form2.kxf
$Form2 = GUICreate("Settings", 338, 185, 303, 209)
$Label1 = GUICtrlCreateLabel("Seconds between clicking ENTER:", 8, 32, 213, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$seconds = GUICtrlCreateInput("seconds", 224, 32, 73, 21)
$Label2 = GUICtrlCreateLabel("Hotkey for start the program:", 8, 64, 171, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$boxstart = GUICtrlCreateInput("boxstart", 224, 64, 73, 21)
$Label3 = GUICtrlCreateLabel("Hotkey for stop the program:", 8, 96, 172, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$boxstop = GUICtrlCreateInput("boxstop", 224, 96, 73, 21)
$Label4 = GUICtrlCreateLabel("Hotkey for close the program:", 8, 128, 179, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$boxclose = GUICtrlCreateInput("ESC", 224, 128, 73, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label5 = GUICtrlCreateLabel("SETTINGS", 136, 0, 84, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Perpetua Titling MT")
$Button1 = GUICtrlCreateButton("Save", 64, 152, 97, 25, 0)
$Button2 = GUICtrlCreateButton("Cancel", 176, 152, 105, 25, 0)
#EndRegion ### END Koda GUI section ###
func save()
IniWrite("\settings.ini", "Main", "HotkeyStart", GUICtrlRead($boxstart))
IniWrite("\settings.ini", "Main", "HotkeyStop", GUICtrlRead($boxstop))
MsgBox(64, "Save", "Settings have been saved sucessful")
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Label1
Case $Label5
Case $Button2
EndSwitch
WEnd
HotKeySet("{F4}", "pause")
HotKeySet("{F3}", "start")
HotKeySet("{ESC}", "end")
MsgBox(0, "Author", "This tool is made by © Lukas Reisinger")
MsgBox(0, "Tool", "This tool is a simple Enter-Press-Script")
MsgBox(0, "Info", "F3 = Start Tool" & @CRLF & "F4 = Stop Tool" & @CRLF & "ESC = Close Tool")
While (1)
Sleep(500)
WEnd
Func START()
While (1)
Send("{ENTER}")
Sleep(1500)
WEnd
EndFunc
Func PAUSE()
While 1
Sleep(1)
WEnd
EndFunc
Func END()
Exit
EndFunc
Alles anzeigen
die settings.ini soll z.B so ausschauen:
ich hoffe, dass mir jemand helfen kann
mfg #lukas