Register for your free account! | Forgot your password?

You last visited: Today at 09:20

  • Please register to post and access all features, it's quick, easy and FREE!

 

AutoIT bot

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Oct 2013
Posts: 10
Received Thanks: 1
AutoIT bot

Hey ich bin dabei einen Speed-Bot für Metin zu erstellen aber weiß nicht wo ich die Adressen, Pointer und Offsets in dieses Skript schreiben muss. Vielleicht kann von euch einer helfen oder sogar den fertigen Code posten.

Hier die Daten:

Base Adresse Offset0 Offset1 points to

'rub.exe'+003D0A6C 2A8 5BA 7AC780EA


Und hier der Code:

Code:
#AutoIt3Wrapper_UseX64=y

#RequireAdmin
#include "KDMemory.au3"

If @CPUArch <> "X64" Or @AutoItX64 == 0 Then
    MsgBox(48, "Error", "Unsupported system")
    Exit
EndIf

$szProcessName = "rub.exe"
$dwProcessId = ProcessExists($szProcessName)
If $dwProcessId == 0 Then
    MsgBox(48, "Error", "Process doesn't exists!")
Else
    $phHandles = _KDMemory_OpenProcess($dwProcessId)
    If @error Then
        MsgBox(48, "Error", "Can't open " & $szProcessName & "! @error: " & @error)
    Else
        Dim $pdwOffsets[1] = [0]
;~      $lpBaseAddress = Dec("1002C7710") ; AutoIt (SciTe) can't handle hexadecimal values above 0xFFFFFFFF (max 32 bit value)
        $lpBaseAddress = _KDMemory_GetModuleBaseAddress($phHandles, $szProcessName) + 0x003D0A6C ; not recommended, for testing purposes only (use 'Dec("1002C7710")' instead)
        If @error Then
            MsgBox(48, "Error", "Can't get ModuleBaseAddress! @error: " & @error & ", @extended: " & @extended)
        Else
            _KDMemory_WriteProcessMemory($phHandles, $lpBaseAddress, 'DWORD', 5000, $pdwOffsets)
            If @error Then MsgBox(48, "Error", "Can't write memory! @error: " & @error & ", @extended: " & @extended)

            $lpMemoryData = _KDMemory_ReadProcessMemory($phHandles, $lpBaseAddress, 'DWORD', $pdwOffsets)
            If @error Then
                MsgBox(48, "Error", "Can't read memory! @error: " & @error & ", @extended: " & @extended)
            Else
                MsgBox(64, "Info", "Address: " & $lpMemoryData[0] & @CRLF & "Value: " & $lpMemoryData[1])
            EndIf
        EndIf
        _KDMemory_CloseHandle($phHandles)
    EndIf
EndIf

Würde mich sehr freuen wenn das dan endlich mal klappen würde.
Danke im Voraus.



Bubba321 is offline  
Old   #2

 
elite*gold: 267
The Black Market: 401/0/0
Join Date: May 2010
Posts: 4,681
Received Thanks: 342
Könnte es machen.

Was zahlst du?


schneider00 is offline  
Old   #3
 
elite*gold: 0
Join Date: Oct 2013
Posts: 10
Received Thanks: 1
ein Thanks
Bubba321 is offline  
Thanks
1 User
Reply



« Previous Thread | Next Thread »



All times are GMT +2. The time now is 09:20.


Powered by vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2018 elitepvpers All Rights Reserved.