Okay hier :
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
Const $nOffset[5] = [0, 0x6C4, 0x4F0, 0x54, 0x110]
Const $dwBasePointer = 0x ; Die Addresse, die du dir merken solltest"
Global $ProcessId = 0, $Handle = 0, $Wert = 0
While Sleep (10)
if $ProcessId <= 0 Then
$ProcessId = ProcessExists ("AVA.exe")
if $ProcessId > 0 Then
$Handle = _MemoryOpen ($ProcessId)
if not IsArray ($Handle) Then
if MsgBox (52,"Error","Speicher konnte nicht geöffnet werden. Nochmal versuchen?") = 6 Then Exit
EndIf
EndIf
EndIf
WEnd
HotKeySet("{F1}","Change_")
HotKeySet("{F11}","Close_")
If ProcessExists("AVA.exe") = false Then
msgbox(0,"Error","Error : AVA isn´t running. Please start it !")
Exit
EndIf
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Pointer2.au3>
_GetPrivilege_SeDebug()
Const $nOffset[5] = [0, 0x6C4, 0x4F0, 0x54, 0x110]
Const $dwBasePointer = 0x01FCA600 ; Die Addresse, die du dir merken solltest"
Global $ProcessId = 0, $Handle = 0, $wert = 0
#Region ### START Koda GUI section ### Form=
$Gunadder = GUICreate("Gunadder v0.1", 208, 31, 1687, 6, $WS_POPUP)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Gun number to add :", 8, 8, 101, 17)
GUICtrlSetColor(-1, 0x00FF00)
$Gun = GUICtrlCreateInput("", 112, 5, 41, 21)
$Label2 = GUICtrlCreateLabel("****", 160, 8, 44, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x3399FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While Sleep (10)
if $ProcessId <= 0 Then
$ProcessId = ProcessExists ("AVA.exe")
if $ProcessId > 0 Then
$Handle = _MemoryOpen ($ProcessId)
_MemoryPointerWrite($dwBasePointer, $Handle, $nOffset, $wert, "dword")
if not IsArray ($Handle) Then
if MsgBox (52,"Error","Speicher konnte nicht geöffnet werden. Nochmal versuchen?") = 6 Then Exit
EndIf
EndIf
EndIf
WEnd
Func Change_()
$Wert = GuiCtrlRead($Gun)
EndFunc
Func Close_()
_MemoryClose($open)
Exit
EndFunc
Func _GetPrivilege_SeDebug()
$ret=DllCall("ntdll.dll", "int", "RtlAdjustPrivilege", "int", 20, "int", 1, "int", 0, "int*", 0) ; 20 is SeDebug privilege...
If @error Then
SetError( 1, @error, False ) ; 1=error dllcall. Set dllcall-error as extended. Return false.
Else
if $ret[0] Then SetError( 2, $ret[0], False) ; 2=error RtlAdjustPrivilege. Set it's errorcode as extended. Return False.
Return( True ) ; Return true if it worked. (RtlAdjustPrivilege returns 0 if it works.)
EndIf
EndFunc
Was ist denn das für ein Copy-Paste-Code? Codeschnipsel ohne Zusammenhang, nicht aufgerufene Funktionen ...Quote:
Danke werds "später" ausprobieren ... Edit kommt dann auch :)
Edit : geht auch nicht <.<
Klappt wiederrum auch nicht Parameter auch überprüft ...Quote:
Was ist denn das für ein Copy-Paste-Code? Codeschnipsel ohne Zusammenhang, nicht aufgerufene Funktionen ...
Probier mal diesen Code:
Du musst nur $wert ändern, wenn du das möchtest.
Außerdem kenne ich deine _Memory*-Funktionen nicht, daher kann ich nicht überprüfen, ob die Parameter korrekt sind bzw. was sie zurückgeben.