Hallo ich hab eigentlich alles so weit fertig nur er soll die F1 F2 F3 F4 taste egal ...NICHT schreiben Sondenr drücken Nur ich weis nicht wie
HotKeySet ("^{F1}", "dauerbuff")
HotKeySet ("^{F5}", "_exit")
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Silkroad To0l", 330, 319, 193, 153)
GUISetBkColor(0xFFFFFF)
$Combo1 = GUICtrlCreateCombo("", 24, 16, 161, 25)
GUICtrlSetData(-1, "F1|F2|F3|F4", "F1")
$Combo2 = GUICtrlCreateCombo("", 24, 224, 161, 25)
GUICtrlSetData(-1, "F1|F2|F3|F4", "F1")
$Input2 = GUICtrlCreateInput("Taste 1", 24, 56, 161, 21)
$Input3 = GUICtrlCreateInput("Taste 2", 24, 88, 161, 21)
$Input4 = GUICtrlCreateInput("Taste 3", 24, 120, 161, 21)
$Input5 = GUICtrlCreateInput("Taste 4", 24, 152, 161, 21)
$Input6 = GUICtrlCreateInput("Taste 5", 24, 184, 161, 21)
$Label2 = GUICtrlCreateLabel("Alle 5 Minuten Neu ", 208, 24, 97, 17)
$Label3 = GUICtrlCreateLabel(" Buffen", 208, 48, 68, 17)
$Label4 = GUICtrlCreateLabel("Strg + F1 = Starten", 200, 96, 102, 17)
$Label5 = GUICtrlCreateLabel("Strg + F5 = Schließen", 200, 136, 109, 17)
$F = GUICtrlCreateButton("F.A.Q", 104, 264, 121, 41, 0)
$Label1 = GUICtrlCreateLabel("Made by _P_auf_K_", 208, 232, 101, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Label6 = GUICtrlCreateLabel("Wenn du eine Taste", 208, 168, 101, 17)
$Label7 = GUICtrlCreateLabel("Nicht willst Lösche es raus", 192, 192, 129, 17)
GUISetState(@SW_SHOW)
$MenuItem1 = GUICtrlCreateMenu("&Menü")
$MenuItem3 = GUICtrlCreateMenuItem("Schließen", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$buff = 0 ; speichert, ob dauerbuff an / aus ist
Func buff()
$Alex = GUICtrlRead ($Combo1)
$Alex2 = GUICtrlRead ($Input2)
$Alex3 = GUICtrlRead ($Input3)
$Alex4 = GUICtrlRead ($Input4)
$Alex5 = GUICtrlRead ($Input5)
$Alex6 = GUICtrlRead ($Input6)
$Alex7 = GUICtrlRead ($Combo2)
Send(" {END} ")
Sleep(1500)
Send(" {END} ")
Sleep(1500)
Send( $Alex )
Sleep(4500)
Send( $Alex2 )
Sleep(4500)
Send( $Alex3 )
Sleep(4500)
Send( $Alex4 )
Sleep(4500)
Send( $Alex5 )
Sleep(4500)
Send( $Alex6 )
Sleep(4500)
Send( $Alex7 )
Sleep(4500)
Send(" {DELETE} ")
Sleep(1500)
Send(" {DELETE} ")
Sleep(1500)
EndFunc
Func _exit()
Exit
EndFunc
Func dauerbuff()
If $buff = 0 Then
buff()
AdlibEnable( "buff" , 50000); alle 5 Min. wird automatisch buff() ausgeführt
$buff = 1; setzt dauerbuff an
Else
AdlibDisable ( )
$buff = 0 ; setzt dauerbuff aus
EndIf
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem3
Exit
Case $F
MsgBox(0, "Bei Fragen Hier -->" , www.*******.de)
EndSwitch
WEnd
while 1
sleep (50000)
WEnd
Könnt ihr mir helfen ?! Bitte nicht so viel ändern