Help please

[0548006648]

why its do to me this problem????

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

plz help me1!!!

[braccini8]

show us ur module and what hack are u making

[0548006648]

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:

https://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

[braccini8]

your readalong should be EUYPZFAEE

[castaway]

it should be

YPZFEAEUE

BRACINNI LOOK IN SPAM
i posted epic pic

[braccini8]

ohh BS i was off by 4 letters

[0548006648]

oohhhh thx you dont know how much you help me ty

some body can tell me what the player pointer means??? and offset " " ???
what i need to do??

[braccini8]

off sets are like

dim tom1 as long
dim tom2 as long
call readalong("warrock" , leetaddy , tom1)
tom2 = tom1 + &hoffset
call writeafloat("warrock", tom1 , value)

[castaway]

dim tom1 as long
dim tom2 as long
call readalong("warrock" , leetaddy , tom1)
tom2 = tom1 + &hoffset
call writeafloat("warrock", tom2 , value)

[0548006648]

why its do to me the same thing?????

i press call YPZFEAEUE( "blabla","(somenumber))

and its do to me the same thing

[castaway]

why its do to me the same thing?????

i press call YPZFEAEUE( "blabla","(somenumber))

and its do to me the same thing

jesus just find the right calls at the right commands

[0548006648]

but you doesnt understand i dont know anithing about vb6 i want to learn but i cant understand...

i dont understand the people that says to do this and this
so i asking that some one plz do to me a turtoul plz and explain me what all the things means plz...

[braccini8]

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

'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Nachos As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem 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 WriteALong(Warrock As String, AddressInsertHere As Long, InsertValueHere As Long)
'to help keep module undetected change WriteALong to something else...
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
End If
WriteProcessMemory Something, AddressInsertHere, InsertValueHere, 4, 0&
CloseHandle hProcess
End Function



Public Function ReadALong(Warrock As String, AddressInsertHere As Long, valbuffer As Long)
'to help keep module undetected change ReadALong to something else...
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
End If
ReadProcessMem Something, AddressInsertHere, valbuffer, 4, 0&
CloseHandle hProcess
End Function



Public Function ReadAFloat(Warrock As String, AddressInsertHere As Long, valbuffer As Single)
'to help keep module undetected change ReadAFloat to something else...
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
End If
ReadProcessMem Something, AddressInsertHere, valbuffer, 4, 0&
CloseHandle hProcess
End Function



Public Function WriteAFloat(Warrock As String, AddressInsertHere As Long, InsertValueHere As Single)
'to help keep module undetected change WriteAFloat to something else...
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
End If
WriteProcessMemory Something, AddressInsertHere, InsertValueHere, 4, 0&
CloseHandle hProcess
End Function

use that module