[Help]Simple Mana Reader

[taylor]

[spoiler]

 Public Class Form1
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int32
    Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Int32, ByRef lpdwProcessId As Int32) As Int32
    Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Int32, ByVal bInheritHandle As Int32, ByVal dwProcessId As Int32) As Int32
    Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int32
    Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int32
    Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String) As Boolean
    Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Int32) As Int32
    Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
    Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
    Public Const WM_HOTKEY As Integer = &H312
    Public Const PROCESS_VM_READ = &H10
    Public Const PROCESS_VM_WRITE = (&H20)
    Public Const PROCESS_VM_OPERATION = (&H8)
    Public Const PROCESS_QUERY_INFORMATION = (&H400)
    Public Const PROCESS_READ_WRITE_QUERY = PROCESS_VM_READ + PROCESS_VM_WRITE + PROCESS_VM_OPERATION + PROCESS_QUERY_INFORMATION
    Public Const Mana As Long = &H81F04C

    Public Function Tibia_Hwnd() As Int32
        Dim i As Int32 = 0
        Return GetWindowThreadProcessId(FindWindow("tibiaclient", vbNullString), i)
    End Function

    Public Function Readint(ByVal Address As Int32) As Long
        Dim vBuffer As Long
        Dim processHandle As IntPtr = OpenProcess(PROCESS_VM_READ, 0, Tibia_Hwnd)
        ReadProcessMemory(processHandle, Address, vBuffer, 4, 0)
        Return vBuffer
        CloseHandle(processHandle)
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MP As Long
        MP = ReadInt(Mana)
        MsgBox(MP)
    End Sub
End Class

[/spoiler]

What 's wrong with that as I click the button to appear that I have 0 mana over 31 actually have


Could you help me?[/php]

[Wesker]

to be honest i got no idea what your doing, seems a little to much for just checking the mana, kernel, im having my doubts about having the kernel include, you should just include tibiapi, idk it looks like a mess to me and i didnt bother to read, the rest since that its not a simple mana reader, a simple mana reader, can be done with cheat engine, and a few lines of code <,<

[Xavious]

Are you sure youre using the proper address? If so search around for memory reading and see what differs from yours and that one

[chumarer]

would not it?

Public Function Tibia_Hwnd() As Int32
Dim i As Int32 = 0
Return GetWindowThreadProcessId(FindWindow("Tibia", vbNullString), i)
End Function