MPGHThe Dark Arts
RegisterLog in

Lightbulb[HELP] VB6 error while no-recoile

Posts 16–20 of 20 · Page 2 of 2
You have only edited WriteALong in your module, not your hack coding. Whatever string name you edited WriteALong with, you have to do the same in your hack coding:
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 pwnageded3("Warrock", &H818904, 1120403456)
End Sub

Private Sub Timer2_Timer()
Call pwnageded3("Warrock", &H9F9EA2, 1)
Call pwnageded3("Warrock", &HAB7E67, 1)
End Sub
Now it should work.
#16 · edited ·
OK now i did replaced WriteALong with pwnageded3 , but this time I getting no error in-game, but Hack is not working, nothing happening.

here my Form1 code :
Code:
Private Sub Picture1_Click()

End Sub

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

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

Private Sub Command3_Click()
Timer2.Interval = 1
End Sub

Private Sub Command4_Click()
Timer2.Interval = 0
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Call pwnageded3("WarRock", &H818904, 1120403456)
End Sub

Private Sub Timer2_Timer()
Call pwnageded3("Warrock", &H9F9EA2, 1)
Call pwnageded3("Warrock", &H9F9EA7, 1)
End Sub

& here is the mpgh Module code :
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
is this Module is able to Access WarRock memory ?
#17 · edited ·
Quote Originally Posted by iwanthacks121 View Post
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!!!!!!!!!!!
You need to make an undetected module.And use hacks that dont need a bypass.
#18 ·
I know how to make any EXE UNDETECTABLE, especially VB6 exe, just Posts here a working Module or any DETECTED one but it should at least work !

Currenty I'm using tehBasix 1.31.exe & Unleashed_v1 with my own Encryption & PB doesn't Detects them at all.
#19 ·
PLEASE CLOSE this Thread now, i hv SOLVED my problem it was my fault lol i was pasting wrong Module.

I'm releasing my 1st trainer here
#20 ·
Posts 16–20 of 20 · Page 2 of 2
This thread is closed for replies.

Similar Threads

Visual Basic Programming[Help] VB6 swim hack error.wr194t 3 Visual Basic Programming[Help]VB6 Trainer - buttons/timersEPEphemera 5 WarRock Korea Hacks[Error] While trying to make a Korean WarRock account.wr194t 17 WarRock - International Hacks[HELP] VB6 Hotkey for Zoom not workingSteeLSteeL 13 Visual Basic ProgrammingNEED HELP (VB6)m3x1canm3x1can 6

Tags for this Thread

None

Talk with us