Thread: Weapon HAck

Results 1 to 3 of 3
  1. #1
    noobi4life's Avatar
    Join Date
    Oct 2007
    Posts
    63
    Reputation
    10
    Thanks
    35

    Weapon HAck

    Can somebody please post the warrock weapon adress, and how to put in a button?

    Code:
                    Dim Weapon1 As Long
                    Dim weapon2 As Long
                    Dim Weapon As Long
                     Weapon = Text1.Text
                    Call ReadALong("Warrock", &H1180400, Weapon1) 
                    weapon2 = Weapon1 + &H4C
                    Call WriteALong("Warrock", weapon2, Weapon)
    Works?
    MODULE:

    Code:
    Public Const red As Long = &HFF&
     Public Const green As Long = &HFF00&
    Public Const blue As Long = 16711680
    
    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 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
    
    Exit Function
    End If
    GetWindowThreadProcessId hwnd, pid
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (phandle = 0) Then
    
    End If
    WriteProcessMemory phandle, address, value, 4, 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
    
    Exit Function
    End If
    GetWindowThreadProcessId hwnd, pid
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (phandle = 0) Then
    
    End If
    ReadProcessMem phandle, address, valbuffer, 4, 0&
    CloseHandle hProcess
    End Function
    Last edited by noobi4life; 10-28-2007 at 03:38 AM.

  2. #2
    w00t?'s Avatar
    Join Date
    Jul 2007
    Gender
    male
    Posts
    257
    Reputation
    10
    Thanks
    29
    Its base + 4C.....u must find base address on forum and then code together...that is prety easy...if u dont know what i am talking about then stop dreaming on creating hack...

  3. #3
    jaqq3000's Avatar
    Join Date
    Sep 2007
    Posts
    123
    Reputation
    10
    Thanks
    9
    Muahaha, module is detected.

Similar Threads

  1. I wanna make weapon hack but need help
    By allard123 in forum WarRock - International Hacks
    Replies: 13
    Last Post: 02-19-2007, 08:19 PM
  2. weapon hack?
    By MaskedFox in forum WarRock - International Hacks
    Replies: 0
    Last Post: 02-19-2007, 07:07 PM
  3. weapon hacks
    By pomchris69 in forum WarRock - International Hacks
    Replies: 9
    Last Post: 07-09-2006, 10:17 PM
  4. Wpe weapons hack how?
    By xterminator in forum WarRock - International Hacks
    Replies: 9
    Last Post: 03-17-2006, 02:44 PM
  5. [Searching] Weapons Hack
    By OutZida in forum WarRock - International Hacks
    Replies: 4
    Last Post: 01-19-2006, 12:06 PM