Help please

why its do to me this problem????

(the picture): IMG-UP.net - Your Free Image Hoster

plz help me1!!!

show us ur module and what hack are u making

ammm this is the model:


Public Const YYYYYEEYF = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function YPZFAEEEU Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function PZFAEEEUY Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function ZFAEEEUYP Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function FAEEEUYPZ Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function AEEEUYPZF Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function EEEUYPZFA Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function EEUYPZFAE Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Function YPZFAEEUE(YYYYYEEUE As String, PPPFAEEUE As Long, ZZZFAEEUE As Long) 'WriteALong
Dim EUYPZFAEE As Long
Dim YPZFAEEUE As Long
Dim YPZFAEEUE As Long
EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE)
If (EUYPZFAEE = 0) Then
End
Exit Function
End If
YPZFAEEEU EUYPZFAEE, YPZFAEEUE
YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE)
If (YPZFAEEUE = 0) Then
Exit Function
End If
ZFAEEEUYP YPZFAEEUE, PPPFAEEUE, ZZZFAEEUE, 4, 0&
FAEEEUYPZ AAAAYAEAF
End Function

Public Function YPZFEAEUE(YYYYYEEUE As String, PPPFAEEUE As Long, FFFFAEEUE As Long) 'ReadALong
Dim EUYPZFAEE As Long
Dim YPZFAEEUE As Long
Dim YPZFAEEUE As Long
EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE)
If (EUYPZFAEE = 0) Then
End
Exit Function
End If
YPZFAEEEU EUYPZFAEE, YPZFAEEUE
YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE)
If (YPZFAEEUE = 0) Then
Exit Function
End If
EEUYPZFAE YPZFAEEUE, PPPFAEEUE, FFFFAEEUE, 4, 0&
FAEEEUYPZ AAAAYAEAF
End Function

Public Function YPFZAEEUE(YYYYYEEUE As String, PPPFAEEUE As Long, FFFFAEEUE As Single) 'ReadAFloat
Dim EUYPZFAEE As Long
Dim YPZFAEEUE As Long
Dim YPZFAEEUE As Long
EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE)
If (EUYPZFAEE = 0) Then
End
Exit Function
End If
YPZFAEEEU EUYPZFAEE, YPZFAEEUE
YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE)
If (YPZFAEEUE = 0) Then
Exit Function
End If
EEUYPZFAE YPZFAEEUE, PPPFAEEUE, FFFFAEEUE, 4, 0&
FAEEEUYPZ AAAAYAEAF
End Function

Public Function PYZFAEEUE(YYYYYEEUE As String, PPPFAEEUE As Long, ZZZFAEEUE As Single) 'WriteAFloat
Dim EUYPZFAEE As Long
Dim YPZFAEEUE As Long
Dim YPZFAEEUE As Long
EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE)
If (EUYPZFAEE = 0) Then
End
Exit Function
End If
YPZFAEEEU EUYPZFAEE, YPZFAEEUE
YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE)
If (YPZFAEEUE = 0) Then
Exit Function
End If
ZFAEEEUYP YPZFAEEUE, PPPFAEEUE, ZZZFAEEUE, 4, 0&
FAEEEUYPZ AAAAYAEAF
End Function

Public Function FPYFAEEUE(YYYYYEEUE As String, PPPFAEEUE As Long, ZZZFAEEUE As Byte) 'WriteAByte
Dim EUYPZFAEE As Long
Dim YPZFAEEUE As Long
Dim YPZFAEEUE As Long
EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE)
If (EUYPZFAEE = 0) Then
End
Exit Function
End If
YPZFAEEEU EUYPZFAEE, YPZFAEEUE
YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE)
If (YPZFAEEUE = 0) Then
Exit Function
End If
ZFAEEEUYP YPZFAEEUE, PPPFAEEUE, ZZZFAEEUE, 1, 0&
FAEEEUYPZ AAAAYAEAF
End Function

Public Function UPZFAEEEY(YYYYYEEUE As String, PPPFAEEUE As Long, FFFFAEEUE As Byte) 'ReadAByte
Dim EUYPZFAEE As Long
Dim YPZFAEEUE As Long
Dim YPZFAEEUE As Long
EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE)
If (EUYPZFAEE = 0) Then
End
Exit Function
End If
YPZFAEEEU EUYPZFAEE, YPZFAEEUE
YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE)
If (YPZFAEEUE = 0) Then
Exit Function
End If
EEUYPZFAE YPZFAEEUE, PPPFAEEUE, FFFFAEEUE, 1, 0&
FAEEEUYPZ AAAAYAEAF
End Function

and i made hacks from this adress:

http://www.mpgh.net/forum/28-warrock...01_2008_a.html

ohh and i dont know what to do whit the player pointer and offset and all of this shit