warrock mudule (new)

[1zz23z]

Here i have a new module for warrock.
THANK me if i hellped!!


Public Const LLLLLHHLU = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
'API Declaration
Public Declare Function LEEUVZYHG Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function EEUVZYHGL Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function EUVZYHGLE Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function UVZYHGLEE Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function VZYHGLEEU Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function ZYHGLEEUV Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function YHGLEEUVZ 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 LEEUVYZGH(LLLLLZYGH As String, EEEUVZYGH As Long, EEEUVZYGH As Long) 'WriteALong
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
EUVZYHGLE LEEUVZHGY, EEEUVZYGH, EEEUVZYGH, 4, 0&
UVZYHGLEE VVVVLVZVU
End Function
Public Function LEEUZVYGH(LLLLLZYGH As String, EEEUVZYGH As Long, UUUUVZYGH As Long) 'ReadALong
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
YHGLEEUVZ LEEUVZHGY, EEEUVZYGH, UUUUVZYGH, 4, 0&
UVZYHGLEE VVVVLVZVU
End Function
Public Function LEUEVZYGH(LLLLLZYGH As String, EEEUVZYGH As Long, UUUUVZYGH As Single) 'ReadAFloat
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
YHGLEEUVZ LEEUVZHGY, EEEUVZYGH, UUUUVZYGH, 4, 0&
UVZYHGLEE VVVVLVZVU
End Function
Public Function ELEUVZYGH(LLLLLZYGH As String, EEEUVZYGH As Long, EEEUVZYGH As Single) 'WriteAFloat
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
EUVZYHGLE LEEUVZHGY, EEEUVZYGH, EEEUVZYGH, 4, 0&
UVZYHGLEE VVVVLVZVU
End Function
Public Function UELUVZYGH(LLLLLZYGH As String, EEEUVZYGH As Long, EEEUVZYGH As Byte) 'WriteAByte
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
EUVZYHGLE LEEUVZHGY, EEEUVZYGH, EEEUVZYGH, 1, 0&
UVZYHGLEE VVVVLVZVU
End Function
Public Function GEEUVZYHL(LLLLLZYGH As String, EEEUVZYGH As Long, UUUUVZYGH As Byte) 'ReadAByte
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
YHGLEEUVZ LEEUVZHGY, EEEUVZYGH, UUUUVZYGH, 1, 0&
UVZYHGLEE VVVVLVZVU
End Function

1zz23z added 431 Minutes and 32 Seconds later...< --- Please use the edit button in the future--- >

Why do peaple look and copy it but no thx???

[doublef666]

thanks =D but what is this for anyway? =S

[1zz23z]

its for make hacks....

[superhacker123]

tnx for module but i have a problem with my hacks xD

[1zz23z]

Perfect Working MODULE download it and THANK me plz.

[ibtrippin]

Originally Posted by 1zz23z

Here i have a new module for warrock.
THANK me if i hellped!!

to make ppls lives easier for the n00b hackers, at least put the names of the functions b4 they have a seizure from lookin at this.

GEEUVZYHL=ReadAByte
UELUVZYGH=WriteAByte
ELEUVZYGH=WriteAFloat
LEUEVZYGH=ReadAFloat
LEEUZVYGH=ReadALong
LEEUVYZGH=WriteALong

the others are easy to spot in the beginning paragraph.

thx if it helped.

Originally Posted by doublef666

thanks =D but what is this for anyway? =S

hacking in Visual Basic 6, easy to learn, go youtube how to hack warrock and ull find good tutorials, but u gotta use the updated addresses which i posted, and the function specific names according to your module.
*note for hacking in VB6(Visual Basic 6)- Punkbuster 'cracked the code' and they can pretty much detect any module within 12 hours of use without packing or encypting the file. about 3 days with protection(encrytion/packing). visual basic hacks from now on should be temporary one use only hacks to use privately. C++ hacks are still good for undetection for a week or so depending on how wide the usage is.
thx if it helped.
sorry if my info with detection time is messed up, havent been active in warrock since my "glory days" here about 4 months ago wen i would make or post a hack here almost every day. 0_o

[Chauws]

how can i use it?

[azndynasty]

how can i use it?

yo are you kidding me... read the guyz post above yours

[1zz23z]

ok good what u told. it was for undetected module xD is it detect now? then i will make another!

[Chauws]

how program i need use for use it?