Little Memory write problem

03/11/2014 12:03 md88#1

Hallo Community,
Ich habe ein kleines Problem. In meinem S4 League Trainer sorgt irgendwas daf�r das die Memorys in S4 League nicht "�berarbeitet wird". (Kann das grade nicht richtig ausdr�cken ^^') jedenfalls hier der Code:

Spoiler

Code:

#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
#include <StaticConstants.au3>
#include <Sound.au3>
#include <NomadMemory.au3>
#include <EPVP_HWID.au3>
MsgBox(48,"Please wait!", "I will check that you give an thanks me.")
$szxURL = 'http://www.elitepvpers.com/forum/s4-league-hacks-bots-cheats-exploits/3087795-release-s4l-mini-ingame.html' ;Test URL
Dim $a_szIgnoredIds[1] = ['x'] ;eigene UserID, Ausnahmen, etc.
_CheckThanks('', $szxURL, $a_szIgnoredIds)
Switch @error
	Case 7
		If MsgBox(52, 'Error ',' A Thanks would be desirable! open thread?') == 6 Then ShellExecute($szxURL)
		   Exit
	Case Else
		MsgBox(48, 'Danke', 'Thanks Have Fun!')

EndSwitch
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("[Team FTW] Have Fun Hack", 660, 452, -1, -1)
GUISetCursor (3)
$Label1 = GUICtrlCreateLabel("By Official Di!mar ", 560, 432, 87, 17)
GUICtrlSetColor(-1, 0x008080)
GUICtrlSetBkColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Start", 326, 367,100, 50)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Exit", 226, 367, 100, 50)
GUICtrlSetCursor (-1, 0)
$Checkbox9 = GUICtrlCreateCheckbox("God Mode", 40, 120, 97, 17)
$Checkbox14 = GUICtrlCreateCheckbox("1 hit kill", 40, 168, 97, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Channel no lvl", 466, 144, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("****", 160, 120, 97, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Block HP", 160, 168, 97, 17)
$Checkbox1 = GUICtrlCreateCheckbox("200HP", 106, 144, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Inf sp", 280, 120, 97, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Bind Range", 280, 168, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Damage x2", 226, 144, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("H.Riffle no fail", 400, 120, 97, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Inf Amo", 400, 168, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("No laser", 346, 144, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("WallJump teleport", 520, 120, 99, 17)
$Checkbox12 = GUICtrlCreateCheckbox("Instant Respawn", 520, 168, 99, 17)
$Slider1 = GUICtrlCreateSlider(32, 345, 99, 25)
$Button3 = GUICtrlCreateButton("Set Volume", 32, 367, 99, 15, 0)
GUICheckBoxSetColor($Checkbox1,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox2,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox3,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox4,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox5,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox6,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox7,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox8,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox9,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox10,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox11,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox12,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox13,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox14,0x000000,$GUI_BKCOLOR_TRANSPARENT )
_WinFade_BK($Form1, "in")
$Pic1 = GUICtrlCreatePic("main\ftw11.jpg", 0, -8, 660, 113)
$Pic2 = GUICtrlCreatePic("main\Addictive-Computer-Have-fun_www.FullHDWpp.com_.jpg", 0, 104, 660, 348)
$handle = _SoundOpen(@ScriptDir & "\Dreaming.mp3")
_SoundPlay($handle)
SoundSetWaveVolume(40)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
MsgBox(4096, "03.03.2014", "Script By : D!eMar//xLoader", 0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $button2
Exit
Case $GUI_EVENT_CLOSE
Exit
Case $button1
_something()
 Case $Button3
            $Read=GUICtrlRead($Slider1)
            ToolTip($Read)
            SoundSetWaveVolume($Read)
EndSwitch
WEnd



Func GUICheckBoxSetColor(ByRef $CtrlID,$iColor,$iBkColor="0xF1EDED")
    $CtrlHWnd = $CtrlID
    If Not IsHWnd($CtrlHWnd) Then $CtrlHWnd = GUICtrlGetHandle($CtrlID)
    $aParent = DllCall("user32.dll", "hwnd", "GetParent", "hwnd", $CtrlHWnd)
    $aCPos = ControlGetPos($aParent[0],"",$CtrlID)
    $sOldT = GUICtrlRead($CtrlID,1)
    GUICtrlDelete($CtrlID)
    DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0)
    $CtrlID = GUICtrlCreateCheckbox($sOldT,$aCPos[0],$aCPos[1],$aCPos[2],$aCPos[3])
    GUICtrlSetColor(-1,$iColor)
    GUICtrlSetBkColor(-1,$iBkColor)
    DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7)
 EndFunc

Func _WinFade_BK($WinTitle, $Fade = "out", $BkColor = "", $iTime = 250, $Exit = True)
    If $Fade = "in" Then
        DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", 1000, "long", 0x00080000)
    ElseIf $Fade = "out" or $Fade = "" Then
        If Not $BkColor = "" Then
            GUISetBkColor($BkColor)
		 EndIf
            DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", $iTime, "long", 0x00090000)
            Exit
		 EndIf
 EndFunc


Func _something()
ToolTip("Waiting for S4Client...", 0, 0)
$wait = ProcessWait("S4Client.exe")
$pid = ProcessExists("S4Client.exe")
Sleep(1000)
$open = _memoryopen($pid)
If GUICtrlRead($checkbox1) = 1 Then
_memorywrite(5414004, $open, "1166868842", "long")
EndIf
If GUICtrlRead($checkbox2) = 1 Then
_memorywrite(7945525, $open, "2374697578", "long")
EndIf
If GUICtrlRead($checkbox3) = 1 Then
_memorywrite(4772306, $open, "2348565979", "long")
EndIf
If GUICtrlRead($checkbox4) = 1 Then
_memorywrite(4919227, $open, "1300955754", "long")
EndIf
If GUICtrlRead($checkbox5) = 1 Then
   _memorywrite(15179559, $open, "2348565979", "long")
EndIf
If GUICtrlRead($checkbox6) = 1 Then
   _memorywrite(5421333, $open, "1301115242", "long")
EndIf
If GUICtrlRead($checkbox7) = 1 Then
   _memorywrite(4773609, $open, "3641722331", "long")
EndIf
If GUICtrlRead($checkbox8) = 1 Then
   _memorywrite(10549654, $open, "837533829", "long")
EndIf
If GUICtrlRead($checkbox9) = 1 Then
_memorywrite(5414101, $open, "1592365200", "long")
EndIf
   If GUICtrlRead($checkbox10) = 1 Then
_memorywrite(7882049, $open, "3555299472", "long")
EndIf
   If GUICtrlRead($checkbox11) = 1 Then
_memorywrite(4896399, $open, "2047263990", "long")
EndIf
   If GUICtrlRead($checkbox12) = 1 Then
_memorywrite(6270386, $open, "989874827", "long")
EndIf
   If GUICtrlRead($checkbox13) = 1 Then
_memorywrite(7945565, $open, "2374697834", "long")
EndIf
   If GUICtrlRead($checkbox14) = 1 Then
_memorywrite(5417417, $open, "1593591259", "long")
EndIf
Exit
EndFunc

W�hre nett, wenn mir jemand sagen k�nnte, wieso der nicht funktionier ^^'. P.s. Die Adressen sollten die richtigen sein. Habe es mit, hex und dezimal probiert. Ist jetzt in dem Code dezimal.(oder mach ich doch was falsch ? )

Vielen dank im vorraus :D

03/11/2014 13:55 YatoDev#2

adressen beginnen immer mit 0x

03/11/2014 14:52 KDeluxe#3

Nein! Man kann Adressen auch in Dezimalschreibweise angeben, in diesem Fall haben sie nat�rlich keinen Hex-Pr�fix (0x). Der TE hat auch explizit erw�hnt, dass im aktuellen Code die Dezimalschreibweise verwendet wird.
Negativ hierbei ist aber, dass die Zahlen als String angegeben werden. AutoIt ist nicht typensicher, daher ist es bei Dezimalschreibweise egal. Folgendes funktioniert ist aber falsch:

Code:

$iBkColor="0xF1EDED"

AutoIt wertet den String nicht aus. Deshalb funktioniert dieser Vergleich nicht, obwohl die Zahlen theoretisch die selben sind:

Code:

If "255" = "0xFF" Then MsgBox(0, "", "1") ; funktioniert nicht
If 255 = 0xFF Then MsgBox(0, "", "2") ;funktioniert

Zahlen sollte man explizit als solche angeben. Ich wei� nicht, wie AutoIt den Speicher verwaltet, aber bei typsicheren Sprachen braucht 0xFFFFFFFF lediglich 4 Byte, wohingegen der String "0xFFFFFFFF" 10 bzw. 20 Byte ben�tigt.

Zum eigentlichen Problem:
Dein Script ist recht schlampig. Du solltest bei den Memory-Funktion auf R�ckgabewerte und/oder Fehler achten. Ausgef�hrt werden die Befehle zum �ndern des Speichers au�erdem nur dann, wenn du auf den Button klickst. Einmalig. Pr�fe besser in der While-Schleife den Zustand der Checkboxen und manipuliere dann den Speicher entsprechend.

03/11/2014 20:38 YatoDev#4

Quote:

Originally Posted by KDeluxe

....

ich weis...

Die nomad memory verlangt aber diese schreibweise

03/11/2014 21:23 lolkop#5

Quote:
Originally Posted by KDeluxe
Folgendes funktioniert ist aber falsch:
Code:
$iBkColor="0xF1EDED"
AutoIt wertet den String nicht aus. Deshalb funktioniert dieser Vergleich nicht, obwohl die Zahlen theoretisch die selben sind:
Code:
If "255" = "0xFF" Then MsgBox(0, "", "1") ; funktioniert nicht
If 255 = 0xFF Then MsgBox(0, "", "2") ;funktioniert
Zahlen sollte man explizit als solche angeben. Ich wei� nicht, wie AutoIt den Speicher verwaltet, aber bei typsicheren Sprachen braucht 0xFFFFFFFF lediglich 4 Byte, wohingegen der String "0xFFFFFFFF" 10 bzw. 20 Byte ben�tigt.

das ist nicht ganz richtig...

vergleicht man aber zwei strings, so werden diese immer auf inhalt �berpr�ft (wie es auch in der regel erw�nscht ist). entsprechend kann "255"="0xFF" nur false ergeben. "255"=255, "255"=0xFF, "0xFF"=255, "0xFF"=0xFF hingegen sind immer wahr.

autoit handelt aber binarys von unbestimmter l�nge allgemein als strings.
die schreibweise von hexadezimalen werten als string ist dementsprechend nicht nur korrekt, sondern bei werten > 0xFFFFFFFF sogar unvermeidlich.

Edit:
die hilfe gibt es in diesem falle noch genauer her... 2 strings werden immer lexiografisch vergleichen (buchstabe f�r buchstabe). dh "255">"0xFF" da "2">"0".
entsprechend wird es hier bei verwendung von sehr gro�en zahlen bzw hex werten (in stringschreibweise) schwer, diese miteinander zu vergleichen. hier m�sste man entsprechend mit stringoperationen tricksen.

03/11/2014 21:58 YatoDev#6

Quote:

Originally Posted by lolkop

die hilfe gibt es in diesem falle noch genauer her... 2 strings werden immer lexiografisch vergleichen (buchstabe f�r buchstabe). dh "255">"0xFF" da "2">"0".
entsprechend wird es hier bei verwendung von sehr gro�en zahlen bzw hex werten (in stringschreibweise) schwer, diese miteinander zu vergleichen. hier m�sste man entsprechend mit stringoperationen tricksen.

warum sollte jemand das als string vergleichen ? zahlen sind keine strings also schreibt man die ohne "" und 0xFFFFFF kann man ja auch ohne schreiben (mach ich auch immer)

03/11/2014 22:10 lolkop#7

Quote:

Originally Posted by �FlutterShy�

warum sollte jemand das als string vergleichen ? zahlen sind keine strings also schreibt man die ohne "" und 0xFFFFFF kann man ja auch ohne schreiben (mach ich auch immer)

dann f�hre mal mit einer beliebigen autoit version eine beliebige mathematische operation mit der zahl: 0x00000000000000001 (entspricht 1) durch...

autoit ist was die hexadezimale, wie auch dezimale schreibweise angeht leider sowohl in der l�nge, als auch im umfang sehr beschr�nkt, wodurch f�r viele operationen die verwendung von strings unumg�nglich ist.

03/11/2014 22:13 YatoDev#8

moment. dachte das geht mit dem 64 bit compiler oder nicht ? ansonsten haste recht