AutoIt ändert Value nicht

[robot609]

Moinsen,

ich habe hier ein kleines AutoIt Script für S4 geschrieben, dass eine bestimmte Map zu einer anderen macht. Wenn ich das Spiel nun bypassed starte, passiert nix. Das script schließt sich nicht und die Map wird auch nicht verändert. Ich weiß nicht warum. Ich hoffe, dass mir jemand helfen kann.

Der Quellcode:

 Spoiler

#RequireAdmin
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile_type=a3x
#AutoIt3Wrapper_Outfile=BackUp\map test.a3x
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <NomadMemory.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("S4 League Map Changer", 272, 154, 193, 165)
$Group1 = GUICtrlCreateGroup("Station 2 change to", 8, 8, 185, 105)
$steel1 = GUICtrlCreateRadio("Steelcage ", 16, 32, 113, 17)
$steel2 = GUICtrlCreateRadio("Steelcage 2", 16, 56, 113, 17)
$lobby = GUICtrlCreateRadio("Old Lobby", 16, 80, 113, 17)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Waiting for S4League...", 8, 120, 116, 17)
GUISetState()


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit
			If ProcessExists("S4Client.exe") <> 1 Then
				_Werte_Aendern
			EndIf
	EndSwitch
WEnd

Func _Werte_Aendern()
	$PID = ProcessWait("S4Client.exe")
	$Open = _MemoryOpen($PID)
	If GUICtrlRead($steel1) = 1 Then
		_MemoryWrite(0x0911F63A, $Open, "bginfo-steelcage.ini", "string[20]")
	EndIf
	If GUICtrlRead($steel2) = 1 Then
		_MemoryWrite(0x0911F63A, $Open, "bginfo-steelcage2.ini", "string[21]")
	EndIf
	If GUICtrlRead($lobby) = 1 Then
		_MemoryWrite(0x0911F63A, $Open, "bginfo-left4dead.ini", "string[20]")
	EndIf
	_MemoryClose($Open)
	Exit
EndFunc   ;==>_Werte_Aendern

[jacky919]

Strings sind zu lang. Es es kein Platz für die terminierende 0.
Außerdem gibt ProcessExists die PID zurück, falls der Prozess nicht existiert 0.

[robot609]

Originally Posted by jacky919

Strings sind zu lang. Es es kein Platz für die terminierende 0.
Außerdem gibt ProcessExists die PID zurück, falls der Prozess nicht existiert 0.

Hmmm...Was kann man den gegen die Strings machen? Nix?
Und ich hatte es schon Mit ProcessWait versucht, das ging aber auch nicht.

[Njahs]

		Case -3
			Exit
			If ProcessExists("S4Client.exe") <> 1 Then
				_Werte_Aendern
			EndIf

Sprich: Beenden -> Wert ändern? hmm

[KDeluxe]

"string" ist in diesem Fall als Datentyp ungültig. Einen String müsste man ohnehin als "str" (ANSI) bzw. "wstr" (UNICODE) übergeben. Richtig wäre "char".
Um immer einfach nur die Zeichenketten zu übergeben, könntest du eine kleine Funktion benutzen:

Func _MemoryWriteString($Address, $Handle, $String)
	_MemoryWrite($Address, $Handle, $String, "char[" & StringLen($String) + 1 & "]")
EndFunc