+เป็น autoit code ที่ผมเขืยนเองคับ แบบว่าเอา spider trainer มาดัดแปง
[LA]
+ເປັນ autoit code ທີ່ຂ້ອຍຂຽນເອງ ເອົາຂອງເຂົາມາດັດແປງ
;==============================================
Break(0)
#include <nmemory.au3>
$counter = "hl.exe"
$procid=ProcessExists($counter)
;Read more for download
If Not $procid Then
MsgBox(16,@ScriptName,"No game running..!!!!",3)
Exit
EndIf
$memory=_MemoryOpen($procid)
$read=_MemoryRead(0x019E4E9C,$memory)
$Money = AddressFind()
$value=InputBox(@ScriptName,"Money: ",$read,"",50,50)
$write=_MemoryWrite(0x019E4E9C,$memory,$value)
$Write2=_MemoryWrite($Money,$memory,$value)
;If $write=0 Then
; MsgBox(16,@ScriptName,"Error ...!!!!"& @error)
;EndIf
;03929B0C
;03C7161C
Func AddressFind()
$read=_MemoryRead(0x019E4E9C,$memory)
$Level2 = 0
$Level3 = 0
$Level4 = 0
$Level5 = 0
$i = 0
$iLek = 0
While 1
If $i = 16 Then
$Level2 += 1
$i = 0
EndIf
if $Level2 = 16 Then
$Level3 += 1
$Level2 = 0
EndIf
if $Level3 = 16 Then
$Level4 += 1
$Level3 = 0
EndIf
$NewValue = "0x03" & "9" & LenAddress(0,16,$Level4) & LenAddress(0,16,$Level3) & LenAddress(0,16,$Level2) & LenAddress(0,16,$i) & "C"
;$NewValue = "0x03" & LenAddress(0,16,$Level5) & LenAddress(0,16,$Level4) & LenAddress(0,16,$Level3) & LenAddress(0,16,$Level2) & LenAddress(0,16,$i) & "C"
if _MemoryRead($NewValue,$memory) = $read Then
MsgBox(0,_MemoryRead($NewValue,$memory),"")
Return $NewValue
EndIf
$i += 1
;"0x03" & $ii & $ii & $ii & $ii & $ii & "C"
WEnd
EndFunc
Func LenAddress($Start,$End,$Return)
;Function by DREAMCLOWN SOFT
$ii = 0
For $Lek = $Start to $End step 1
$i2 = $ii
if $i2 > 9 Then
Switch $i2
Case 10
$i2 = "A"
Case 11
$i2 = "B"
Case 12
$i2 = "C"
Case 13
$i2 = "D"
case 14
$i2 = "E"
case 15
$i2 = "F"
EndSwitch
EndIf
if $Lek = $Return Then
Return $i2
ExitLoop
EndIf
$ii += 1
if $ii = 16 Then $ii = 0
Next
EndFunc
;==============================================
+Download nmemory.au3
Play now free games online circloo 2 cool math games and freecell 123 double game and diggy 2 online.
ตอบลบ