[RELEASE] -STORM- Resolution Hack Open Source

[-STORM-]

Hi.
Hier veröffentliche ich nun meinen neuen Resolution Hack.
Damit könnt ihr beispielsweise in FullHD (oder auch höher falls euer Bildschirm das kann) zocken, die Größe so einstellen, dass 2 Fenster sich genau den Screen teilen, etc.

So kann das aussehen:

 Spoiler

Features:

• Multiclient Unterstützung
  Ihr könnt beliebig viele LC-Clienten öffnen und für jeden seperat verschiedene Auflösungen einstellen.
  Der Zugriff wird durch die Handle der Fenster koordiniert. Diese sind eindeutig. Identische Titel stellen kein Hindernis dar.
• AntiAutoit Bypass ohne Patch oder Offsets
  Durch meinen Compiler wird die .exe undetected. Das funktioniert auf jedem Server, ohne etwas zu patchen, oder Offsets zu suchen.
  Wer etwas am Source ändern möchte, muss Anti AutoIt selbst umgehen.
• OnChange und StartUp
  Ihr könnt entweder den OnChange Wert ändern, um die Auflösung sofort zu aktivieren (durch Wechseln der Auflösung in den Optionen) oder den StartUp Wert, damit LC immer automatisch mit der gewünschten Auflösung startet.
• Multi Version
  Die Addressen können in der ResolutionAddresses.ini angepasst werden. So kann der Hack auf jeder Version benutzt werden.

Fenster auswählen
Beim Start sucht der Hack nach laufenden Nksp.exe. Findet er eine, wird die automatisch ausgewählt. Möchtet ihr ihn in Verbindung mit nem Multiclient benutzen, könnt ihr manuell ein Fenster auswählen.
Dafür einfach den Select-Button drücken und mit dem nächsten Klick das geöffnete LC-Fenster wählen.
Anschließend werden Fenstertitel, ProcessID und WindowHandle angezeigt. Reicht euch das nicht für eine eindeutige Bestimmung, drückt den Open-Button und das ausgewählte Fenster wird in den Vordergrund geholt.

Benutzung
Möchtet ihr, dass bei jedem Spielstart automatisch die gewählte Auflösung benutzt wird, klickt ihr auf Set StartUp und beendet LC. Beim Neustart habt ihr dann diese Auflösung.
Um sie ohne Neustart zu aktivieren, klickt ihr auf Freeze OnChange und wählst anschließend eine beliebige Auflösung in den LC Optionen aus und klickt dort Ok. Dann dauert es einen Moment, bis sich das Fenster angepasst hat. Anschließend könnt ihr OnChange wieder unfreezen.
Das Auslesen der OnChange Werte funktioniert erst, nachdem ihr in LC einmal die Auflösung geändert habt, vorher ist der Wert immer 0.

Addressen einstellen:

Nach dieser Methode findet ihr die Addressen für eure Version. Die setzt ihr einfach in der ResolutionAddresses.ini ein.

Wird xTrap unterstützt?
Nein. Falls eure Version xTrap benutzt, müsst ihr euch selbst um einen Bypass kümmern.

Bugs:
Keine bekannt.
Falls ihr welche findet, ausführlich (!) hier melden. Dazu gehört verwendetes Betriebssystem, LC Version, genau Beschreibung des Fehlers und unter Umständen Screenshots oder ein Video.
Sätze wie "es läuft nicht." machen jegliche Hilfe unmöglich.

Geplante Änderungen:
Vorerst keine.

Source

 Spoiler

Hier der komplette Source des Hacks:

 Spoiler

#NoTrayIcon
#RequireAdmin
#include <Pointer.au3>
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=by -STORM-
#AutoIt3Wrapper_Res_Description=StormResolution
#AutoIt3Wrapper_Res_LegalCopyright=© by -STORM-
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
SetPrivilege("SeDebugPrivilege", 1)
Opt("GUIOnEventMode", 1)

