Module Maker ~ Fixed
Module Maker ~ Fixed
Ok guys, here's the fixed version because a lot people got problems with my other versions
i fixed all bugs and tested it, all functions work(Writelong, float, byte..)
Whats new?
You can save your Settings looks like this:
so you can close the module maker after you've created a module
next feature:
You don't need to add "Warrock"
example(old): Call WriteLong("WarRock", &HAddy, Value)
example(new): Call WriteLong(&HAddy, Value)
next feature:
you don't need to do the "dim stamina as long" anymore :P just use "WritePointerLong" and "WritePointerFloat"
example(old):
example how to use now:
-----------------------
I'm not sure if it creats an Undetected Module but i think yes beacuse it changes all strings
-----------------------
Happy Hacking
Screen: http://img160.imageshack.us/img160/6...lemakerix2.png
Virusscan: Virustotal. MD5: e6a2886a0390052f8c50fa8b125154c4
Downloadlink: **********: 1-Click Webhosting
~ZeaS
i fixed all bugs and tested it, all functions work(Writelong, float, byte..)
Whats new?
You can save your Settings looks like this:
Code:
",'GetWindowThreadProcessId:-----GDCWGYPWY ","OpenProcess:------------------DCWGYPWYG ","WriteProcessMemory:-----------CWGYPWYGD ","CloseHandle:------------------WGYPWYGDC ","FindWindowA:------------------GYPWYGDCW ","GetAsyncKeyState:-------------YPWYGDCWG ","ReadProcessMemory:------------PWYGDCWGY ","hWnd:-------------------------WYGDCWGYP ","pid:--------------------------GDCWGYPYW ","phandle:----------------------GDCWGYWYP ","WriteALong:-------------------GDCWGPYYW ","WritePointerLong:-------------GDCWYGPYW ","WriteAFloat:------------------DGCWGYPYW ","WritePointerFloat:------------GDWCGYPYW ","WriteAByte:-------------------WDGWGYPYW ","ReadAByte:--------------------YDCWGYPWG
next feature:
You don't need to add "Warrock"
example(old): Call WriteLong("WarRock", &HAddy, Value)
example(new): Call WriteLong(&HAddy, Value)
next feature:
you don't need to do the "dim stamina as long" anymore :P just use "WritePointerLong" and "WritePointerFloat"
example(old):
Code:
dim stamina as long
dim stamina2 as long
call readalong("warrock", &Haddy, stamina)
stamina2 = stamina + &Hoffset
call writeafloat("WarRock", stamina2, 100)
Code:
Call WriteFloatPointer(&Haddy, &HOffset, Value)
I'm not sure if it creats an Undetected Module but i think yes beacuse it changes all strings
-----------------------
Happy Hacking
Screen: http://img160.imageshack.us/img160/6...lemakerix2.png
Virusscan: Virustotal. MD5: e6a2886a0390052f8c50fa8b125154c4
Downloadlink: **********: 1-Click Webhosting
~ZeaS
i try it tnx
tnx its good
nice
very nice man, is a nice module maker, but i can open just 34 times ????is a nice module maker, but i really dont understand.. where is readalong and float???
Thanks ZeaS! You rule!
Hey can some1 help me whit this,
is this correct or is it like so crappy..
I use this for SuperJump and No Fall Damage:
Private Sub Command1_Click()
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)
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim NFD As Long
Dim NFD As Long
Call readalong("WarRock", &H8B5288, NFD)
NFD1 = NFD + &H26C
Call writeafloat("WarRock", NFD1, -2000)
End Sub
Is this good?or not..?
if it is not, plz help me.. PLS=)
Many greets,
M.E.
is this correct or is it like so crappy..
I use this for SuperJump and No Fall Damage:
Private Sub Command1_Click()
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)
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim NFD As Long
Dim NFD As Long
Call readalong("WarRock", &H8B5288, NFD)
NFD1 = NFD + &H26C
Call writeafloat("WarRock", NFD1, -2000)
End Sub
Is this good?or not..?
if it is not, plz help me.. PLS=)
Many greets,
M.E.
your adresses are wrong::
&H8B5288>> change to playerpointer
&H180>> change to offset (&H178)
&H26C>> change to offset(&H264)
&H8B5288>> change to playerpointer
&H180>> change to offset (&H178)
&H26C>> change to offset(&H264)
help a lil...
this is my wepn hack but it crashes when I press the hotkey
If getkeypress (vbkeyK) then
Call WriteFloatPointer(&H13773A0, &H4C, Text1.text)
End If
this is my wepn hack but it crashes when I press the hotkey
If getkeypress (vbkeyK) then
Call WriteFloatPointer(&H13773A0, &H4C, Text1.text)
End If
Hey =)
thanks a lot =)
but just 1 more thingy..
can u tell me what the playerpointer is? =)
I do not know that one -.-
Many greets,
M.E.
Originally Posted by joranxxl
thanks a lot =)
but just 1 more thingy..
can u tell me what the playerpointer is? =)
I do not know that one -.-
Many greets,
M.E.
Originally Posted by joranxxl
your adresses are wrong::
&H8B5288>> change to playerpointer
&H180>> change to offset (&H178)
&H26C>> change to offset(&H264)
&H8B5288>> change to playerpointer
&H180>> change to offset (&H178)
&H26C>> change to offset(&H264)
Originally Posted by loverboy
Hey can some1 help me whit this,
is this correct or is it like so crappy..
I use this for SuperJump and No Fall Damage:
Private Sub Command1_Click()
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)
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim NFD As Long
Dim NFD As Long
Call readalong("WarRock", &H8B5288, NFD)
NFD1 = NFD + &H26C
Call writeafloat("WarRock", NFD1, -2000)
End Sub
Is this good?or not..?
if it is not, plz help me.. PLS=)
Many greets,
M.E.
is this correct or is it like so crappy..
I use this for SuperJump and No Fall Damage:
Private Sub Command1_Click()
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)
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim NFD As Long
Dim NFD As Long
Call readalong("WarRock", &H8B5288, NFD)
NFD1 = NFD + &H26C
Call writeafloat("WarRock", NFD1, -2000)
End Sub
Is this good?or not..?
if it is not, plz help me.. PLS=)
Many greets,
M.E.
For superjump, its now :
If GetAKeySync(vbKeyControl) Then
Call WRITEAPOINTERFLOAT(&HADDRESS, &HOFFSET, Text1.Text)
End If
For NFD, its now :
Call WRITEAPOINTERFLOAT(&HADDRESS, &HOFFSET, -9999)
Hope this helped
.And Zeas, i got the hang of the 'WriteAPointer' now
. Good idea. However, now i keep getting 0 minute bans. Anyone know how to 'get rid of them'. I already disable PNKBSTRA when my hack opens (automatic), and i made a clean.bat to clean every 1 second. So why does it still kick me ???? Ive included every free hack there is apart from Teleport. -David
Whats wrong with WriteAByte?
I maked a unlimeted ammo hack with a module maked with Zeas module maker but it gives a error.
If I use a detected module (I found it somewhere on the forum) it works.
So have I done something wrong?
Heres my code:
Private Sub Timer1_Timer()
Call WriteAByte("WarRock", &H51EA06, &H90)
Call WriteAByte("WarRock", &H51EA06 + 1, &H90)
Call WriteAByte("WarRock", &H51EA06 + 2, &H90)
Call WriteAByte("WarRock", &H51EA17, &H90)
Call WriteAByte("WarRock", &H51EA17 + 1, &H90)
Call WriteAByte("WarRock", &H51EA17 + 2, &H90)
Call WriteAByte("WarRock", &H51EA1D, &H90)
Call WriteAByte("WarRock", &H51EA1D + 1, &H90)
Call WriteAByte("WarRock", &H51EA1D + 2, &H90)
End Sub
I am sure the code work (until warrock update the adresses)
I maked a unlimeted ammo hack with a module maked with Zeas module maker but it gives a error.
If I use a detected module (I found it somewhere on the forum) it works.
So have I done something wrong?
Heres my code:
Private Sub Timer1_Timer()
Call WriteAByte("WarRock", &H51EA06, &H90)
Call WriteAByte("WarRock", &H51EA06 + 1, &H90)
Call WriteAByte("WarRock", &H51EA06 + 2, &H90)
Call WriteAByte("WarRock", &H51EA17, &H90)
Call WriteAByte("WarRock", &H51EA17 + 1, &H90)
Call WriteAByte("WarRock", &H51EA17 + 2, &H90)
Call WriteAByte("WarRock", &H51EA1D, &H90)
Call WriteAByte("WarRock", &H51EA1D + 1, &H90)
Call WriteAByte("WarRock", &H51EA1D + 2, &H90)
End Sub
I am sure the code work (until warrock update the adresses)
hello i got a question what do i need to fill in at the value
i got this
Call WriteFloatPointer(&H137BE20, &H28c, Value)
what do i need to fill in at value ???
i want to make a stamina hack....
i got this
Call WriteFloatPointer(&H137BE20, &H28c, Value)
what do i need to fill in at value ???
i want to make a stamina hack....
looks nice, going to test it =P
EDIT: gives me a lots of errors when compiling..... so what i excactly put to text boxes?? some random shit?
EDIT: got module working but gives me an error at: Call ReadALong("Warrock", &H-----, Shotgun2)
and error msg was:
Compile error: Sub Or Function not defined
anyone please help ME!
EDIT: gives me a lots of errors when compiling..... so what i excactly put to text boxes?? some random shit?
EDIT: got module working but gives me an error at: Call ReadALong("Warrock", &H-----, Shotgun2)
and error msg was:
Compile error: Sub Or Function not defined
anyone please help ME!
does the old way still works like this:
Dim STAMINA as long
Dim STAMINA2 as long?
or do i need to use the new way?
Dim STAMINA as long
Dim STAMINA2 as long?
or do i need to use the new way?
Similar Threads
- 72Last post
- 22Last post
- 20Last post
- 0Last post
- 2Last post