Counter Strike Trainer Code[by Dreamclown]

[TH]
+เป็น 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

1 ความคิดเห็น:

Comment: