Unl. Ammo[[TUT]]

Here is my Tutorial for Unl. Ammo

Need:

Undetected Module Maker > Search in the VB Section for the one made by ZEAS

VB6 > Search yourself

VB6
File\New Project\Stantard EXE

Get a CHECKBOX, and search for the propertie named CAPTION and change to UNL. AMMO, now get a TIMER and change the following properties:
Enable = False
Interval = 1

NOW double click in the CHECKBOX
and will open a window for the CODES

Put this code between Private Sub Check1_Click() and End Sub:

Code:

If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = True
End If

It will look like this:

This code will run Timer1 when you check the checkbox.

Now go back to the form1 and double click on the TIMER, here we will put the CODE for UNL. AMMO.
U will need the addresss for UNL. AMMO. Get them in the WARROCK section =P, its 3 adresses.
For UNL. AMMO we need to NOP them.
UNL. AMMO is 3 BYTE NOP:
This Code is for ONE ADDRESS
Replace (ADDRESS1) for the respective addresses =p

Code:

Call writeabyte("WarRock", &H(ADDRESS1), &H90)
Call writeabyte("WarRock", &H(ADDRESS1) + 1, &H90)
Call writeabyte("WarRock", &H(ADDRESS1) + 2, &H90)

U need to make this for the 3 ADDRESS. After doing this for the 3 addresses u may have something like this:

Code:

Call writeabyte("WarRock", &H(ADDRESS1), &H90)
Call writeabyte("WarRock", &H(ADDRESS1) + 1, &H90)
Call writeabyte("WarRock", &H(ADDRESS1) + 2, &H90)
Call writeabyte("WarRock", &H(ADDRESS2), &H90)
Call writeabyte("WarRock", &H(ADDRESS2) + 1, &H90)
Call writeabyte("WarRock", &H(ADDRESS2) + 2, &H90)
Call writeabyte("WarRock", &H(ADDRESS3), &H90)
Call writeabyte("WarRock", &H(ADDRESS3) + 1, &H90)
Call writeabyte("WarRock", &H(ADDRESS3) + 2, &H90)

YOU MAY HAVE ALL IN BLACK, NOT RED AS IN MINE

Now we need the MODULE for this work.
Project\Add Module\Open.
Will open a new window of code(this window is only for the module).

Now open the your Undetected Module Maker and give a name to all strings.
Ex. of name: haUDIashgeui21yt9837, the name cannot start with a number....
If u don't want to give a name for the strings use the FAST MODULE, it will give a name automatically.

Now copy ALL the code and paste into your module.
DONT CLOSE THE UNDETECTED MODULE MAKER YET

Now we need to change the strings(writeabyte) used in the code for UNL. AMMO for the one that we use in the module.
An easy way to do this is openning the SEARCH AND REPLACE in the VB6.
Edit\Find...
Then in the Replace window click on Replace and in FIND WHAT we put writeabyte, and in REPLACE WITH we put the string used in the module for writeabyte.
Ex. Mine is ZRWZRMKSA, I will replace writeabyte for ZRWZRMKSA
Then click on REPLACE ALL\OK

Now we will make a .exe for the hack:
File\Make Project1.exe...
Then choice a place(I recommend Desktop)
and click OK
If you get any error check if you replace the strings(writeabyte) for the correct strings used in the module...

If something is wrong in this toturial please inform me
srry for my english =p

credits thiag0
sry if its in the wrong section =p

lol

is a nice tutorial man for the noobs XD very nice

Yes, very good tutorial for the noobs .

. I already knew

.
Nice one!

Good very good tutorial didn't work for me when i use tickbox bu i used buttons now it works

Thx... I'm a noob so it's a good TuT for me

there's just 1 thing... it gives this error when I try to make the .exe :
Microsoft Visual Basic [×]
Compile error:
Syntax error
OK Help

Can you help me with that?

Let me start with: "Sorry for double posting"
I already figured out what was the problem, it's fixed now.
I'm going to test my hack on my other computer. After testing and knowing it works, I'm gonna ROCK, WAR ROCK XD

Originally Posted by thiag00

Here is my Tutorial for Unl. Ammo

Need:

Undetected Module Maker > Search in the VB Section for the one made by ZEAS

VB6 > Search yourself

VB6
FileNew ProjectStantard EXE

Get a CHECKBOX, and search for the propertie named CAPTION and change to UNL. AMMO, now get a TIMER and change the following properties:
Enable = False
Interval = 1

NOW double click in the CHECKBOX
and will open a window for the CODES

