[TuT] How to make PW and value box for Guns/Superjump/SkyStormer(VB6)
[TuT] How to make PW and value box for Guns/Superjump/SkyStormer(VB6)
Do nOT LEECH THIS
INFORMATION
Clause after ' is instruction
DON'T COPY THIS RIGHT TO YOUR TRAINER CUZ IT DON'T WORK THEN
Here it comes:
Value Box:
1.Start VB6
2.Open project or start new
3.First you make button for Guns and write code:
Then you just make textbox and run program
you can write number of gun to the textbox!
PassWord:
1.start VB6
2.open project or start new
3.Make new Form, create textbox and timer
4.Set timer interval to 100
5.write this code to timer:
now just start program and write your password
HAVE A NICE DAY!!!
INFORMATION
Clause after ' is instruction
DON'T COPY THIS RIGHT TO YOUR TRAINER CUZ IT DON'T WORK THEN
Here it comes:
Value Box:
1.Start VB6
2.Open project or start new
3.First you make button for Guns and write code:
Code:
Dim gun As Long
Dim gun1 As Long
Dim gun2 As Long
Call ReadALong("WarRock", &H¤address¤, gun)
gun1 = gun + &H¤pointer¤
gun2 = TextX 'TextX is text box where you write number of your gun
Call WriteALong("WarRock", gun1, gun2)
you can write number of gun to the textbox!
PassWord:
1.start VB6
2.open project or start new
3.Make new Form, create textbox and timer
4.Set timer interval to 100
5.write this code to timer:
Code:
If GetKeyPress(vbKeyReturn) Then 'return mean "ENTER"
If Text1.Text = "write password here" Then 'here you write your own PW
Form1.Hide 'If your password Form Is called Form1 write Form1 here
Form2.Show 'If your Trainer Form Is called Form2 write Form2 here
End If
End If 'remember 2x end if
HAVE A NICE DAY!!!
The password doesn't work....
better password protection:
on ur project, click on Form1 or however its colled for u, chose Add, then Form, chose Log in Dialog. Doubleclick OK, here's where u set the password:
just change the "password" to any string or combination of letters/numbers, so it can be like:
password will be asd12a234
the username doesnt matter, can be left as empty blank.
thats the OK code:
After Me.Hide place YourFormName.Show.
on the right side of ur screen there's a tree listing, right click Project1 or however ur project is called, then do YourProjectName Properties... and at Startup Object choose frmLogin. U can simply delete the username textbox or code it so it will check for username too.
Attached example app with login
on ur project, click on Form1 or however its colled for u, chose Add, then Form, chose Log in Dialog. Doubleclick OK, here's where u set the password:
Code:
If txtPassword = "password" Then
Code:
If txtPassword = "asd12a234" Then
the username doesnt matter, can be left as empty blank.
thats the OK code:
Code:
Private Sub cmdOK_Click()
'check for correct password
If txtPassword = "asd" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Else
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
on the right side of ur screen there's a tree listing, right click Project1 or however ur project is called, then do YourProjectName Properties... and at Startup Object choose frmLogin. U can simply delete the username textbox or code it so it will check for username too.
Attached example app with login
It Is Your Style I Have My Own!!
some1 said ur isnt working 
the password code looks very familiar...
its yours :/
Originally Posted by dezer
its yours :/
note that any clear text password in VB6 can be cracked by anyone with a little brain in about 2 minutes
(if you don't believe it, make one and send it to me
)
(if you don't believe it, make one and send it to me
)Hmmm you're thinking of using a decompiler... if I really wanted to I could easily encrypt the entire file and you wouldn't be able to decompile anything... yes I know it can be done because I do it with others that are made this way, but if you can do this, then I don't see why you're not trusted to have the hack... but it can be stopped the way you're thinking.
personaly i prefer to just encrypt the password into an md5 hash.
works perfectly
works perfectly
so..............
this is the wright code??:
this is the wright code??:
Code:
Private Sub Command1_Click()
Dim gun As Long
Dim gun1 As Long
Dim gun2 As Long
Call ReadALong("WarRock", &H896E28, gun)
gun1 = gun + &H4C
gun2 = Text1
Call WriteALong("WarRock", gun1, gun2)
End Sub
Originally Posted by ltkort213
so..............
this is the wright code??:
this is the wright code??:
Code:
Private Sub Command1_Click()
Dim gun As Long
Dim gun1 As Long
Dim gun2 As Long
Call ReadALong("WarRock", &H896E28, gun)
gun1 = gun + &H4C
gun2 = Text1
Call WriteALong("WarRock", gun1, gun2)
End Sub
You must cheack just address and pointer
Originally Posted by dikketr0l
The password doesn't work....
LEECHER BAN HIM HES' NOOB
I did this TUT myself
This thread is closed for replies.
