VB Hack Menu Tutorial

Posts 1–15 of 21 · Page 1 of 2

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.

Originally Posted by lucasheer715

Hello i just made a hack menu to explain hotkeys and crap in visual basic

*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.

But this does absolutely nothing. And it wouldnt work in game anyways...

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?

Oh sorry. Still does nothing :/

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.

Aww, edits HIS comment.

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 ******?

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!

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!

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

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

I think it is possible to make no recoil in vb.
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 xtrap doesnt have an integrity check, which im not sure of yet, alittle code injection will do the trick.
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

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

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

huh?! I am very sure that you don't know how to code anything without c&p any leeched crap!? (everyone who read the two posts made by you would think like me!)

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

*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