[Tutorial]Visual Basic 6 Many Options Tutorial by Yogilek.

So i'am now <expert of visual basic 6 hacks but i need addresses (have some).
i Release a my tutorial. if u want better and pretty hack. So Lets Start.

1.If u Want Undetected Module Change the Commands (WLong to example a yogilek01) This Look it :

Code:

Public Function WLong(gamewindowtext As String, address As Long, value As Byte) later Public Function yogilek01(gamewindowtext As String, address As Long, value As Byte)

2.A Password WithOut Adding a

Code:

Login In Dialog

a)add a text box called

Code:

txtUserName

b)add a second text box called

Code:

txtPassword

c)and add a command called

Code:

Unlock1

d)and copy and paste this

Code:

    If txtUserName = "mpgh" And txtPassword = "yogilek" Then
    Unlock1.Enabled = False
    txtUserName.Enabled = False
    txtPassword.Enabled = False

3.Adding CheckBoxes
a)add a CheckBox From Options and Open It.
b)when u see this:

Code:

Private Sub Check1_Click()

End Sub

write this:

Code:

Private Sub Check1_Click()
If Check1 = Checked Then
Timer1.Interval = 1
End Sub

and for Turn Off it Write This :

Code:

Private Sub Check2_Click()
If Check2 = Checked Then
Timer1.Interval = 0
End Sub

3.Adding a Hotkeys and Weapons in SLots!

1)adding hotkeys for weapons in slots

a)if u want winchester in slot copy this and paste:

Code:

If GetKeyPress(vbKey5) Then
Dim Winchester As Long
Dim winchester1 As Long
Call RLong("Warrock", &H8B5288, Winchester)
winchester1 = Winchester + &H4C
Call WLong("Warrock", winchester1, 34)
End If

and for anothers :

a)add timer called

Code:

hotkeys

and open it and add example a

Code:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKey1) Then
Stamina.Interval = 1
End If

b)Then Add a New Timer Called Stamina and add this:

Code:

Private Sub Stamina_Timer()
Call WLong("WarRock", &H7F2B34, 1120403456)
End Sub

4.Adding a Changing Labels
a)make a new label called example Stamina Off
b)make a new button and open it and paste it:

Code:

Private Sub Command1_Click()
Label1 = Stamina On
Call WLong("WarRock", &H7F2B34, 1120403456)
End Sub

ok, and it End Of My Tutorial Don't Lech If U Can add Me a Reputation Thank You [TUTORIAL FOR NEWBIES] bye

[Tutorial]Visual Basic 6 Many Options Tutorial by Yogilek.

Post a Reply

Similar Threads

Tags for this Thread