#region ### Define Vars ###
Global $winselected = False
Global $winpid, $winhandle, $wintitle

Global $frozen = False
Global $xres, $yres

Global $resxstartup = IniRead("ResolutionAddresses.ini", "Addresses", "resXstartup", "")
Global $resystartup = IniRead("ResolutionAddresses.ini", "Addresses", "resYstartup", "")
Global $resxonchange = IniRead("ResolutionAddresses.ini", "Addresses", "resXonchange", "")
Global $resyonchange = IniRead("ResolutionAddresses.ini", "Addresses", "resYonchange", "")
#endregion ### Define Vars ###
#region ### GUI Section ###
Global $gui = GUICreate("-STORM- Resolution v1", 400, 250)
GUISetOnEvent(-3, "_exit")
GUISetBkColor(0xFFFFFF, $gui)

Global $statuslabel = GUICtrlCreateLabel("looking for LC                          ", 120, 20)
GUICtrlSetFont($statuslabel, 11)
Global $selectwinbutton = GUICtrlCreateButton("Select", 310, 10)
GUICtrlSetOnEvent($selectwinbutton, "_selectwin")
Global $openwindowbutton = GUICtrlCreateButton("Open", 360, 10)
GUICtrlSetOnEvent($openwindowbutton, "_openwin")

Global $windowgroup = GUICtrlCreateGroup("Window", 10, 50, 380, 90)
GUICtrlSetFont($windowgroup, 11)
Global $winpidlabel = GUICtrlCreateLabel("PID:                                                                                                                 ", 20, 75)
Global $winhandlelabel = GUICtrlCreateLabel("Handle:                                                                                                            ", 20, 95)
Global $wintitlelabel = GUICtrlCreateLabel("Title:                                                                                                                ", 20, 115)

Global $resolutiongroup = GUICtrlCreateGroup("Resolution", 10, 145, 130, 90)
GUICtrlSetFont($resolutiongroup, 11)
GUICtrlCreateLabel("Width", 20, 170)
GUICtrlCreateLabel("Height", 20, 200)
Global $widthinput = GUICtrlCreateInput("", 60, 167, 70)
Global $heightinput = GUICtrlCreateInput("", 60, 197, 70)

Global $setonchange = GUICtrlCreateButton("Freeze OnChange", 160, 150, 110, 30)
GUICtrlSetOnEvent(-1, "_setonchange")
Global $setstartup = GUICtrlCreateButton("Set StartUp", 280, 150, 110, 30)
GUICtrlSetOnEvent(-1, "_setstartup")
Global $readonchange = GUICtrlCreateButton("Read OnChange", 160, 190, 110, 30)
GUICtrlSetOnEvent(-1, "_readonchange")
Global $readstartup = GUICtrlCreateButton("Read StartUp", 280, 190, 110, 30)
GUICtrlSetOnEvent(-1, "_readstartup")
GUISetState(@SW_SHOW, $gui)
#endregion ### GUI Section ###
While 1
	#region ### Window Handling ###
	If Not $winselected Then
		Global $pidlist = ProcessList("Nksp.exe")
		If $pidlist[0][0] > 1 Then
			$winpid = ""
			$winhandle = ""
			$wintitle = ""
			If GUICtrlRead($statuslabel) <> "LC found " & $pidlist[0][0] & " times, please select!" Then
				GUICtrlSetData($statuslabel, "LC found " & $pidlist[0][0] & " times, please select!")
				GUICtrlSetColor($statuslabel, 0xFF9900)
			EndIf
		ElseIf $pidlist[0][0] = 1 Then
			$winpid = $pidlist[1][1]
			$winhandle = _GetHwndFromPID($winpid)
			$wintitle = WinGetTitle($winhandle)
			$winselected = True
			If $winhandle = 0 Then
				If GUICtrlRead($statuslabel) <> "LC loading" Then
					GUICtrlSetData($statuslabel, "LC loading")
					GUICtrlSetColor($statuslabel, 0xFF9900)
				EndIf
			Else
				If GUICtrlRead($statuslabel) <> "LC found" Then
					GUICtrlSetData($statuslabel, "LC found")
					GUICtrlSetColor($statuslabel, 0x006400)
				EndIf
			EndIf
		ElseIf $pidlist[0][0] = 0 Then
			$winpid = ""
			$winhandle = ""
			$wintitle = ""
			If GUICtrlRead($statuslabel) <> "LC NOT found" Then
				GUICtrlSetData($statuslabel, "LC NOT found")
				GUICtrlSetColor($statuslabel, 0xFF0000)
			EndIf
		EndIf
		If GUICtrlRead($winpidlabel) <> "PID: " & $winpid Then GUICtrlSetData($winpidlabel, "PID: " & $winpid)
		If GUICtrlRead($winhandlelabel) <> "Handle: " & $winhandle Then GUICtrlSetData($winhandlelabel, "Handle: " & $winhandle)
		If GUICtrlRead($wintitlelabel) <> "Title: " & $wintitle Then GUICtrlSetData($wintitlelabel, "Title: " & $wintitle)
	EndIf

	If Not WinExists($winhandle) Then $winselected = False
	#endregion ### Window Handling ###
	Sleep(50)
