Foro de elhacker.net

Public Function ReadLongPointer(Address As Long, Offset As Long, WindowName As String) As Long

    Dim hwnd As Long
    Dim ProcessID As Long
    Dim ProcessHandle As Long
    Dim Valueofpointer As Long
    Dim valueX As String
    Dim Addy As String
    Dim Value As String
    hwnd = FindWindow("could not be fetched", vbNullString)


    If hwnd = 0 Then
        MsgBox "Could Not find process window!", vbCritical, "Read error"
        Exit Function
    End If

    GetWindowThreadProcessId hwnd, ProcessID
    ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)


    If ProcessHandle = 0 Then
        MsgBox "Could Not Get a process handle!", vbCritical, "Read error"
        Exit Function
    End If

    ReadProcessMem ProcessHandle, Address, Valueofpointer, 4, 0& 'Change the Four To two If you want For two bytes
    ' WriteLongPointer = Value
    valueX = Val(Valueofpointer) + Val(Offset)
    Decnum = valueX
    HexNum = ""

Dim valueX2 As String
Dim valueX3 As String

valueX2 = valueX + Val(140)
valueX3 = valueX2 + Val(60)

MsgBox valueX3

    While Decnum <> 0
    NextHexDigit = Decnum - (Int(Decnum / 16) * 16)


    If NextHexDigit < 10 Then
        HexNum = Chr(Asc(NextHexDigit)) & HexNum
    Else
        HexNum = Chr(Asc("A") + NextHexDigit - 10) & HexNum
    End If

    Decnum = Int(Decnum / 16)
Wend

If HexNum = "" Then HexNum = "0"
valueX = HexNum
Addy = "&H" + valueX3
Exit Function
ReadProcessMemory ProcessHandle, Addy, Value, 4, 0& 'Change the Four To two If you want For two bytes
ReadLongPointer = Value
CloseHandle ProcessHandle
End Function