GetKeyPress wont work, help plz

Hexui Undetected CSGO Cheats Sinkicheat PUBG Cheat

emilo0212

Newbie
Silenced
Aug 19, 2013
25
234
0
Hello, i think some of you know me, idrc (i dont really care) what i am having trouble with "Moving around with keys, and turning on/off" with my trainer i've worked with in about 2weeks now.

Here you have the part of "moving around" code:





Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

If GetKeyPress(Keys.Insert) Then 'Show the menu if Insert pressed & menu not visible
If Me.Visible = True Then
Me.Visible = False
Timer1.Stop()
Exit Sub
End If
If Me.Visible = False Then 'Hide the menu if Insert pressed & menu visible
Me.Visible = True
Timer1.Start()
Exit Sub
End If
End If


If GetKeyPress(Keys.Delete) Then 'Kill the menu
Me.Close()
End If



'///////////////DOWN NAVIGATE///////////////////


If GetKeyPress(Keys.Down) Then
If Label3.ForeColor = Color.DeepSkyBlue Then
Label3.ForeColor = Color.White
If Label7.Text = "[OFF]" Then
Label7.ForeColor = Color.Red
Else
Label7.ForeColor = Color.LimeGreen
End If




Label4.ForeColor = Color.DeepSkyBlue
Label8.ForeColor = Color.DeepSkyBlue
Exit Sub
End If


If Label4.ForeColor = Color.DeepSkyBlue Then
Label4.ForeColor = Color.White
If Label8.Text = "[OFF]" Then Label8.ForeColor = Color.Red
If Label8.Text = "[ON]" Then Label8.ForeColor = Color.LimeGreen
Label5.ForeColor = Color.DeepSkyBlue
Label9.ForeColor = Color.DeepSkyBlue
Exit Sub
End If


If Label5.ForeColor = Color.DeepSkyBlue Then
Label5.ForeColor = Color.White
If Label9.Text = "[OFF]" Then Label9.ForeColor = Color.Red
If Label9.Text = "[ON]" Then Label9.ForeColor = Color.LimeGreen
Label3.ForeColor = Color.DeepSkyBlue
Label7.ForeColor = Color.DeepSkyBlue

Exit Sub
End If
End If


'///////////////UP NAVIGATE///////////////////


If GetKeyPress(Keys.Up) Then


If Label3.ForeColor = Color.DeepSkyBlue Then
Label3.ForeColor = Color.White
If Label7.Text = "[OFF]" Then Label7.ForeColor = Color.Red
If Label7.Text = "[ON]" Then Label7.ForeColor = Color.LimeGreen
Label5.ForeColor = Color.DeepSkyBlue
Label9.ForeColor = Color.DeepSkyBlue
Exit Sub
End If



If Label4.ForeColor = Color.DeepSkyBlue Then
Label4.ForeColor = Color.White
If Label8.Text = "[OFF]" Then Label8.ForeColor = Color.Red
If Label8.Text = "[ON]" Then Label8.ForeColor = Color.LimeGreen
Label3.ForeColor = Color.DeepSkyBlue
Label7.ForeColor = Color.DeepSkyBlue
Exit Sub
End If


If Label5.ForeColor = Color.DeepSkyBlue Then
Label5.ForeColor = Color.White
If Label9.Text = "[OFF]" Then Label9.ForeColor = Color.Red
If Label9.Text = "[ON]" Then Label9.ForeColor = Color.LimeGreen
Label4.ForeColor = Color.DeepSkyBlue
Label8.ForeColor = Color.DeepSkyBlue
Exit Sub
End If
End If


End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub D3D_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Hide()
Label3.ForeColor = Color.DeepSkyBlue
Label7.ForeColor = Color.DeepSkyBlue
Try
Interaction.AppActivate("hl2")
Me.TopMost = True
Catch
Me.TopMost = True
End Try
Timer2.Start()
Timer3.Start()
End Sub

End Class
 
Last edited:

Cryslacks

<>>>
Dank Tier Donator
Nobleman
Dec 10, 2013
132
1,198
8
First of all use [C++] around your code so it doesnt take up a kilometer of the thread.
 

Rake

Cesspool Admin
Administrator
Jan 21, 2014
12,073
78,998
2,371
Are you trying to make D3D Hack In VB???!?!
if you continue to necro these shit threads I will be forced to lock all the old threads, which I don't want to do. Of course I could just lock your account instead, that would be much easier
 
Attention! Before you post:

Read the How to Ask Questions Guide
99% of questions are answered in the Beginner's Guide, do it before asking a question.

No Hack Requests. Post in the correct section.  Search the forum first. Read the rules.

How to make a good post:

  • Fill out the form correctly
  • Tell us the game name & coding language
  • Post everything we need to know to help you
  • Ask specific questions, be descriptive
  • Post errors, line numbers & screenshots
  • Post code snippets using code tags
  • If it's a large project, zip it up and attach it

If you do not comply, your post may be deleted.  We want to help, please make a good post and we will do our best to help you.

Community Mods