can some1 make a module

[CptM0rg@n]

for me please, if some1 does i promis good public hacks. i have tried module generators but i get errors with them, i had this 1 module b4 but i accidently deleted it, thanks in advnace

[rouge23]

Ok, I'll give you a module when I can, I'm going to make one soon, maybe next week when I'm bored lol.

[frostbitekid]

use zeas' ud module maker

[rouge23]

use zeas' ud module maker

That works, but it gives banns real quick...

[frostbitekid]

thats why u put in an extra long string like fhji9wnhg5io7whgnpw4hdg

[HydroQc]

Strings is on thing...But PB checks for changed value of certain adresses. If the value of <X> adress has been changed, It will ban you!

[frostbitekid]

thats why u should know how to code before trying

[rouge23]

Best use c++, which i really suck at. I can only make hacks with vb6.... i suck lol

[frostbitekid]

vb6 is very easy to learn, but is detected faster, but c++ is harder to learn but more ud

[Firesnipe]

Actually there are custom modules that will be undetected for a long time
You just have to edit your code to be a little different too

[CptM0rg@n]

use zeas' ud module maker

no because every hack i make with hs module maker closes the hack when i go to turn the hack on, i dont get it

[ZeaS]

no because every hack i make with hs module maker closes the hack when i go to turn the hack on, i dont get it

i've tested it, i don't get any error and my hacks work =\ maby their is a bug in the fast module, don't use this but if you add your string names by your own it works

[m4c4r0ni3z]

Option Explicit

Public Declare Function D8A681DE Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwID As Long) As Long
Public Declare Function B99B9EEF Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwID As Long) As Long
Public Declare Function DBE400D1 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 AE3F95B9 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function F1B2AAF1 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function D80555F3 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 Declare Function E6FE487C Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

'WriteALong
Public Function E2BE9DB7(AC1DD600 As Long, EA69628F As Long)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

DBE400D1 A199DFD1,AC1DD600,EA69628F,4, 0&

AE3F95B9 A199DFD1
End Function

'WriteAByte
Public Function CB21D5D8(AC1DD600 As Long, EA69628F As Byte)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

DBE400D1 A199DFD1,AC1DD600,EA69628F,1, 0&

AE3F95B9 A199DFD1
End Function

'WriteAFloat
Public Function A55D798B(AC1DD600 As Long, EA69628F As Double)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

DBE400D1 A199DFD1,AC1DD600,EA69628F,4, 0&

AE3F95B9 A199DFD1
End Function

'ReadALong
Public Function C2646E6D(AC1DD600 As Long, EA69628F As Long)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

D80555F3 A199DFD1,AC1DD600,EA69628F,4, 0&

AE3F95B9 A199DFD1
End Function

'ReadAByte
Public Function A4D2B04C(AC1DD600 As Long, EA69628F As Byte)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

D80555F3 A199DFD1,AC1DD600,EA69628F,1, 0&

AE3F95B9 A199DFD1
End Function

'ReadAFloat
Public Function D298A93C(AC1DD600 As Long, EA69628F As Double)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

D80555F3 A199DFD1,AC1DD600,EA69628F,4, 0&

AE3F95B9 A199DFD1
End Function

'WriteASM
Public Function A2E8481F(Address As Long, ASM As String)
Dim i As Integer
Dim i2 As Integer

i2 = 1
While i < (Len(ASM) / 2)
Call CB21D5D8(Address + i, &H0, Val("&H" & Mid$(" & ASM & ", i2, 2)))
i = i + 1
i2 = i2 + 2
Wend
End Function


Edit it for a longer ud time

[18hoursperday]

Yes!
Please edit it, so that : Your model doesnt get decteded
as i belive alot of people are going to use this model!


Thanks
18hours:)
P.S I Look forward to you releasing a hack maybe ;)
Thanks :)

[HydroQc]

People...You may mkae a UD module but...PB checks the memory. And if the value of the memory is changed, they will ban you. You may making string like this -> sdahj32hrjhr534GV45gfdjk43SDFjwsJSfjrek43kshsJ3K3j k5jJ3

But this will not make the hack UD...Pb still checks for the memory (or adresses if you want)

Anyone against this...Say me why?!

[ZeaS]

Yes!
Please edit it, so that : Your model doesnt get decteded
as i belive alot of people are going to use this model!


Thanks
18hours:)
P.S I Look forward to you releasing a hack maybe ;)
Thanks :)

yea i finished it :P will release it today or tomorrow, because working on few new features