However i wrote some trainers before but never had a problem like this one. In my eyes im doing it correct. But somehow it just doesnt work. Might anyone could look at it?
(This is just a poorly coded one since im just trying to fix the mistake as fast as possible. It just includes the diffrent ways and some tests. So dont wonder .)
Ok This is my situation:
At the moment i got following pointers. ( I will only need one example later )
Character X - 1/4
Character X - 2/4
Character X - 3/4
Character X - 4/4
Character Y - 1/4
Character Y - 2/4
Character Y - 3/4
Character Y - 4/4
Universal Mob Pointer X (ORC)
Universal Mob Pointer X (ORC)
Universal Mob Pointer X (ORC)
Universal Mob Pointer X (ORC)
Universal Mob Pointer Y (ORC)
Universal Mob Pointer Y (ORC)
Universal Mob Pointer Y (ORC)
Universal Mob Pointer Y (ORC)
Later i will need to make the uni pointer (= to the Character ones.)
To test weather my trainer works until now i only want to write something to my Character X. (So i will only show you the X 1/4 now)
It looks like following:
so what i have to do to get the base adress is calculating
00285D40+ 0400000 = 685D40 which i can store as my pointer.
And now my code looks following:
Code:
Public Class Form1
Private Declare Function ReadProcessMemory Lib "KERNEL32" (ByVal Handle As Integer, ByVal ByValAdress As Integer, ByRef Value As Long, ByVal Size As Integer, ByRef BytesWritten As Integer) As Long
Private Declare Function WriteProcessMemory Lib "KERNEL32" (ByVal Handle As Integer, ByVal Adress As Integer, ByRef Value As Long, ByVal Size As Integer, ByRef BytesWritten As Integer) As Long
Private Declare Sub PushKeys Lib "KeyPush.dll" (ByVal Keystrokes As String)
Private charPointer As Integer
Declare Auto Function SendMessage Lib "user32" ( _
ByVal hWnd As IntPtr, _
ByVal Msg As Integer, _
ByVal wParam As Integer, _
ByVal lParam As Integer) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myProcesses As Process() = Process.GetProcessesByName("WYDWO")
If myProcesses.Length = 0 Then
MsgBox("Unable to Find the wyd process.", MsgBoxStyle.OkCancel, "Error")
End
Else
If Not OpenProcess(myProcesses(0).Id) Then
MsgBox("Unable to open the wyd process.")
End
Else
charPointer = readInteger(&H685D40)
End If
End If
End Sub 'Open wyd Process
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Open = Process.GetProcessesByName("WYDWO")
If Open.Length = 0 Then
Exit Sub
End If
Dim pointer As Long
pointer = readInteger(&H400000 + &H285D40)
writeFloat(pointer + &H224, 555)
writeFloat(charpointer + &H224, 55)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim posY As Long
Dim pointer As Integer
pointer = readInteger(&H685D40)
posY = readFloat(Pointer + &H224).ToString
TextBox3.Text = CStr(posY)
End Sub
End Class
This code is totaly messed since i tried SHIT LOADS of diffrent ways. However it SHOULD work. If i use a static adress it works. So its not a matter of protection or something. Theres something wrong with the pointer calculation. But its not wrong calculated since if i add the offset to the calculated pointer on CE im getting the correct adress.
Any idea?
