[RELEASE] -STORM- Resolution Hack Open Source

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

[Only registered and activated users can see links. Click Here To Register...]

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:
[Only registered and activated users can see links. Click Here To Register...]
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

Code:

#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:
[Only registered and activated users can see links. Click Here To Register...]
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.