Undetected Adrress)(and module)

Stamina : 008DBAFC - Freeze at 1120403456



No Spread : 00ADD164 - Freeze at 0



No Recoil : 00ADD16B - Freeze at 0



Crosshair : 00ADD14C - Freeze at 1



Glass walls : 00AF81C0 - Set to 0 each game

here are some


Instant spawn : 00CF0C90 and 01006B9C - Freeze at 0



Full Bright (float): 00AF8240 and 00AF8244 and 00AF8248 - Set to 1 each game



No fog : 00AF81C0 - Set to 1176256512 each game



Scope : 00ADD126 - 1 for on. 0 for off.
--------------------------------------------------------------------------
Dont Know about if these are undetected


Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("Warrock", &H8B5288, SJ)
SJ1 = SJ + &H180
SJ2 = Text1.Text
Call WriteAFloat("Warrock", SJ1, SJ2)
__________________________________________________ _________
NFD

Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("WarRock", &H8B5288, NFD)
NFD1 = NFD + &H26C
Call WriteAFloat("Warrock", NFD1, 0)


________________________________________
Sky Tropper

Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("Warrock", &H8B5288, SJ)
SJ1 = SJ + &H180
SJ2 = Text1.Text
Call WriteAFloat("Warrock", SJ1, SJ2)

use these in vb6 only or any other vb
--------------------------------------------------------------------------
here are some more

Fog Far = 00AF81C0
Full Bright = 00AF8248, 00AF8244, 00AF8240
See Through Walls = 00AF81C0
Player Pointer = 129EF90
Trigger Bot(automaticaly shoots players) = 008DBB4C
Spetate = 00CA6BC0
No Recoil = 00ADD168, 00ADD16C, 00ADD170
No Spread = 00ADD164
Scope = 00ADD126
Stamina = 008DBAFC
Boxes = 00ADD14E
Walk under water = 008DC554
No Bounderies = 00D12E0C
Instant respawn = 00CF0C90, 1006B9C
3rd person view = 00ADD14D
Vehicle gps = 00ADD14D
Crosshairs = 00ADD14C
Super jump = 129EF90 + 178
No fall damage = 129EF90 + 264
Weapons = 129EF90 + 4c
Swim = 129EF90 + 276
Name ESP = 0051A072
5 slot = 00CE6500
Invisible = 00518322
No Kick = 004FC855
Unlimited Ammo = 0051EfAE, 00520745, 0051FD0B
Instant Flag Capture = 00ADD13C
Auto Health = 005214F6
Auto Ammo = 00ADD130
--------------------------------------------------------------------------
Undetected Module


Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Nachos 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(Warrock As String, AddressInsertHere As Long, InsertValueHere As Long)
'to help keep module undetected change WriteALong to something else...
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory Something, AddressInsertHere, InsertValueHere, 4, 0&
CloseHandle hProcess
End Function



Public Function ReadALong(Warrock As String, AddressInsertHere As Long, valbuffer As Long)
'to help keep module undetected change ReadALong to something else...
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem Something, AddressInsertHere, valbuffer, 4, 0&
CloseHandle hProcess
End Function



Public Function ReadAFloat(Warrock As String, AddressInsertHere As Long, valbuffer As Single)
'to help keep module undetected change ReadAFloat to something else...
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem Something, AddressInsertHere, valbuffer, 4, 0&
CloseHandle hProcess
End Function



Public Function WriteAFloat(Warrock As String, AddressInsertHere As Long, InsertValueHere As Single)
'to help keep module undetected change WriteAFloat to something else...
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory Something, AddressInsertHere, InsertValueHere, 4, 0&
CloseHandle hProcess
End Function
--------------------------------------------------------------------------
Give Thanks Is You Used Any Off My Stuff....Have A Nice Day