WEnd

#region ### Resolution Functions ###
Func _setrescur()
	If $winselected Then
		Local $open = _MemoryOpen($winpid)
		_MemoryWrite($resxonchange, $open, $xres, 'dword')
		_MemoryWrite($resyonchange, $open, $yres, 'dword')
		_MemoryClose($open)
	Else
		$frozen = False
		GUICtrlSetData($setonchange, "Freeze OnChange")
		AdlibUnRegister("_setrescur")
		MsgBox(48, "Error", "Select window or open LC please!")
	EndIf
EndFunc   ;==>_setrescur

Func _setonchange()
	$frozen = Not $frozen
	If $frozen Then
		If $winselected Then
			GUICtrlSetData($setonchange, "Unfreeze OnChange")
			Global $xres = GUICtrlRead($widthinput)
			Global $yres = GUICtrlRead($heightinput)
			AdlibRegister("_setrescur", 10)
		Else
			MsgBox(48, "Error", "Select window or open LC please!")
			$frozen = False
		EndIf
	Else
		AdlibUnRegister("_setrescur")
		GUICtrlSetData($setonchange, "Freeze OnChange")
	EndIf
EndFunc   ;==>_setonchange
Func _setstartup()
	If $winselected Then
		Local $open = _MemoryOpen($winpid)
		Local $width = GUICtrlRead($widthinput)
		Local $height = GUICtrlRead($heightinput)
		_MemoryWrite($resxstartup, $open, $width, 'dword')
		_MemoryWrite($resystartup, $open, $height, 'dword')
		_MemoryClose($open)
	Else
		MsgBox(48, "Error", "Select window or open LC please!")
	EndIf
EndFunc   ;==>_setstartup
Func _readonchange()
	If $winselected Then
		Local $open = _MemoryOpen($winpid)
		Local $width = _MemoryRead($resxonchange, $open, 'dword')
		Local $height = _MemoryRead($resyonchange, $open, 'dword')
		GUICtrlSetData($widthinput, $width)
		GUICtrlSetData($heightinput, $height)
		_MemoryClose($open)
	Else
		MsgBox(48, "Error", "Select window or open LC please!")
	EndIf
EndFunc   ;==>_readonchange
Func _readstartup()
	If $winselected Then
		Local $open = _MemoryOpen($winpid)
		Local $width = _MemoryRead($resxstartup, $open, 'dword')
		Local $height = _MemoryRead($resystartup, $open, 'dword')
		GUICtrlSetData($widthinput, $width)
		GUICtrlSetData($heightinput, $height)
		_MemoryClose($open)
	Else
		MsgBox(48, "Error", "Select window or open LC please!")
	EndIf
