Deprecated: The behavior of unparenthesized expressions containing both '.' and '+'/'-' will change in PHP 8: '+'/'-' will take a higher precedence in /home/iano/public_html/tpforums-vb5/forum/includes/class_core.php on line 5842

PHP Warning: Use of undefined constant MYSQL_NUM - assumed 'MYSQL_NUM' (this will throw an Error in a future version of PHP) in ..../includes/init.php on line 165

PHP Warning: Use of undefined constant MYSQL_ASSOC - assumed 'MYSQL_ASSOC' (this will throw an Error in a future version of PHP) in ..../includes/init.php on line 165

PHP Warning: Use of undefined constant MYSQL_BOTH - assumed 'MYSQL_BOTH' (this will throw an Error in a future version of PHP) in ..../includes/init.php on line 165

PHP Warning: "continue" targeting switch is equivalent to "break". Did you mean to use "continue 2"? in ..../includes/functions_navigation.php on line 588

PHP Warning: "continue" targeting switch is equivalent to "break". Did you mean to use "continue 2"? in ..../includes/functions_navigation.php on line 612

PHP Warning: Use of undefined constant misc - assumed 'misc' (this will throw an Error in a future version of PHP) in ..../global.php(29) : eval()'d code(6) : eval()'d code on line 1

PHP Warning: Use of undefined constant index - assumed 'index' (this will throw an Error in a future version of PHP) in ..../global.php(29) : eval()'d code(6) : eval()'d code on line 1

PHP Warning: Use of undefined constant misc - assumed 'misc' (this will throw an Error in a future version of PHP) in ..../includes/class_bootstrap.php(1422) : eval()'d code(4) : eval()'d code on line 1

PHP Warning: Use of undefined constant index - assumed 'index' (this will throw an Error in a future version of PHP) in ..../includes/class_bootstrap.php(1422) : eval()'d code(4) : eval()'d code on line 1

PHP Warning: Use of undefined constant onlinestatusphrase - assumed 'onlinestatusphrase' (this will throw an Error in a future version of PHP) in ..../includes/class_core.php(4684) : eval()'d code on line 6

PHP Warning: Use of undefined constant onlinestatusphrase - assumed 'onlinestatusphrase' (this will throw an Error in a future version of PHP) in ..../includes/class_core.php(4684) : eval()'d code on line 6

PHP Warning: Use of undefined constant onlinestatusphrase - assumed 'onlinestatusphrase' (this will throw an Error in a future version of PHP) in ..../includes/class_core.php(4684) : eval()'d code on line 6

PHP Warning: Use of undefined constant onlinestatusphrase - assumed 'onlinestatusphrase' (this will throw an Error in a future version of PHP) in ..../includes/class_core.php(4684) : eval()'d code on line 6

PHP Warning: Use of undefined constant onlinestatusphrase - assumed 'onlinestatusphrase' (this will throw an Error in a future version of PHP) in ..../includes/class_core.php(4684) : eval()'d code on line 6

PHP Warning: Use of undefined constant onlinestatusphrase - assumed 'onlinestatusphrase' (this will throw an Error in a future version of PHP) in ..../includes/class_core.php(4684) : eval()'d code on line 6

PHP Warning: Use of undefined constant onlinestatusphrase - assumed 'onlinestatusphrase' (this will throw an Error in a future version of PHP) in ..../includes/class_core.php(4684) : eval()'d code on line 6

PHP Warning: Use of undefined constant onlinestatusphrase - assumed 'onlinestatusphrase' (this will throw an Error in a future version of PHP) in ..../includes/class_core.php(4684) : eval()'d code on line 6

PHP Warning: Use of undefined constant onlinestatusphrase - assumed 'onlinestatusphrase' (this will throw an Error in a future version of PHP) in ..../includes/class_core.php(4684) : eval()'d code on line 6

PHP Warning: Use of undefined constant onlinestatusphrase - assumed 'onlinestatusphrase' (this will throw an Error in a future version of PHP) in ..../includes/class_core.php(4684) : eval()'d code on line 6
How to use Windows XP Tibia 9.1+ address in Vista/7
Page 1 of 6 123 ... LastLast
Results 1 to 10 of 59

