What is wrong in my Script? This have to press the Key: $Input11 and give out the Text: $Input1 But it doesn't do this. >_< Why? If you find other mistakes, too, please let me know. Thank you for Help! Complete Code: #include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("GTA-Suchtis Keybinder", 984, 436, 200, 136)
$Input1 = GUICtrlCreateInput("", 8, 24, 153, 21)
$Input11 = GUICtrlCreateCombo("", 176, 24, 115, 21)
GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|0|ß|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|{F9}|{F10}|{F11}|{F12}|q|w|e|r|t|z|u|i|o|p|ü|a|s|d|f|g|h|j|k|l|ö|ä|y|x|c|v|b|n|m|,|.|-|#|+|{TAB}|{LSHIFT}|{RSHIFT}|{RCTRL}|{LCTRL}|{LALT}|{RALT}|{SPACE}|{NUMPAD0}|{NUMPAD2}|{NUMPAD3}|{NUMPAD4}|{NUMPAD5}|{NUMPAD6}|{NUMPAD7}|{NUMPAD8}|{NUMPAD9}|{NUMPADMULT}|{NUMPADADD}|{NUMPADSUB}|{NUMPADDIV}|{NUMPADDOT}|{NUMPADENTER}")
$MenuItem1 = GUICtrlCreateMenu("&Datei")
$MenuItem2 = GUICtrlCreateMenuItem("Speichern unter..", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Laden..", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Schließen", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenu("&Credits")
$MenuItem6 = GUICtrlCreateMenuItem("About", $MenuItem5)
GUISetState(@SW_SHOW)
HotKeySet(GUICtrlRead($Input11), "_start1")
Func _start1()
Send("T")
Sleep(100)
Send(GUICtrlRead($Input1))
Send("{ENTER}")
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem4
Exit
Case $MenuItem6
MsgBox(0, "About", "Dieses Tool wurde von qixx für die GTA-Suchtis geskriptet! Vielen Dank auch an Hann_Clammon, der mir sehr weitergeholfen hat!")
Case $MenuItem2
$inisave = FileSaveDialog("Datei Speichern...",@ScriptDir,"Ini-Datei (*.ini)",16,".ini")
If @error Then
Else
$save1 = GUICtrlRead($Input1)
IniWrite($inisave, "Text", "Command1", $save1)
$save11 = GUICtrlRead($Input11)
IniWrite($inisave, "Taste", "Taste1", $save11)
EndIf
Case $MenuItem3
$iniopen = FileOpenDialog("Datei laden...",@ScriptDir,"Ini-Datei (*.ini)")
If @error Then
Else
$edit1 = IniRead($iniopen, "Text", "Command1", "")
ControlSetText("GTA-Suchtis Keybinder", "", $Input1, $edit1)
$edit11 =IniRead($iniopen, "Taste", "Taste1", "")
ControlSetText("GTA-Suchtis Keybinder", "", $Input11, $edit11)
EndIf
EndSwitch
WEnd