Page 1 of 2 12 LastLast
Results 1 to 15 of 20
  1. #1
    SteeL's Avatar
    Join Date
    Jan 2007
    Gender
    male
    Location
    Mumbai
    Posts
    99
    Reputation
    10
    Thanks
    30

    Lightbulb [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

    Quote Originally Posted by ace76543
    I suck arun's cock daily

  2. #2
    Kung Fu Penguin31's Avatar
    Join Date
    Jun 2007
    Gender
    male
    Location
    how am i supposed to know....
    Posts
    473
    Reputation
    12
    Thanks
    48
    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







    [img]https://www.danasof*****m/sig/ghghhkjklk.jpg[/img]

    drill sargeant: How tall are you boy!?
    soldier: umm....urr about 5' 11''
    drill sargeant: I didn't know they stacked shit that high!!

    Creator of the Annihilation,Freebie and KFP Series.

    <MASTER HACKER>

  3. #3
    SteeL's Avatar
    Join Date
    Jan 2007
    Gender
    male
    Location
    Mumbai
    Posts
    99
    Reputation
    10
    Thanks
    30

    Question

    thanx for reply

    OK w8 let me try it, > &H

    & How do u add new ICON to exe instate if VB icon ?
    Last edited by SteeL; 10-31-2007 at 09:20 PM.

    Quote Originally Posted by ace76543
    I suck arun's cock daily

  4. #4
    SteeL's Avatar
    Join Date
    Jan 2007
    Gender
    male
    Location
    Mumbai
    Posts
    99
    Reputation
    10
    Thanks
    30

    Question

    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 ?

    Quote Originally Posted by ace76543
    I suck arun's cock daily

  5. #5
    SteeL's Avatar
    Join Date
    Jan 2007
    Gender
    male
    Location
    Mumbai
    Posts
    99
    Reputation
    10
    Thanks
    30
    My No-recoile / no-spread is not working.. please help me

    Quote Originally Posted by ace76543
    I suck arun's cock daily

  6. #6
    LegendaryHacker1337's Avatar
    Join Date
    Oct 2007
    Posts
    56
    Reputation
    11
    Thanks
    117
    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 !!!!!!!!!!!!!

  7. #7
    SteeL's Avatar
    Join Date
    Jan 2007
    Gender
    male
    Location
    Mumbai
    Posts
    99
    Reputation
    10
    Thanks
    30
    But i dont know VB6.. anyways thanx for reply, & yes I did copy past & I just changed stamina address with No-spread address

    Quote Originally Posted by ace76543
    I suck arun's cock daily

  8. #8
    jaqq3000's Avatar
    Join Date
    Sep 2007
    Posts
    123
    Reputation
    10
    Thanks
    9
    Then you learn it or stop vb6..

  9. #9
    str1k3r21's Avatar
    Join Date
    Mar 2007
    Posts
    166
    Reputation
    11
    Thanks
    51
    Quote Originally Posted by SteeL View Post
    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.

  10. #10
    bohnenbong's Avatar
    Join Date
    Oct 2007
    Gender
    male
    Location
    On the toilette^^
    Posts
    222
    Reputation
    10
    Thanks
    47
    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

  11. The Following User Says Thank You to bohnenbong For This Useful Post:

    SteeL (11-04-2007)

  12. #11
    wr194t's Avatar
    Join Date
    Jul 2007
    Gender
    male
    Location
    Guess.
    Posts
    3,016
    Reputation
    21
    Thanks
    361
    My Mood
    Hot
    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)

  13. The Following User Says Thank You to wr194t For This Useful Post:

    SteeL (11-04-2007)

  14. #12
    bohnenbong's Avatar
    Join Date
    Oct 2007
    Gender
    male
    Location
    On the toilette^^
    Posts
    222
    Reputation
    10
    Thanks
    47
    My version works fine too
    In the end it is the same or not ?

  15. #13
    iwanthacks121's Avatar
    Join Date
    May 2007
    Gender
    male
    Posts
    170
    Reputation
    10
    Thanks
    36
    My Mood
    Shocked

    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!!!!!!!!!!!
    Fuck you Gamersfirst.... My ass MoneyFirst.

  16. #14
    SteeL's Avatar
    Join Date
    Jan 2007
    Gender
    male
    Location
    Mumbai
    Posts
    99
    Reputation
    10
    Thanks
    30

    Thumbs up

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

    Quote Originally Posted by ace76543
    I suck arun's cock daily

  17. #15
    SteeL's Avatar
    Join Date
    Jan 2007
    Gender
    male
    Location
    Mumbai
    Posts
    99
    Reputation
    10
    Thanks
    30

    Question

    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

    Quote Originally Posted by ace76543
    I suck arun's cock daily

Page 1 of 2 12 LastLast

Similar Threads

  1. NEED HELP (VB6)
    By m3x1can in forum Visual Basic Programming
    Replies: 6
    Last Post: 11-27-2007, 05:59 AM
  2. [HELP] VB6 Hotkey for Zoom not working
    By SteeL in forum WarRock - International Hacks
    Replies: 13
    Last Post: 11-10-2007, 03:06 AM
  3. [Error] While trying to make a Korean WarRock account.
    By wr194t in forum WarRock Korea Hacks
    Replies: 17
    Last Post: 10-27-2007, 04:06 PM
  4. [Help] VB6 swim hack error.
    By wr194t in forum Visual Basic Programming
    Replies: 3
    Last Post: 09-25-2007, 02:57 PM
  5. [Help]VB6 Trainer - buttons/timers
    By Ephemera in forum Visual Basic Programming
    Replies: 5
    Last Post: 07-05-2007, 06:58 PM