Paste von Anonym am 2010-09-06 18:18:56 Syntax:

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Wallhack.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Pointer.au3>
$Adress1=0x00CE63B6
$Adress2=0x00D31E68
$Adress3=0x00D31E78
$Adress4=0x00D327A0
$Adress5=0x00D327B0
$Adress6=0x00D947C5
$AdressMP1=0x00D31E00
$AdressMP2=0x00D36338
$AdressMP3=0x00D36392
$AdressMP4=0x00D363E9
$AdressMP5=0x00D36401
$IsStarted=RegRead("HKEY_LOCAL_MACHINESOFTWARE", "IsStarted")
;if $IsStarted="1" Then
;	MsgBox(0,"Error","Please download a new Program")
;	Exit
	;endif
;RegWrite("HKEY_LOCAL_MACHINESOFTWARE", "IsStarted", "REG_DWORD", "1")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wallhack", 131, 74, 192, 114)
$Checkbox1 = GUICtrlCreateCheckbox("Sp", 8, 8, 49, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Wallhack", 8, 32, 65, 17)
$Label1 = GUICtrlCreateLabel("Waiting for S4Client.exe", 8, 56, 117, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Selman99", 72, 0, 51, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
if ProcessExists("S4Client.exe")=true Then
GUICtrlSetData($Label1,"Found S4Client.exe")
GUICtrlSetColor($Label1, 0x00FF00)
Write()
Exit
endif
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

func Write()
$pid=ProcessExists("S4Client.exe")
$Handle = _MemoryOpen($pid)
$zeit=0
$Temp=0
while $zeit < 2000
	if GUICtrlRead($Checkbox1)=1 Then
_MemoryWrite($Adress1,$Handle,"float","char[8]")
_MemoryWrite($Adress2,$Handle,"float","char[8]")
_MemoryWrite($Adress3,$Handle,"float","char[8]")
_MemoryWrite($Adress4,$Handle,"float","char[8]")
_MemoryWrite($Adress5,$Handle,"float","char[8]")
_MemoryWrite($Adress6,$Handle,"float","char[9]")
endif
if GUICtrlRead($Checkbox1)=1 Then
_MemoryWrite($AdressMP1,$Handle,"'0'","char[1]")
_MemoryWrite($AdressMP2,$Handle,"'0'","char[1]")
_MemoryWrite($AdressMP3,$Handle,"'0'","char[1]")
_MemoryWrite($AdressMP4,$Handle,"'0'","char[1]")
_MemoryWrite($AdressMP5,$Handle,"'0'","char[1]")
endif
$Temp=$zeit+1000
$zeit=$Temp
Sleep(1000)
wend
EndFunc