Thread: How to use Windows XP Tibia 9.1+ address in Vista/7

  1. #1

    How to use Windows XP Tibia 9.1+ address in Vista/7

    ok, in this forum you find a nice list of several address for Tibia 9.1+

    The problem (since Tibia 9.1):
    - they won't work directly in Vista/7
    - the address only work if tibia base is &H400000
    - tibia base is &H400000 always in Windows Xp
    - tibia base is random in Vista/7

    The solution
    - you use a function to find current base in your tibia client instance
    - offset = currentbase - &H400000
    - the address that will work in your tibia client instance = offset + theXPaddress
    - in windows xp you will always get offset = 0
    - in windows 7/vista will get a random offset. But it will be the same until you close the tibia client.


    How I find the current base? Maybe it is not the best way, but I know the size of the Tibia.exe submodule so I can find where is the right region with that.

    In Tibia 9.1 : expectedRegionSize = &H2C3000
    Below is the code of my function. Anyways you can see the full code in my multiclient or in my light cheat

    Note: This code only will work for Tibia 9.1. For the updated code that works with any tibia version just scroll down to the end of this post
    Code:
    Public Function getProcessBase(ByVal hProcess As Long, expectedRegionSize As Long, Optional PIDinsteadHp As Boolean = False) As Long
        On Error GoTo goterr
        Dim lpMem As Long, ret As Long, lLenMBI As Long
        Dim lWritten As Long, CalcAddress As Long, lPos As Long
        Dim sBuffer As String
        Dim sSearchString As String, sReplaceString As String
        Dim si As SYSTEM_INFO
        Dim mbi As MEMORY_BASIC_INFORMATION
        Dim realH As Long
        Dim pid As Long
        Dim res As Long
        If PIDinsteadHp = True Then
            res = GetWindowThreadProcessId(hProcess, pid)
            realH = OpenProcess(PROCESS_READ_WRITE_QUERY, False, pid)
            hProcess = realH
        End If
        Call GetSystemInfo(si)
        lpMem = si.lpMinimumApplicationAddress
        lLenMBI = Len(mbi)
        ' Scan memory
        Do While lpMem < si.lpMaximumApplicationAddress
            mbi.RegionSize = 0
            ret = VirtualQueryEx(hProcess, ByVal lpMem, mbi, lLenMBI)
            If ret = lLenMBI Then
                If (mbi.State = MEM_COMMIT) Then
    '           Debug.Print "BaseAddress=" & Hex(mbi.BaseAddress)
    '           Debug.Print "AllocationBase=" & Hex(mbi.AllocationBase)
    '           Debug.Print "RegionSize=" & Hex(mbi.RegionSize)
               If (mbi.RegionSize = expectedRegionSize) Then ' this is the interesting region
                    If PIDinsteadHp = True Then
                       CloseHandle hProcess
                    End If
                   getProcessBase = mbi.AllocationBase
                   Exit Function
               End If
               
               End If
               lpMem = mbi.BaseAddress + mbi.RegionSize
            Else
               Exit Do
            End If
        Loop
        If PIDinsteadHp = True Then
           CloseHandle hProcess
        End If
    goterr:
        getProcessBase = 0
    End Function
    [size=large]UPDATE:[/size]
    For newer versions of Tibia, you can leave the initial expectedRegionSize of 9.1 as a constant with value &H2C3000 AND just do a little change in my function:
    From:
    Code:
               If (mbi.RegionSize = expectedRegionSize) Then ' this is the interesting region
    To:
    Code:
               If (mbi.RegionSize >= expectedRegionSize) Then ' this is the interesting region
    Why? because region size only have been growing since Tibia 9.1, and the good region it is always the first region with some big size. Exact region size does not really matter
    (tested up to Tibia 9.44, but it probably will work in all future versions)

    Below you have the final code already fixed to work in any tibia version:
    Code:
    Public Function getProcessBase(ByVal hProcess As Long, Optional PIDinsteadHp As Boolean = False) As Long
        On Error GoTo goterr
        Const expectedRegionSize As Long = &H2C3000
        Dim lpMem As Long, ret As Long, lLenMBI As Long
        Dim lWritten As Long, CalcAddress As Long, lPos As Long
        Dim sBuffer As String
        Dim sSearchString As String, sReplaceString As String
        Dim si As SYSTEM_INFO
        Dim mbi As MEMORY_BASIC_INFORMATION
        Dim realH As Long
        Dim pid As Long
        Dim res As Long
        If PIDinsteadHp = True Then
            res = GetWindowThreadProcessId(hProcess, pid)
            realH = OpenProcess(PROCESS_READ_WRITE_QUERY, False, pid)
            hProcess = realH
        End If
        Call GetSystemInfo(si)
        lpMem = si.lpMinimumApplicationAddress
        lLenMBI = Len(mbi)
        ' Scan memory
        Do While lpMem < si.lpMaximumApplicationAddress
            mbi.RegionSize = 0
            ret = VirtualQueryEx(hProcess, ByVal lpMem, mbi, lLenMBI)
            If ret = lLenMBI Then
                If (mbi.State = MEM_COMMIT) Then
    '           Debug.Print "BaseAddress=" & Hex(mbi.BaseAddress)
    '           Debug.Print "AllocationBase=" & Hex(mbi.AllocationBase)
    '           Debug.Print "RegionSize=" & Hex(mbi.RegionSize)
               If (mbi.RegionSize >= expectedRegionSize) Then ' this is the interesting region
                    If PIDinsteadHp = True Then
                       CloseHandle hProcess
                    End If
                   getProcessBase = mbi.AllocationBase
                   Exit Function
               End If
               
               End If
               lpMem = mbi.BaseAddress + mbi.RegionSize
            Else
               Exit Do
            End If
        Loop
        If PIDinsteadHp = True Then
           CloseHandle hProcess
        End If
    goterr:
        getProcessBase = 0
    End Function

  2. #2
    Senior Member
    Join Date
    Aug 2010
    Posts
    532

    RE: How to use Windows XP Tibia 9.1 address in Vista/7

    Hadn't time to test about that offset based in the BaseAddress yesterday, but today I have some minutes free after work.

    I will test a thing that I've in my mind and I'll post the results after that.

    Thanks for sharing.

  3. #3
    Senior Member
    Join Date
    Jul 2007
    Posts
    129

    RE: How to use Windows XP Tibia 9.1 address in Vista/7

    is this way faster than using Module32First?

  4. #4

    RE: How to use Windows XP Tibia 9.1 address in Vista/7

    Quote Originally Posted by blackd_tp
    ok, in this forum you find a nice list of several address for Tibia 9.1

    The problem:
    - they won't work directly in Vista/7
    - the address only work if tibia base is &H400000
    - tibia base is &H400000 always in Windows Xp
    - tibia base is random in Vista/7

    The solution
    - you use a function to find current base in your tibia client instance
    - offset = currentbase - &H400000
    - the address that will work in your tibia client instance = offset + theXPaddress
    - in windows xp you will always get offset = 0
    - in windows 7/vista will get a random offset. But it will be the same until you close the tibia client.


    How I find the current base? Maybe it is not the best way, but I know the size of the Tibia.exe submodule so I can find where is the right region with that.

    In Tibia 9.1 : expectedRegionSize = &H2C3000
    Blow is the code of my function. Anyways you can see the full code in my multiclient or in my light cheat

    Thanks for sharing it.

  5. #5

    RE: How to use Windows XP Tibia 9.1 address in Vista/7

    I like the way you've done it

  6. #6
    Senior Member
    Join Date
    Aug 2010
    Posts
    532

    RE: How to use Windows XP Tibia 9.1 address in Vista/7

    I made some tests and worked great, I'm not at home now, so I will post what I remember from my head:

    [code=csharp]Uint32 OffSet = Client.Process.MainModule.BaseAdress.ToUint32() - 0x400000; //Not sure about the BaseAddress path now
    Player.Addresses.Experience += OffSet; //Player Exp Address must be the address used in the Windows XP
    MessageBox.Show("Exp: " + Client.Memory.ReadUint32(Player.Addresses.Experien ce)); //Just to check if worked.[/code]

    Nice and easy ;D

    I will post the correct code when I'm in home, but it's just to show you how easy it is.

    You don't need to check the OS, because if you are using WindowsXP the OffSet value will be 0, so 0x123456 + 0 = 0x123456

    Tested in a Windows Seven and worked good.

    Cya~

  7. #7

    RE: How to use Windows XP Tibia 9.1 address in Vista/7

    Quote Originally Posted by maozao
    I made some tests and worked great, I'm not at home now, so I will post what I remember from my head:

    [code=csharp]Uint32 OffSet = Client.Process.MainModule.BaseAdress.ToUint32() - 0x400000; //Not sure about the BaseAddress path now
    Player.Addresses.Experience += OffSet; //Player Exp Address must be the address used in the Windows XP
    MessageBox.Show("Exp: " + Client.Memory.ReadUint32(Player.Addresses.Experien ce)); //Just to check if worked.[/code]

    Nice and easy ;D

    I will post the correct code when I'm in home, but it's just to show you how easy it is.

    You just need to check the OS that the player is using, after that you just need to use the OffSet.

    Tested in a Windows Seven and worked good.

    Cya~
    I think that even on the windowsxp the code will work...

  8. #8
    Senior Member
    Join Date
    Aug 2010
    Posts
    532

    RE: How to use Windows XP Tibia 9.1 address in Vista/7

    Yeah, my bad.

    If you are using Windows XP the OffSet is 0, so 1+ 0 = 1 HEHEHEHE

    Edited the other post.

  9. #9

    RE: How to use Windows XP Tibia 9.1 address in Vista/7

    Quote Originally Posted by maozao
    I made some tests and worked great, I'm not at home now, so I will post what I remember from my head:

    [code=csharp]Uint32 OffSet = Client.Process.MainModule.BaseAdress.ToUint32() - 0x400000; //Not sure about the BaseAddress path now
    Player.Addresses.Experience += OffSet; //Player Exp Address must be the address used in the Windows XP
    MessageBox.Show("Exp: " + Client.Memory.ReadUint32(Player.Addresses.Experien ce)); //Just to check if worked.[/code]

    Nice and easy ;D

    I will post the correct code when I'm in home, but it's just to show you how easy it is.

    You don't need to check the OS, because if you are using WindowsXP the OffSet value will be 0, so 0x123456 + 0 = 0x123456

    Tested in a Windows Seven and worked good.

    Cya~
    I know there are easier ways in other languages. Is just I don't know how to write a smaller code with Visual Basic 6 ... if anyone knows then please post your function

  10. #10

    RE: How to use Windows XP Tibia 9.1 address in Vista/7

    because you still use visual basic 6?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •