Need help

First: Sorry for being a big nub

Ok fine i am trying to make my own warrock hack, but i even dont now anything about the stamina adress.

I found a list with all adresses and this is the stamina adress:

OFS_STAMINA 288 (?)

But I dont now what to do with it...

Call me a nub if u want, because I dont care about it

I only got 1 post because I lost my other account.

Ps. I only now how to make a advanced autotalker with vb6.0 (OMG)

Check Spensar's post.

Code:

Dim Stam1 As Long
Dim Stam2 As Long
Call UTOOGUQAQ("WarRock", &H1376360, Stam1) 'ReadALong
Stam2 = Stam1 + &H28C
Call TUOOUGQAQ("WarRock", Stam2, 100) 'WriteAFloat

first

the stamina offest is 28c and now the player pointer is 1376360
now use vb6 and do this:

Step 1:
Make 2 CommandButtons and 1 Timer. Caption The CommandButtons: Unlimited Stamina On and the other one: Unlimited Stamina Off.

Step 2:
Double click on your "Unlimited Stamina On" Button and copy this and past it in the button:

Private Sub Command1_Click()
Timer1.Interval = 1
Timer1.Enabled = True
End Sub

Now double click on your "Unlimited Stamina Off" button and copy this and past it in the button:

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Step 3:
Brilliant! You just made 2 buttons with commands in it but they still don't do anything.
So thats why we are going to put something in the Timer. Put this in your timer:

Private Sub Timer1_Timer()
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1376360, STAN)
STAN1 = STAN + &H28c
Call WriteALong("WarRock", STAN1, 1120403456)
End Sub

Thanks a lot but if I try to make my project it gives a error:

Private Sub Timer1_Timer()
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1376360, STAN)
STAN1 = STAN + &H28C
Call WriteALong("WarRock", STAN1, 1120403456)
End Sub

What on earth is wrong with it?

do u have module... -.-

i think the erros i because you dont have a module or you dont have readalong in you'r module, this is a module i think is detected but is nice for you'r first hack:

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd 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 WriteAByte(gamewindowtext As String, address As Long, value As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0&
CloseHandle hProcess
End Function
Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function
Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function
Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function
Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

My module was wrong the "detected" module from bloqueado93 works perfect, but i saw a tut how to make a module undetected.

first you need this module maker
ok now
you need change all
writeabyte=suck
readalong=dick OK
now with you change that
you need change the code for you'r hack
call suck("warrock......

OK?

Undetected_Module_Maker.rarattachment deleted · 8 downloads before removal

Thanks

Now i am using vb 8.0 and I dont know something about the checkbox (I dont want to use 2 buttons)
I put this code in it:

If CheckBox1.Checked Then
Timer1.Interval = 1
Timer1.Enabled = True

Did I put in the right code?

I searched some threads to and I found this:
If (Check1.value = Checked) Then
Timer1.Interval = 1
Else
Timer1.Interval = 0
End If

Someone know more about it? Pleas replay

VB8 Doesn't use the same functions as VB6, it uses WriteMemory and WritePointerFloat and NOP.

ok look

ok you need a checkboxe now doble click in the checkboxe and put this code.
if check1.value = 1 then
timer1.enabled = true
end if
if check1.value = 0 then
timer1.enabled = false
end if

and you can turn on and off the hack

Its me again with a small module problem:

If I use Zeas undetected module maker I cant make my small unlimeted ammo hack :S

Heres my code:
Private Sub Check1_Click()
If Check1.value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
Call WriteAByte("WarRock", &H51EBB6, &H90)
Call WriteAByte("WarRock", &H51EBB6 + 1, &H90)
Call WriteAByte("WarRock", &H51EBB6 + 2, &H90)
Call WriteAByte("WarRock", &H51EBC7, &H90)
Call WriteAByte("WarRock", &H51EBC7 + 1, &H90)
Call WriteAByte("WarRock", &H51EBC7 + 2, &H90)
Call WriteAByte("WarRock", &H51EBCD, &H90)
Call WriteAByte("WarRock", &H51EBCD + 1, &H90)
Call WriteAByte("WarRock", &H51EBCD + 2, &H90)
End Sub

Nothing wrong with it, I tested it with the module from bloqueado93 then the hack works but I keep getting kicked for 0 minutes. Whats wrong with it? u know u need to replace writeabyte with the letters and nummers you have used in the module maker example: kjhsadfkja324js

Thats something I found on the forum here...

your writing bytes u need bypass -.-

Need help

Similar Threads

Tags for this Thread