[HELP] VB6 error while no-recoile

I used the same method as Stamina Hack tut posted in VB in tut's section, it did worked with new address's.

But when I do the same for NO-RECOILE/no-spread I get error.

this how my code for No-recoile in VB6

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

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", 009F9EA7, 0)
End Sub
I using the same Module posted.

is the above code is correct ? i really dont know VB6, i just downloaded it 2days before I writted this my 2nd code for no-recoile, 1st code was for Stamina it's working.
Also I using this Hack "Static-X 1.0.exe" posted by some1, but i encrypted it so it's not getting DETECTED

i bypassed PB.

PLEASE HELP me, post here ut guide or tut for making a no spread Hack in VB6..

I found VB6 very easy.. just 2 days in it & i made 1 hack

You have to put "&H" in front of all addresses, so vb know that it's hex.

so for your Timer1 you have to put :

Code:

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H9F9EA7, 0)
End Sub

thanx for reply

OK w8 let me try it,

> &H

& How do u add new ICON to exe instate if VB icon ?

My hack is getting compiled now, now no error's but in-game it's not working.

When i press No spread ON it's not working, hack is not detected yet.

Code:

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

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H9F9EA7, 0)
End Sub

is that '0' is correct after hex ? or wht should i do ?

My No-recoile / no-spread is not working.. please help me

i have something to tell you !

you are only doing COPY PASTE without thinking about what are you pasting.

you told that you already made a stamina hack, so i tough you used &H behind the address of stamina !

But for no recoil, you did copy paste !
you have to resolve problem by yourself first, then if you cant, then post your problem at MPGH.

and, exactly what i said, you are doing copy paste and you didnt check if the address is old or not !!!!!!!!!!!!!

But i dont know VB6.. anyways thanx for reply, & yes I did copy past & I just changed stamina address with No-spread address

Then you learn it or stop vb6..

Originally Posted by SteeL

But i dont know VB6.. anyways thanx for reply, & yes I did copy past & I just changed stamina address with No-spread address

You should start by not double or triple posting and maybe consider adress changed.

Try this

NoRecoil

Code:

Private Sub Timer1_Timer()
Call WriteALong("Warrock", &HAB7E60, 1)
End Sub

NoSpread

Code:

Private Sub Timer2_Timer()
Call WriteALong("Warrock", &HAB7E67, 1)
End Sub

NoSpread/NoRecoil

Code:

Private Sub Timer3_Timer()
Call WriteALong("Warrock", &HAB7E60, 1)
Call WriteALong("Warrock", &HAB7E67, 1)
End Sub

Red=Your Timer
And your buttons are right

Timer:

Code:

Call WriteALong("Warrock", &HAB7E60, 0)
Call WriteALong("Warrock", &HAB7E67, 0)

The interval should be 1 and enabled false.

On button:

Code:

Timer?.Enabled = True

Off button:

Code:

Timer?.Enabled = False

? = whatever your No Recoil/Spread Timer is. If you only want No Recoil then just use this in your timer:

Code:

Call WriteALong("Warrock", &HAB7E60, 0)

My version works fine too

In the end it is the same or not ?

is vb6 detected

is vb6 detected i made about 13 different hacks with new addresses from a guy called main sever on mpgh (check it out) but my hack works but detcted in 5 mins tops!!

MESSAGE ME PLZ I FORGET WHERE I POST!!!!!!!!!!!

hey bohnenbong thanx alto, i'm gona try it & if successful I will Post my trainer here

But now i'm getting another error :

Is it because of the Module I using ?

I get this error on Test Run & as well as while WarRock is running.
I'm using the Module posted on mpgh forum.

can you please post here ur working Module {DETECTED one} i just wana test run, i dont mind even if i get Banned by PB.

This is my Whole CODE for Stamina & No Spread :

Code:

Private Sub Command1_Click()
Time1.Enabled = True
End Sub

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

Private Sub Command3_Click()
Time2.Enabled = True
End Sub

Private Sub Command4_Click()
Time1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Call WriteALong("Warrock", &H818904, 1120403456)
End Sub