Put this code between Private Sub Check1_Click() and End Sub:

Code:

If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = True
End If

It will look like this:

Code:

Call writeabyte("WarRock", &H(ADDRESS1), &H90)
Call writeabyte("WarRock", &H(ADDRESS1) + 1, &H90)
Call writeabyte("WarRock", &H(ADDRESS1) + 2, &H90)

U need to make this for the 3 ADDRESS. After doing this for the 3 addresses u may have something like this:

Code:

Call writeabyte("WarRock", &H(ADDRESS1), &H90)
Call writeabyte("WarRock", &H(ADDRESS1) + 1, &H90)
Call writeabyte("WarRock", &H(ADDRESS1) + 2, &H90)
Call writeabyte("WarRock", &H(ADDRESS2), &H90)
Call writeabyte("WarRock", &H(ADDRESS2) + 1, &H90)
Call writeabyte("WarRock", &H(ADDRESS2) + 2, &H90)
Call writeabyte("WarRock", &H(ADDRESS3), &H90)
Call writeabyte("WarRock", &H(ADDRESS3) + 1, &H90)
Call writeabyte("WarRock", &H(ADDRESS3) + 2, &H90)

YOU MAY HAVE ALL IN BLACK, NOT RED AS IN MINE

Now we need the MODULE for this work.
ProjectAdd ModuleOpen.
Will open a new window of code(this window is only for the module).

Now copy ALL the code and paste into your module.
DONT CLOSE THE UNDETECTED MODULE MAKER YET

Now we need to change the strings(writeabyte) used in the code for UNL. AMMO for the one that we use in the module.
An easy way to do this is openning the SEARCH AND REPLACE in the VB6.
EditFind...
Then in the Replace window click on Replace and in FIND WHAT we put writeabyte, and in REPLACE WITH we put the string used in the module for writeabyte.
Ex. Mine is ZRWZRMKSA, I will replace writeabyte for ZRWZRMKSA
Then click on REPLACE ALLOK

Now we will make a .exe for the hack:
FileMake Project1.exe...
Then choice a place(I recommend Desktop)
and click OK
If you get any error check if you replace the strings(writeabyte) for the correct strings used in the module...

If something is wrong in this toturial please inform me
srry for my english =p

credits thiag0
sry if its in the wrong section =p

Now i'm gonna let u see , i get an error and i don't know why ...

This is my source code .

Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
Call E24567("WarRock", &H51E996, &H90)
Call E24567("WarRock", &H51E996 + 1, &H90)
Call E24567("WarRock", &H51E996 + 2, &H90)
Call E24567("WarRock", &H51E9A7, &H90)
Call E24567("WarRock", &H51E9A7 + 1, &H90)
Call E24567("WarRock", &H51E9A7 + 2, &H90)
Call E24567("WarRock", &H51E9A7, &H90)
Call E24567("WarRock", &H51E9A7 + 1, &H90)
Call E24567("WarRock", &H51E9A7 + 2, &H90)
End Sub

This is my module

Public Const QWER345565 = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function I123 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function E345 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function ASD3455 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 ERA455 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function AASDFG1 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function DASDSD1 Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ADSDD2222 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 QWERTY3(ERY4 As Long, ERTYUUU5 As Long) 'WriteALong
Dim DSDADD1 As Long
Dim ASDFRRR1 As Long
Dim SSSS2 As Long
DSDADD1 = AASDFG1(vbNullString, "WarRock")
If (DSDADD1 = 0) Then
End
Exit Function
End If
I123 DSDADD1, ASDFRRR1
SSSS2 = E345(QWER345565, False, ASDFRRR1)
If (SSSS2 = 0) Then
Exit Function
End If
ASD3455 SSSS2, ERY4, ERTYUUU5, 4, 0&
ERA455 F45666
End Function

Public Function E315(ERY4 As Long, E4567 As Integer, ERTYUUU5 As Long)
Dim DSDADD1 As Long
Dim ASDFRRR1 As Long
Dim SSSS2 As Long
Dim ASD4567 As Long
Dim ASDD6687900 As Long
DSDADD1 = AASDFG1(vbNullString, "WarRock")
If (DSDADD1 = 0) Then
Exit Function
End If
I123 DSDADD1, ASDFRRR1
SSSS2 = E345(QWER345565, False, ASDFRRR1)
If (SSSS2 = 0) Then
Exit Function
End If
ADSDD2222 SSSS2, ERY4, ASD4567, 4, 0&
ASDD6687900 = ASD4567 + E4567
ASD3455 SSSS2, ASDD6687900, ERTYUUU5, 4, 0&
ERA455 F45666
End Function

