Results 1 to 8 of 8
  1. #1
    xflick13's Avatar
    Join Date
    May 2010
    Gender
    male
    Location
    Me.Visible = False
    Posts
    322
    Reputation
    58
    Thanks
    290

    Unhappy WarRock Module Help.



    help me Please i want to make a hack in warrock Philippines.please help me..

    Error 1 'As Any' is not supported in 'Declare' statements. C:\Users\User\AppData\Local\Temporary Projects\FlipHax\Module1.vb 9 111 FlipHax
    Attached Thumbnails Attached Thumbnails
    xsdxsdx.jpg  


  2. The Following 2 Users Say Thank You to xflick13 For This Useful Post:

    makaniel1 (04-26-2012),mamasboyz8 (10-06-2012)

  3. #2
    kip3300's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    C++ no-menu, menu
    Posts
    349
    Reputation
    18
    Thanks
    64
    My Mood
    Yeehaw
    You tried make it the same as international but with the philipins addies?
    I think its just a litl bit difrent becuss it have gamebuster or somthing
    and international have hackshield so... I think thats the prob.

  4. #3
    TheCamels8's Avatar
    Join Date
    May 2010
    Gender
    male
    Location
    Israel :D
    Posts
    2,945
    Reputation
    174
    Thanks
    1,376
    My Mood
    Cheeky
    Visual basic :/
    Try to make a hack with Visual C++..

    Anyways, i think your module should work in Visual basic 6.0.

  5. #4
    kip3300's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    C++ no-menu, menu
    Posts
    349
    Reputation
    18
    Thanks
    64
    My Mood
    Yeehaw
    Quote Originally Posted by thecamels8 View Post
    Visual basic :/
    Try to make a hack with Visual C++..

    Anyways, i think your module should work in Visual basic 6.0.
    Ouch, didnt reconise the error /bb

  6. #5
    xflick13's Avatar
    Join Date
    May 2010
    Gender
    male
    Location
    Me.Visible = False
    Posts
    322
    Reputation
    58
    Thanks
    290
    Quote Originally Posted by thecamels8 View Post
    Visual basic :/
    Try to make a hack with Visual C++..

    Anyways, i think your module should work in Visual basic 6.0.
    I think this is the vb08 module.
    but when i tried to compile it there was a 6 warnings..why??
    Code:
     Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
        Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
        Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
        Public Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
        Public RBuff1 As Long
        Public RBuff2 As Single
        Public RBuff3 As Integer
        'WriteMemory
        Public Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
            CloseHandle(processHandle)
            'ReadFloat
        End Function
        Public Function ReadFloat(ByVal Address As Single)
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Address, RBuff1, 4, Nothing)
            CloseHandle(processHandle)
            Return RBuff1
        End Function
        'WriteFloat
        Public Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
            CloseHandle(processHandle)
        End Function
        'ReadLong
        Public Function ReadLong(ByVal Address As Integer)
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Address, RBuff1, 4, Nothing)
            CloseHandle(processHandle)
            Return RBuff1
        End Function
        'ReadFloatPointer
        Public Function ReadFloatPointer(ByVal Base As Integer, ByVal Offset As Short)
            Dim fullAddress As Long
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Base, RBuff1, 4, Nothing)
            fullAddress = RBuff1 + Offset
            ReadFloat(processHandle, fullAddress, RBuff2, 4, Nothing)
            Return RBuff2
            CloseHandle(processHandle)
        End Function
        'ReadLongPointer
        Public Function ReadLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Bytes As Integer) 'ReadLongPointer
            Dim fullAddress As Long
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Base, RBuff1, 4, Nothing)
            fullAddress = RBuff1 + Offset
            ReadProcessMemory(processHandle, fullAddress, RBuff3, Bytes, Nothing)
            Return RBuff3
            CloseHandle(processHandle)
        End Function
    
        'WriteFloatPointer
        Public Function WriteFloatPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Single)
            Dim fullAddress As Long
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Base, RBuff1, 4, Nothing)
            fullAddress = RBuff1 + Offset
            WriteFloatMemory(processHandle, fullAddress, Value, 4, Nothing)
            CloseHandle(processHandle)
        End Function
        'WriteLongPointer
        Public Function WriteLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Long, ByVal Bytes As Integer)
            Dim fullAddress As Long
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Base, RBuff1, 4, Nothing)
            fullAddress = RBuff1 + Offset
            WriteProcessMemory(processHandle, fullAddress, Value, Bytes, Nothing)
            CloseHandle(processHandle)
        End Function
    
        'NOP
        Public Function NOP(ByVal Address As Integer, ByVal value As Integer)
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            WriteProcessMemory(processHandle, Address, value, 1, Nothing)
            CloseHandle(processHandle)
        End Function
    
        'WriteASM 
        Public Function WriteASM(ByVal Address As Long, ByVal ASM As String)
            Dim i As Integer
            Dim i2 As Integer
    
            i2 = 1
            While i < (Len(ASM) / 2)
                Call NOP(Address + i, Val("&H" & Mid$(ASM, i2, 2)))
                i = i + 1
                i2 = i2 + 2
            End While
        End Function

  7. #6
    TheCamels8's Avatar
    Join Date
    May 2010
    Gender
    male
    Location
    Israel :D
    Posts
    2,945
    Reputation
    174
    Thanks
    1,376
    My Mood
    Cheeky
    Remove the code, and write:
    Code:
    Module Module1
        Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
        Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
        Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
        Public Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
        Public RBuff1 As Long
        Public RBuff2 As Single
        Public RBuff3 As Integer
        'WriteMemory
        Public Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
            CloseHandle(processHandle)
            Return RBuff3
            'ReadFloat
        End Function
        Public Function ReadFloat(ByVal Address As Single)
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Address, RBuff1, 4, Nothing)
            CloseHandle(processHandle)
            Return RBuff1
        End Function
        'WriteFloat
        Public Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
            CloseHandle(processHandle)
            Return RBuff3
        End Function
        'ReadLong
        Public Function ReadLong(ByVal Address As Integer)
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Address, RBuff1, 4, Nothing)
            CloseHandle(processHandle)
            Return RBuff1
        End Function
        'ReadFloatPointer
        Public Function ReadFloatPointer(ByVal Base As Integer, ByVal Offset As Short)
            Dim fullAddress As Long
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Base, RBuff1, 4, Nothing)
            fullAddress = RBuff1 + Offset
            ReadFloat(processHandle, fullAddress, RBuff2, 4, Nothing)
            Return RBuff2
            CloseHandle(processHandle)
        End Function
        'ReadLongPointer
        Public Function ReadLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Bytes As Integer) 'ReadLongPointer
            Dim fullAddress As Long
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Base, RBuff1, 4, Nothing)
            fullAddress = RBuff1 + Offset
            ReadProcessMemory(processHandle, fullAddress, RBuff3, Bytes, Nothing)
            Return RBuff3
            CloseHandle(processHandle)
        End Function
    
        'WriteFloatPointer
        Public Function WriteFloatPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Single)
            Dim fullAddress As Long
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Base, RBuff1, 4, Nothing)
            fullAddress = RBuff1 + Offset
            WriteFloatMemory(processHandle, fullAddress, Value, 4, Nothing)
            Return RBuff1
            CloseHandle(processHandle)
        End Function
        'WriteLongPointer
        Public Function WriteLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Long, ByVal Bytes As Integer)
            Dim fullAddress As Long
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            ReadProcessMemory(processHandle, Base, RBuff1, 4, Nothing)
            fullAddress = RBuff1 + Offset
            WriteProcessMemory(processHandle, fullAddress, Value, Bytes, Nothing)
            Return RBuff1
            CloseHandle(processHandle)
        End Function
    
        'NOP
        Public Function NOP(ByVal Address As Integer, ByVal value As Integer)
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
            If warrockLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
            WriteProcessMemory(processHandle, Address, value, 1, Nothing)
            CloseHandle(processHandle)
            Return RBuff3
        End Function
    
        'WriteASM 
        Public Function WriteASM(ByVal Address As Long, ByVal ASM As String)
            Dim i As Integer
            Dim i2 As Integer
    
            i2 = 1
            While i < (Len(ASM) / 2)
                Call NOP(Address + i, Val("&H" & Mid$(ASM, i2, 2)))
                i = i + 1
                i2 = i2 + 2
            End While
            Return RBuff1
        End Function
    End Module
    I don't know if this is the right code, but try it ^^
    Fixed by me

  8. #7
    xflick13's Avatar
    Join Date
    May 2010
    Gender
    male
    Location
    Me.Visible = False
    Posts
    322
    Reputation
    58
    Thanks
    290
    Hi sir camel how to make a Dll hack In VisualC++ 2008?
    Last edited by xflick13; 01-01-2011 at 01:13 AM.

  9. #8
    TheCamels8's Avatar
    Join Date
    May 2010
    Gender
    male
    Location
    Israel :D
    Posts
    2,945
    Reputation
    174
    Thanks
    1,376
    My Mood
    Cheeky
    Quote Originally Posted by xflick13 View Post
    Hi sir camel how to make a Dll hack In VisualC++ 2008?
    Hi
    Go to the "Source Code Section", and you will find good tutorials
    Link:
    WarRock Hack Source Code - MPGH - MultiPlayer Game Hacking