Private Sub Timer2_Timer()
Call WriteALong("Warrock", &H9F9EA2, 1)
Call WriteALong("Warrock", &HAB7E67, 1)
End Sub

& this is the Module :

Code:

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 pwnageded1(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 pwnageded2(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 "The Game Is Not Working", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function

Public Function pwnageded3(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 "The Game Is Not Working", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

Public Function pwnageded4(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 "The Game Is Not Working", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Public Function pwnageded5(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 "The Game Is Not Working", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function

Public Function pwnageded6(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 "The Game Is Not Working", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function
Public Function pwnageded7(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 pwnageded8(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

[HELP] VB6 error while no-recoile

i bypassed PB.

PLEASE HELP me, post here ut guide or tut for making a no spread Hack in VB6..

I found VB6 very easy.. just 2 days in it & i made 1 hack

You have to put "&H" in front of all addresses, so vb know that it's hex.

so for your Timer1 you have to put :

Code:

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H9F9EA7, 0)
End Sub

thanx for reply

OK w8 let me try it,

> &H

& How do u add new ICON to exe instate if VB icon ?

My hack is getting compiled now, now no error's but in-game it's not working.

When i press No spread ON it's not working, hack is not detected yet.

Code:

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

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H9F9EA7, 0)
End Sub

is that '0' is correct after hex ? or wht should i do ?

My No-recoile / no-spread is not working.. please help me

But i dont know VB6.. anyways thanx for reply, & yes I did copy past & I just changed stamina address with No-spread address

Then you learn it or stop vb6..

Originally Posted by SteeL

But i dont know VB6.. anyways thanx for reply, & yes I did copy past & I just changed stamina address with No-spread address

You should start by not double or triple posting and maybe consider adress changed.

Try this

NoRecoil

Code:

Private Sub Timer1_Timer()
Call WriteALong("Warrock", &HAB7E60, 1)
End Sub

NoSpread

Code:

Private Sub Timer2_Timer()
Call WriteALong("Warrock", &HAB7E67, 1)
End Sub

NoSpread/NoRecoil

Code:

Private Sub Timer3_Timer()
Call WriteALong("Warrock", &HAB7E60, 1)
Call WriteALong("Warrock", &HAB7E67, 1)
End Sub

Red=Your Timer
And your buttons are right

Timer:

Code:

Call WriteALong("Warrock", &HAB7E60, 0)
Call WriteALong("Warrock", &HAB7E67, 0)

The interval should be 1 and enabled false.

On button:

Code:

Timer?.Enabled = True

Off button:

Code:

Timer?.Enabled = False

? = whatever your No Recoil/Spread Timer is. If you only want No Recoil then just use this in your timer:

Code:

Call WriteALong("Warrock", &HAB7E60, 0)

My version works fine too

In the end it is the same or not ?

is vb6 detected

hey bohnenbong thanx alto, i'm gona try it & if successful I will Post my trainer here

But now i'm getting another error :

Code:

Private Sub Command1_Click()
Time1.Enabled = True
End Sub

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

Private Sub Command3_Click()
Time2.Enabled = True
End Sub

Private Sub Command4_Click()
Time1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Call WriteALong("Warrock", &H818904, 1120403456)
End Sub

Private Sub Timer2_Timer()
Call WriteALong("Warrock", &H9F9EA2, 1)
Call WriteALong("Warrock", &HAB7E67, 1)
End Sub

& this is the Module :

Code:

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 pwnageded1(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 pwnageded2(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 "The Game Is Not Working", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function

Public Function pwnageded3(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 "The Game Is Not Working", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

Public Function pwnageded4(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 "The Game Is Not Working", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Public Function pwnageded5(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 "The Game Is Not Working", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function

Public Function pwnageded6(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 "The Game Is Not Working", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function
Public Function pwnageded7(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 pwnageded8(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

[HELP] VB6 error while no-recoile

Post a Reply

Similar Threads

Tags for this Thread

[HELP] VB6 error while no-recoile

Post a Reply

Similar Threads

Tags for this Thread