Public Function E4345(ERY4 As Long, E4567 As Integer, ERTYUUU5 As Single)
Dim DSDADD1 As Long
Dim ASDFRRR1 As Long
Dim SSSS2 As Long
Dim ASD4567 As Long
Dim ASDD6687900 As Long
DSDADD1 = AASDFG1(vbNullString, "WarRock")
If (DSDADD1 = 0) Then
Exit Function
End If
I123 DSDADD1, ASDFRRR1
SSSS2 = E345(QWER345565, False, ASDFRRR1)
If (SSSS2 = 0) Then
Exit Function
End If
ADSDD2222 SSSS2, ERY4, ASD4567, 4, 0&
ASDD6687900 = ASD4567 + E4567
ASD3455 SSSS2, ASDD6687900, ERTYUUU5, 4, 0&
ERA455 F45666
End Function

Public Function E356(ERY4 As Long, ERTYUUU5 As Single) 'WriteAFloat
Dim DSDADD1 As Long
Dim ASDFRRR1 As Long
Dim SSSS2 As Long
DSDADD1 = AASDFG1(vbNullString, "WarRock")
If (DSDADD1 = 0) Then
End
Exit Function
End If
I123 DSDADD1, ASDFRRR1
SSSS2 = E345(QWER345565, False, ASDFRRR1)
If (SSSS2 = 0) Then
Exit Function
End If
ASD3455 SSSS2, ERY4, ERTYUUU5, 4, 0&
ERA455 F45666
End Function

Public Function E24567(ERY4 As Long, ERTYUUU5 As Byte) 'WriteAByte
Dim DSDADD1 As Long
Dim ASDFRRR1 As Long
Dim SSSS2 As Long
DSDADD1 = AASDFG1(vbNullString, "WarRock")
If (DSDADD1 = 0) Then
End
Exit Function
End If
I123 DSDADD1, ASDFRRR1
SSSS2 = E345(QWER345565, False, ASDFRRR1)
If (SSSS2 = 0) Then
Exit Function
End If
ASD3455 SSSS2, ERY4, ERTYUUU5, 1, 0&
ERA455 F45666
End Function

Public Function E3456778(ERY4 As Long, ERTY54444444 As Byte) 'ReadAByte
Dim DSDADD1 As Long
Dim ASDFRRR1 As Long
Dim SSSS2 As Long
DSDADD1 = AASDFG1(vbNullString, "WarRock")
If (DSDADD1 = 0) Then
End
Exit Function
End If
I123 DSDADD1, ASDFRRR1
SSSS2 = E345(QWER345565, False, ASDFRRR1)
If (SSSS2 = 0) Then
Exit Function
End If
ADSDD2222 SSSS2, ERY4, ERTY54444444, 1, 0&
ERA455 F45666
End Function
'made by ZeaS

could you tell my whats wrong with this shit?

Unl. ammo its 3 adressess, u use only two..
Check here:

Code:

Call E24567("WarRock", &H51E996, &H90)
Call E24567("WarRock", &H51E996 + 1, &H90)
Call E24567("WarRock", &H51E996 + 2, &H90)
Call E24567("WarRock", &H51E9A7, &H90)
Call E24567("WarRock", &H51E9A7 + 1, &H90)
Call E24567("WarRock", &H51E9A7 + 2, &H90)
Call E24567("WarRock", &H51E9A7, &H90)
Call E24567("WarRock", &H51E9A7 + 1, &H90)
Call E24567("WarRock", &H51E9A7 + 2, &H90)

now with the new adressESS

Code:

Call E24567("WarRock", &H51EA06, &H90)
Call E24567("WarRock", &H51EA06 + 1, &H90)
Call E24567("WarRock", &H51EA06 + 2, &H90)
Call E24567("WarRock", &H51EA17, &H90)
Call E24567("WarRock", &H51EA17 + 1, &H90)
Call E24567("WarRock", &H51EA17 + 2, &H90)
Call E24567("WarRock", &H51EA1D, &H90)
Call E24567("WarRock", &H51EA1D+ 1, &H90)
Call E24567("WarRock", &H51EA1D+ 2, &H90)

does it have to be vb6 or can i use vb5?

you can use VB5, but it may need one or two edits...

Good post helped me out :P

Unl. Ammo[[TUT]]

Post a Reply

Similar Threads

Tags for this Thread