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:

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

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):

Code:

dim stamina as long
dim stamina2 as long
call readalong("warrock", &Haddy, stamina)
stamina2 = stamina + &Hoffset
call writeafloat("WarRock", stamina2, 100)

example how to use now:

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.

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.

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

your adresses are wrong::
&H8B5288>> change to playerpointer
&H180>> change to offset (&H178)
&H26C>> change to offset(&H264)

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

your adresses are wrong::
&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

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)

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....

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!

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?

Module Maker ~ Fixed

Similar Threads

Tags for this Thread