VB Hack Menu Tutorial
VB Hack Menu Tutorial
Hello i just made a hack menu to explain hotkeys and crap in visual basic 
. Hope you enjoy. (I use Visual basic 2008)
*1*
You need 8 labels (There will be 3 Hacks)
You need 1 Timer (Interval = 1) (Enabled = True)
You can put lines and stuff too make it look good.
It will look like this
*MUST BE THESE COLORS* *OR CHANGE THE CODE*
Label1 color = white
label2 color = blue
label3 color = blue
label4 color = any
label5,6,7 = red
label8 = cyan
*2*
Do something like this
*3*
Make sure you have all that i have on *2* or anything else and then delete everything in the code box and paste this:
If this helped you please click the "THANKS" Button and if it isnt exacly what you need i might be able to help u. If you want ill use the E.Keypress Method.
. Hope you enjoy. (I use Visual basic 2008)*1*
You need 8 labels (There will be 3 Hacks)
You need 1 Timer (Interval = 1) (Enabled = True)
You can put lines and stuff too make it look good.
It will look like this
*MUST BE THESE COLORS* *OR CHANGE THE CODE*
Label1 color = white
label2 color = blue
label3 color = blue
label4 color = any
label5,6,7 = red
label8 = cyan
*2*
Do something like this
*3*
Make sure you have all that i have on *2* or anything else and then delete everything in the code box and paste this:
Code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim right As Boolean = False
Dim left As Boolean = False
Dim up As Boolean = False
Dim down As Boolean = False
left = GetAsyncKeyState(Keys.Left)
right = GetAsyncKeyState(Keys.Right)
up = GetAsyncKeyState(Keys.Up)
down = GetAsyncKeyState(Keys.Down)
If Right = True And Label1.ForeColor = Color.White Then
Label5.Text = " >>"
Label5.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label1.ForeColor = Color.White Then
Label5.Text = "<<"
Label5.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Blue
Label3.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Blue
Label2.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf right = True And Label2.ForeColor = Color.White Then
Label6.Text = " >>"
Label6.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label2.ForeColor = Color.White Then
Label6.Text = "<<"
Label6.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label2.ForeColor = Color.White Then
Label2.ForeColor = Color.Blue
Label1.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label2.ForeColor = Color.White Then
Label3.ForeColor = Color.White
Label2.ForeColor = Color.Blue
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label3.ForeColor = Color.White Then
Label3.ForeColor = Color.Blue
Label2.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label3.ForeColor = Color.White Then
Label1.ForeColor = Color.White
Label3.ForeColor = Color.Blue
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label3.ForeColor = Color.White Then
Label7.Text = "<<"
Label7.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf right = True And Label3.ForeColor = Color.White Then
Label7.Text = " >>"
Label7.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
End If
End Sub
End Class
If this helped you please click the "THANKS" Button and if it isnt exacly what you need i might be able to help u. If you want ill use the E.Keypress Method.
Originally Posted by lucasheer715
Hello i just made a hack menu to explain hotkeys and crap in visual basic . Hope you enjoy. (I use Visual basic 2008)
*1*
You need 8 labels (There will be 3 Hacks)
You need 1 Timer (Interval = 1) (Enabled = True)
You can put lines and stuff too make it look good.
It will look like this
*MUST BE THESE COLORS* *OR CHANGE THE CODE*
Label1 color = white
label2 color = blue
label3 color = blue
label4 color = any
label5,6,7 = red
label8 = cyan
*2*
Do something like this
*3*
Make sure you have all that i have on *2* or anything else and then delete everything in the code box and paste this:
If this helped you please click the "THANKS" Button and if it isnt exacly what you need i might be able to help u. If you want ill use the E.Keypress Method.
. Hope you enjoy. (I use Visual basic 2008)*1*
You need 8 labels (There will be 3 Hacks)
You need 1 Timer (Interval = 1) (Enabled = True)
You can put lines and stuff too make it look good.
It will look like this
*MUST BE THESE COLORS* *OR CHANGE THE CODE*
Label1 color = white
label2 color = blue
label3 color = blue
label4 color = any
label5,6,7 = red
label8 = cyan
*2*
Do something like this
*3*
Make sure you have all that i have on *2* or anything else and then delete everything in the code box and paste this:
Code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim right As Boolean = False
Dim left As Boolean = False
Dim up As Boolean = False
Dim down As Boolean = False
left = GetAsyncKeyState(Keys.Left)
right = GetAsyncKeyState(Keys.Right)
up = GetAsyncKeyState(Keys.Up)
down = GetAsyncKeyState(Keys.Down)
If Right = True And Label1.ForeColor = Color.White Then
Label5.Text = " >>"
Label5.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label1.ForeColor = Color.White Then
Label5.Text = "<<"
Label5.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Blue
Label3.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Blue
Label2.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf right = True And Label2.ForeColor = Color.White Then
Label6.Text = " >>"
Label6.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label2.ForeColor = Color.White Then
Label6.Text = "<<"
Label6.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label2.ForeColor = Color.White Then
Label2.ForeColor = Color.Blue
Label1.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label2.ForeColor = Color.White Then
Label3.ForeColor = Color.White
Label2.ForeColor = Color.Blue
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label3.ForeColor = Color.White Then
Label3.ForeColor = Color.Blue
Label2.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label3.ForeColor = Color.White Then
Label1.ForeColor = Color.White
Label3.ForeColor = Color.Blue
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label3.ForeColor = Color.White Then
Label7.Text = "<<"
Label7.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf right = True And Label3.ForeColor = Color.White Then
Label7.Text = " >>"
Label7.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
End If
End Sub
End Class
I know, But its demistrating the use of hot keys in visual basic.... can't u read?
Originally Posted by lucasheer715
I know, But its demistrating the use of hot keys in visual basic.... can't u read?
Thats best you edit ur comment lol
Originally Posted by lucasheer715
DUDE you replied to it and it showed that i did it.....
---------- Post added at 06:18 PM ---------- Previous post was at 06:17 PM ----------
ALL I ADDED WAS A IMAGE.....
---------- Post added at 06:18 PM ---------- Previous post was at 06:18 PM ----------
see that? its there b4 u replied... again can u read?
---------- Post added at 06:19 PM ---------- Previous post was at 06:18 PM ----------
Originally Posted by lucasheer715
Hello i just made a hack menu to explain hotkeys and crap in visual basic . Hope you enjoy. (I use Visual basic 2008)
*1*
You need 8 labels (There will be 3 Hacks)
You need 1 Timer (Interval = 1) (Enabled = True)
You can put lines and stuff too make it look good.
It will look like this
*MUST BE THESE COLORS* *OR CHANGE THE CODE*
Label1 color = white
label2 color = blue
label3 color = blue
label4 color = any
label5,6,7 = red
label8 = cyan
*2*
Do something like this
*3*
Make sure you have all that i have on *2* or anything else and then delete everything in the code box and paste this:
Code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim right As Boolean = False
Dim left As Boolean = False
Dim up As Boolean = False
Dim down As Boolean = False
left = GetAsyncKeyState(Keys.Left)
right = GetAsyncKeyState(Keys.Right)
up = GetAsyncKeyState(Keys.Up)
down = GetAsyncKeyState(Keys.Down)
If Right = True And Label1.ForeColor = Color.White Then
Label5.Text = " >>"
Label5.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label1.ForeColor = Color.White Then
Label5.Text = "<<"
Label5.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Blue
Label3.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Blue
Label2.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf right = True And Label2.ForeColor = Color.White Then
Label6.Text = " >>"
Label6.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label2.ForeColor = Color.White Then
Label6.Text = "<<"
Label6.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label2.ForeColor = Color.White Then
Label2.ForeColor = Color.Blue
Label1.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label2.ForeColor = Color.White Then
Label3.ForeColor = Color.White
Label2.ForeColor = Color.Blue
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label3.ForeColor = Color.White Then
Label3.ForeColor = Color.Blue
Label2.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label3.ForeColor = Color.White Then
Label1.ForeColor = Color.White
Label3.ForeColor = Color.Blue
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label3.ForeColor = Color.White Then
Label7.Text = "<<"
Label7.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf right = True And Label3.ForeColor = Color.White Then
Label7.Text = " >>"
Label7.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
End If
End Sub
End Class
If this helped you please click the "THANKS" Button and if it isnt exacly what you need i might be able to help u. If you want ill use the E.Keypress Method.
---------- Post added at 06:18 PM ---------- Previous post was at 06:17 PM ----------
ALL I ADDED WAS A IMAGE.....
---------- Post added at 06:18 PM ---------- Previous post was at 06:18 PM ----------
see that? its there b4 u replied... again can u read?
---------- Post added at 06:19 PM ---------- Previous post was at 06:18 PM ----------
Originally Posted by lucasheer715
Hello i just made a hack menu to explain hotkeys and crap in visual basic . Hope you enjoy. (I use Visual basic 2008)
*1*
You need 8 labels (There will be 3 Hacks)
You need 1 Timer (Interval = 1) (Enabled = True)
You can put lines and stuff too make it look good.
It will look like this
*MUST BE THESE COLORS* *OR CHANGE THE CODE*
Label1 color = white
label2 color = blue
label3 color = blue
label4 color = any
label5,6,7 = red
label8 = cyan
*2*
Do something like this
*3*
Make sure you have all that i have on *2* or anything else and then delete everything in the code box and paste this:
Code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim right As Boolean = False
Dim left As Boolean = False
Dim up As Boolean = False
Dim down As Boolean = False
left = GetAsyncKeyState(Keys.Left)
right = GetAsyncKeyState(Keys.Right)
up = GetAsyncKeyState(Keys.Up)
down = GetAsyncKeyState(Keys.Down)
If Right = True And Label1.ForeColor = Color.White Then
Label5.Text = " >>"
Label5.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label1.ForeColor = Color.White Then
Label5.Text = "<<"
Label5.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Blue
Label3.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Blue
Label2.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf right = True And Label2.ForeColor = Color.White Then
Label6.Text = " >>"
Label6.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label2.ForeColor = Color.White Then
Label6.Text = "<<"
Label6.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label2.ForeColor = Color.White Then
Label2.ForeColor = Color.Blue
Label1.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label2.ForeColor = Color.White Then
Label3.ForeColor = Color.White
Label2.ForeColor = Color.Blue
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label3.ForeColor = Color.White Then
Label3.ForeColor = Color.Blue
Label2.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label3.ForeColor = Color.White Then
Label1.ForeColor = Color.White
Label3.ForeColor = Color.Blue
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label3.ForeColor = Color.White Then
Label7.Text = "<<"
Label7.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf right = True And Label3.ForeColor = Color.White Then
Label7.Text = " >>"
Label7.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
End If
End Sub
End Class
If this helped you please click the "THANKS" Button and if it isnt exacly what you need i might be able to help u. If you want ill use the E.Keypress Method.
Im not raging, but u dont even look.. You cant even read, so ur saying "Its useless." Mabey if you accually see you're reply before you posted "are you sure u didnt change the post cause it says u changed it 4 minuits ago" so read before you say something please.
And why would you say sorry if im a ******?
And why would you say sorry if im a ******?
Iv not actually tested the code but i can tell from reading it, it'l work just fine.
It could do with some optimising but other than that, good job old bean!
It could do with some optimising but other than that, good job old bean!
Originally Posted by Pingo
Iv not actually tested the code but i can tell from reading it, it'l work just fine.
It could do with some optimising but other than that, good job old bean!
It could do with some optimising but other than that, good job old bean!
---------- Post added at 11:28 AM ---------- Previous post was at 11:24 AM ----------
lol no problem. Whats the difference between c++ windows form and vb form? @bandi12
Originally Posted by lucasheer715
Thanks, Though you cant make no recoil in vb, but u can make crosshair's and wallhack's, Well thats what Cosmic told me.
---------- Post added at 11:28 AM ---------- Previous post was at 11:24 AM ----------
lol no problem. Whats the difference between c++ windows form and vb form? @bandi12
---------- Post added at 11:28 AM ---------- Previous post was at 11:24 AM ----------
lol no problem. Whats the difference between c++ windows form and vb form? @bandi12
I just debugged one of the recoil addresses which is dynamic to get the static accessed addy.
Code:
CFNA/ cshell.dll+1E035C - fld dword ptr [edi+00000c38] Accesses reload speed
If it does a check, find a static route without injection.
Either way, i see it happening today.
Originally Posted by lucasheer715
Thanks, Though you cant make no recoil in vb, but u can make crosshair's and wallhack's, Well thats what Cosmic told me.
---------- Post added at 11:28 AM ---------- Previous post was at 11:24 AM ----------
lol no problem. Whats the difference between c++ windows form and vb form? @bandi12
---------- Post added at 11:28 AM ---------- Previous post was at 11:24 AM ----------
lol no problem. Whats the difference between c++ windows form and vb form? @bandi12
and i used C++ bk i inject it so i was able to make hack's
Originally Posted by bandi12
the most of thing's is the same are only some litel coding differences like : VB label.text , C++ label->text
and i used C++ bk i inject it so i was able to make hack's
and i used C++ bk i inject it so i was able to make hack's
back to thread:
Nice theme, but why don't you made this menu labels as object in a class? would be easyer and you better can read your code
Also the Hacks could be done by an xtrap bypass, so there is a way to manipulate the memory entry in crossfire.exe
Originally Posted by lucasheer715
Hello i just made a hack menu to explain hotkeys and crap in visual basic . Hope you enjoy. (I use Visual basic 2008)
*1*
You need 8 labels (There will be 3 Hacks)
You need 1 Timer (Interval = 1) (Enabled = True)
You can put lines and stuff too make it look good.
It will look like this
*MUST BE THESE COLORS* *OR CHANGE THE CODE*
Label1 color = white
label2 color = blue
label3 color = blue
label4 color = any
label5,6,7 = red
label8 = cyan
*2*
Do something like this
*3*
Make sure you have all that i have on *2* or anything else and then delete everything in the code box and paste this:
If this helped you please click the "THANKS" Button and if it isnt exacly what you need i might be able to help u. If you want ill use the E.Keypress Method.
. Hope you enjoy. (I use Visual basic 2008)*1*
You need 8 labels (There will be 3 Hacks)
You need 1 Timer (Interval = 1) (Enabled = True)
You can put lines and stuff too make it look good.
It will look like this
*MUST BE THESE COLORS* *OR CHANGE THE CODE*
Label1 color = white
label2 color = blue
label3 color = blue
label4 color = any
label5,6,7 = red
label8 = cyan
*2*
Do something like this
*3*
Make sure you have all that i have on *2* or anything else and then delete everything in the code box and paste this:
Code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim right As Boolean = False
Dim left As Boolean = False
Dim up As Boolean = False
Dim down As Boolean = False
left = GetAsyncKeyState(Keys.Left)
right = GetAsyncKeyState(Keys.Right)
up = GetAsyncKeyState(Keys.Up)
down = GetAsyncKeyState(Keys.Down)
If Right = True And Label1.ForeColor = Color.White Then
Label5.Text = " >>"
Label5.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label1.ForeColor = Color.White Then
Label5.Text = "<<"
Label5.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Blue
Label3.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Blue
Label2.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf right = True And Label2.ForeColor = Color.White Then
Label6.Text = " >>"
Label6.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label2.ForeColor = Color.White Then
Label6.Text = "<<"
Label6.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label2.ForeColor = Color.White Then
Label2.ForeColor = Color.Blue
Label1.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label2.ForeColor = Color.White Then
Label3.ForeColor = Color.White
Label2.ForeColor = Color.Blue
System.Threading.Thread.Sleep(200)
ElseIf up = True And Label3.ForeColor = Color.White Then
Label3.ForeColor = Color.Blue
Label2.ForeColor = Color.White
System.Threading.Thread.Sleep(200)
ElseIf down = True And Label3.ForeColor = Color.White Then
Label1.ForeColor = Color.White
Label3.ForeColor = Color.Blue
System.Threading.Thread.Sleep(200)
ElseIf left = True And Label3.ForeColor = Color.White Then
Label7.Text = "<<"
Label7.ForeColor = Color.Red
System.Threading.Thread.Sleep(200)
ElseIf right = True And Label3.ForeColor = Color.White Then
Label7.Text = " >>"
Label7.ForeColor = Color.GreenYellow
System.Threading.Thread.Sleep(200)
End If
End Sub
End Class
If this helped you please click the "THANKS" Button and if it isnt exacly what you need i might be able to help u. If you want ill use the E.Keypress Method.
I used this methode to make my menu but i coded in C++ so it was a .dll whit Windows Form but now that snddrv.dll is patched i am using D3D menu
ty nice
Lets leech, Thanks for the TuT 
