[Tutorial 2.1] Keybinder -> Senden (ControlSend)

S|S|L · 12/28/2011, 15:29

Hallo,
nun gehts weiter mit dem Keybinder aus Tutorial 2.1.
Wir erstellen uns noch einen weiteren Button und nennen unser Label 1 -> Taste 1, bei Input 1 machen wir aus "Input1" -> ""
Nun erstellen wir uns eine Funktion, die unseren Keybinder startet:
Funktionen beginnen zur Übersicht mit einem _

Code:

func _Starten()
	
endfunc

In dieser Funktion fragen wir nun ab, ob GTA:SA:MP geöffnet ist und setzen eine Variable auf true (= an)

Code:

	If WinExists("GTA:SA:MP") Then
		MsgBox(0, "", "Keybinder gestartet")
		$gestartet = true ; wir erstellen noch am Anfang die Variable mit Dim $gestartet
	Else
		MsgBox(0,"","Keybinder konnte nicht gestartet werden, GTA:SA:MP ist nicht offen.")
	Endif

Die If-Abfrage habt ihr schon kennengelernt, WinExists prüft einfach ob ein Fenster geöffnet ist

Nun haben wir unsere Starten-Funktion.

Und vergisst nicht: Am besten nach jeden paar Schritten mal euer Programm Starten (F5) oder Tools -> Go

Jetzt geht es an das Speichern der Felder (Inputs) und das ausgeben von den Nachrichten.

Wir erstellen uns noch eine Funktion und Speichern den Text aus den Inputs in eine Datei, die im Verzeichnis des Scriptes liegt.

Code:

func _Speichern()
	IniWrite($configfile,"Keybinder","1",guictrlread($Input1)) 
	#cs
	Parameter 1: Die Datei, wir definieren sie mit $configfile = @ScriptDir & "\Config.ini" am Anfang des Scriptes.
	Parameter 2: Die Sektion in der .ini Datei
	Parameter 3: Der Key in der .ini Datei
	Parameter 4: Der Text, der in die Datei geschrieben werden soll.
	
	Die Datei sieht dannach so aus:
	
	[Keybinder]
	1=tText von Taste 1
	
	#ce
EndFunc

Das ganze macht ihr jetzt noch für das Input 2 (Taste 2).

Nun weisen wir unseren 2 Buttons 2 Funktionen zu, dies machen wir indem wir nach

Code:

		Case $GUI_EVENT_CLOSE
			Exit

suchen und das hier einfügen:

Code:

		Case $button
			_Starten()
		Case $button2
			_Speichern()

Das heißt soviel wie "Wenn $button gedrückt, dann führe die Funktion _Starten() aus."

Nun wollen wir aber noch, dass unsere .ini beim Programmstart ausgelesen wird, dies machen wir mit IniRead, die Parameter sind (fast) die gleichen wie bei IniWrite.

Code:

If FileExists($configfile) Then
	$1 = IniRead($configfile,"Keybinder","1",""); parameter: Dateiname | Sektion | Key | Der Wert, der angegeben soll, wenn der Key nicht gefunden wird
	guictrlsetdata($input1, $1)
Endif

Wir checken erstmal ob es die Datei gibt, dann lesen wir den Inhalt aus und setzen diesen in unser Inputfeld.
Das ganze macht ihr mit dem 2ten Key und Inputfeld.
Dieser Code kommt am besten nach #EndRegion ### END Koda GUI section ###.

Nun gehts an das Schreiben.

Code:

HotKeySet("1","_1")

Sagt soviel wie: Setze mir ein HotKey auf Taste 1 für die Funktion _1, Tasten wie F1 usw werden mit "{F1}" angegeben.

Die Funktion dazu lautet nun

Code:

func _1()
	if $gestartet = true AND WinActive("GTA:SA:MP") Then ;wenn gestartet = ja UND gta:sa:mp fenster aktiv, dann
	ControlSend("GTA:SA:MP", "", "", guictrlread($input1)) ;parameter: titel | text, der in unserem fenster steht (bei uns keiner) | Die ControlID an die es gesendet werden soll (bei uns auch keine) | und der Text, der gesendet werden soll
	Endif
endfunc

Und das ganze wieder mit Input 2

Das wars erstmal, bis zum nächsten Tutorial.
Hier nochmal der Code bis jetzt:

Musste es verkleinern damit alles reinpasst

!llu · 12/30/2011, 17:47

Ähm, könntest du bittte aufhören, für jedes neue Tut einen neuen Thread zu machen ?
Es wäre besser wenn du im alten Thread diesen neuen Stoff dazu adden würdest
Dann wird die Section auch nicht so voll gespammt =)
Falls du nicht weißt wie das geht, geh auf deinen alten Thread und drück,(wo auch der
Thanks Button ist) auf Edit. Dann einfach den neuen Stoff einfügen.

lolkop · 12/30/2011, 17:54

Quote:

Originally Posted by DarkAzrail

Ähm, könntest du bittte aufhören, für jedes neue Tut einen neuen Thread zu machen ?
Es wäre besser wenn du im alten Thread diesen neuen Stoff dazu adden würdest
Dann wird die Section auch nicht so voll gespammt =)
Falls du nicht weißt wie das geht, geh auf deinen alten Thread und drück,(wo auch der
Thanks Button ist) auf Edit. Dann einfach den neuen Stoff einfügen.

wäre auch nett, wenn du in zukunft eine schrift nutzt, welche auch lesbar ist, ohne das man sie extra markieren muss.

im idealfall einfach schwarz, wie jeder normale, halbwegs professionelle mensch es auch macht.