Jump to content

qixx

Members
  • Posts

    13
  • Joined

  • Last visited

Everything posted by qixx

  1. It's nice. Today I will use it. But you have to delete: Global Const $WM_LBUTTONDOWN = 0x0201 Else you get an error: ERROR: $WM_LBUTTONDOWN previously declared as a 'Const' Global Const $WM_LBUTTONDOWN = 0x0201
  2. Same Problem. :/ Please Help! MfG qixx
  3. Thanks @ all! It works. >_< MfG qixx
  4. If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $var2=1 Else $var2=0 Endif Right? MfG qixx
  5. Hi, I don't understand how I could use a Checkbox. If the Checkbox is true, $var2 should be: $var2=1 If the CheckBox ist false, $var2 schould be: $var2=0 $CheckBox1 = GUICtrlCreateCheckbox ( "Check", 170, 90) Sry for my english, but I'm german.>_< Thank you!
  6. Thank you! Thats it! >_<
  7. Could you help me again, pls? >_< My question: If I use _SendMes1() the functions _SendMes2() and _SendMes3() should be deaktivated. Func _SendMes1() ;DEACTIVATE _SendMes2() and _SendMes3() If WinActive("GTA:SA:MP") Then Send(GUICtrlRead($Input1)) ;ACTIVATE _SendMes2() and _SendMes3() EndIf EndFunc Original part of the code: Func _SendMes1() If WinActive("GTA:SA:MP") Then Send(GUICtrlRead($Input1)) EndIf EndFunc Func _SendMes2() If WinActive("GTA:SA:MP") Then Send(GUICtrlRead($Input2)) EndIf EndFunc Func _SendMes3() If WinActive("GTA:SA:MP") Then Send(GUICtrlRead($Input3)) EndIf EndFunc
  8. YES MAN! ;) This is it! >_< Thanks! What was the mistake?
  9. In $Input1 you type a Text In §Inpot11 you change the key, you have to press to lets typing the text. >_< e.g.: $Input1 = EXAMPLE $Input11 = {F12} You press "F12" and the text "EXAMPLE" is writing in the document. MfG qixx
  10. If i add this into my script, the $input1 is the same as $input11 and it doesn't work by pressing the key. >_<
  11. 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
  12. Yes, i know that it would be better to use another key, but I'm want to use M. All auf the F1-F12 keys I used. Now I have to use some other keys like "M". >_< Edit: I know, that it works. I used the Chaos A.D. Keybinder and this works. The problem with this program is, that it have to few input boxes.
  13. English: So, my question is, how I do it, that if I press the M button, the the text only typing in the chat input box if this is closed, so no if I write a text with an "M" in the middle of my message stands "EXAMPLE TEXT" >_< Description for code: GTA:SA:MP = The program t = Open the input box EXAMPLE TEXT = Text is typing {ENTER} = Send the message into chat Sry for my english, but I'm german. --------------------------------------------- Deutsch: Also, meine Frage ist, wie ich es schaffe, dass ich, wenn ich die Taste M drücke, der Text nur in die Chat-Input-Box gerschrieben wird, wenn dieses geschlossen ist, damit nicht, wenn ich einen Text mit einem M schreibe, mittendrin das "EXAMPLE TEXT" steht. Erklärung für den Code: GTA:SA:MP = Das Programm t = Öffnet die Chat-Input-Box EXAMPLE TEXT = Der Text, der gesendet werden soll {ENTER} = Sendet den Text in den Chat --------------------------------------------- The Code: HotKeySet(M, "_start1") Func _start1() If WinActive("GTA:SA:MP") Then Send("T") Send("EXAMPLE TEXT") Send("{ENTER}") Else EndIf EndFunc
×
×
  • Create New...