bloqueado93 (05-02-2008),boyd45 (05-17-2008),cr4sh08 (05-17-2008),labowsky (06-30-2008),loverboy (05-03-2008),olli-pekka (05-16-2008),RumbleBall (06-24-2008),superdragonslayer (05-02-2008),Synns (05-02-2008)
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 moduleCode:",'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):
example how to use now: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: https://img160.imageshack.us/img160/6...lemakerix2.png
Virusscan: Virustotal. MD5: e6a2886a0390052f8c50fa8b125154c4
Downloadlink: **********: 1-Click Webhosting
~ZeaS
bloqueado93 (05-02-2008),boyd45 (05-17-2008),cr4sh08 (05-17-2008),labowsky (06-30-2008),loverboy (05-03-2008),olli-pekka (05-16-2008),RumbleBall (06-24-2008),superdragonslayer (05-02-2008),Synns (05-02-2008)
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???
Last edited by bloqueado93; 05-02-2008 at 10:29 AM.
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.
your adresses are wrong::
&H8B5288>> change to playerpointer
&H180>> change to offset (&H178)
&H26C>> change to offset(&H264)
loverboy (05-03-2008)
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
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
Last edited by froztyhax; 05-03-2008 at 07:41 PM. Reason: Typo
loverboy (05-04-2008)
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....
Last edited by boyd45; 05-17-2008 at 11:12 AM. Reason: forgot to tell that 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!
Last edited by RGewrsgywergeryt4yerhrh; 05-24-2008 at 12:54 AM.
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?