EndFunc   ;==>_readstartup
#endregion ### Resolution Functions ###
#region ### Window Handling Functions ###
Func _selectwin()
	While 1
		If _IsPressed("01") Then
			Sleep(30)
			ExitLoop
		EndIf
	WEnd
	$winhandle = WinGetHandle("")
	$winpid = WinGetProcess($winhandle)
	$wintitle = WinGetTitle($winhandle)
	$winselected = True
	GUICtrlSetData($statuslabel, "Window Selected")
	GUICtrlSetColor($statuslabel, 0x006400)
	GUICtrlSetData($winpidlabel, "PID: " & $winpid)
	GUICtrlSetData($winhandlelabel, "Handle: " & $winhandle)
	GUICtrlSetData($wintitlelabel, "Title: " & $wintitle)
EndFunc   ;==>_selectwin

Func _openwin()
	WinActivate($winhandle)
EndFunc   ;==>_openwin

Func _IsPressed($sHexKey, $vDLL = 'user32.dll')
	Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", '0x' & $sHexKey)
	If @error Then Return SetError(@error, @extended, False)
	Return BitAND($a_R[0], 0x8000) <> 0
EndFunc   ;==>_IsPressed

Func _GetHwndFromPID($pid)
	Local $i, $winlist = WinList()
	For $i = 1 To $winlist[0][0]
		If WinGetProcess($winlist[$i][1]) = $pid And $winlist[$i][0] <> "" Then Return $winlist[$i][1]
	Next
	Return
EndFunc   ;==>_GetHwndFromPID
#endregion ### Window Handling Functions ###
Func _exit()
	Exit
EndFunc   ;==>_exit

Was darf damit gemacht werden?
Was ihr wollt. Ihr könnt ihn zum lernen benutzen, als Beispielscript, oder auch als Grundlage für einen eigenen Hack.
Einzige Bedingung:
Der Hack ist open source und bleibt es auch! Ihr dürft ihn verändern, wie ihr wollt, aber wenn ihr ihn veröffentlicht, postet dazu den Source.
Neue Threads bitte nur für wirklich (!) bedeutende Änderungen, sonst wird das Forum mit Threads über nahezu identische Hacks überflutet.
Postet einfach euren Source und evtl. eine compilierte .exe hier und ich werde sie im ersten Post editieren. Selbstverständlich mit Credits.

Wenn ihr Fragen zum Script habt, könnt ihr sie gerne stellen, aber bitte nur spezielle Fragen zu einzelnen Teilen. Ich kann euch gerne erklären, wieso ich einen bestimmten Befehl benutzt habe, aber wenn ihr insgesmt fast nichts davon versteht, solltet ihr lieber erstmal ein paar Tutorials lesen.

VirusTotal
Der Source macht zwar eigentlich jeden Virenscan unnötig, aber bevor irgendwelche Fragen kommen, ob der auch wirklich sicher ist (als ob ich es euch sagen würde, wenn ich Viren verbreiten würde) oder auch Anschuldigungen, weil CrapSoftware XY angeblich nen Virus detected, hier mal ein Scan:

Von 41 Programmen hat einzig ein grandioses Programm namens Antiy-AVL etwas gefunden. Ich denke, das spricht für sich.

Sonstiges
Mehr gibt es eigentlich nicht zu sagen.
HWID oder sonstige Sperren werden nicht verwendet und die Benutztung ist meiner Meinung nach sehr einfach.
Getestet wurde auf Win7 Professional x64, aber da ich in 32bit compiled habe, sollte es auf allen Systemen ab XP oder sogar älter problemlos laufen.

[ReichsAdler]

Geiles ding danke

[primax123]

sweet jetzt kann ich endlich 4 chars aufeinmal leveln danke

[SânSalvador]

gibts zwar schon ()

Aber finde die idee mit offsets besser

[Linoskoczek]

Would be nice if you could translate post to english