VB CF Hack??

yeah, i know vb.net but i wanna learn to hack.

For some games you can .. by writing memory but cf detect it

.NET has a lot of potential, but lower level languages exist for a reason. Give them some use.

PushToConsole is only useable with a c++ reference(not sure, didn't try yet). VB.Net does not support ASM.

However, VB.Net does support writing/reading memory.

Code for D3D Menu you must add 10Labels label 2, 4, 6, 8, 10 Name OFF

and timer 1, 3, 5, 7, 9 can you give the name what you want!

name the timer1 = showhide , Enabled = ture, interval = 100 // the timer2 = D3moving ,Enabled = ture, interval = 100


Public Class Form1
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short ' Declare hotkeys
Private Property result() As Short

Private labelChangecolor As Color
Private labelnormalcolor As Color

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TopMost = True

labelChangecolor = Color.DarkRed
labelnormalcolor = Color.LimeGreen

Label1.ForeColor = labelChangecolor
Label2.ForeColor = labelnormalcolor
Label3.ForeColor = labelnormalcolor
Label4.ForeColor = labelnormalcolor
Label5.ForeColor = labelnormalcolor
Label6.ForeColor = labelnormalcolor
Label7.ForeColor = labelnormalcolor
Label8.ForeColor = labelnormalcolor
Label9.ForeColor = labelnormalcolor
Label10.ForeColor = labelnormalcolor

End Sub

Private Sub showhide_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles showhide.Tick
For i = 6 To 255


result = 0
result = GetAsyncKeyState(i)

If GetAsyncKeyState(Keys.Insert) Then
If Label1.Visible = False Then
Me.Show()
Exit Sub
End If
If Label1.Visible = True Then
Me.Hide()
Exit Sub
End If
End If

If GetAsyncKeyState(Keys.Delete) Then
Application.Exit()
End If
Next i
End Sub

Private Sub D3moving_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D3moving.Tick
For i = 6 To 255


result = 0
result = GetAsyncKeyState(i)

' =====================================DOWN========= ====================================
If GetAsyncKeyState(Keys.Down) Then
If Label1.ForeColor = labelChangecolor Then
Label1.ForeColor = labelnormalcolor
Label3.ForeColor = labelChangecolor
Exit Sub
End If
If Label3.ForeColor = labelChangecolor Then
Label3.ForeColor = labelnormalcolor
Label5.ForeColor = labelChangecolor
Exit Sub
End If
If Label5.ForeColor = labelChangecolor Then
Label5.ForeColor = labelnormalcolor
Label7.ForeColor = labelChangecolor
Exit Sub
End If
If Label7.ForeColor = labelChangecolor Then
Label7.ForeColor = labelnormalcolor
Label9.ForeColor = labelChangecolor
Exit Sub
End If
If Label9.ForeColor = labelChangecolor Then
Label9.ForeColor = labelnormalcolor
Label1.ForeColor = labelChangecolor
Exit Sub
End If
End If
' =====================================UP=========== ==================================

If GetAsyncKeyState(Keys.Up) Then
If Label1.ForeColor = labelChangecolor Then
Label1.ForeColor = labelnormalcolor
Label9.ForeColor = labelChangecolor
Exit Sub
End If
If Label3.ForeColor = labelChangecolor Then
Label3.ForeColor = labelnormalcolor
Label1.ForeColor = labelChangecolor
Exit Sub
End If
If Label5.ForeColor = labelChangecolor Then
Label5.ForeColor = labelnormalcolor
Label3.ForeColor = labelChangecolor
Exit Sub
End If
If Label7.ForeColor = labelChangecolor Then
Label7.ForeColor = labelnormalcolor
Label5.ForeColor = labelChangecolor
Exit Sub
End If
If Label9.ForeColor = labelChangecolor Then
Label9.ForeColor = labelnormalcolor
Label7.ForeColor = labelChangecolor
Exit Sub
End If
End If

' =====================================ON=========== ==================================
If GetAsyncKeyState(Keys.Right) Then ' for ON
If Label1.ForeColor = labelChangecolor Then
Label2.ForeColor = labelChangecolor
Label2.Text = "ON"






Exit Sub
End If
If Label3.ForeColor = labelChangecolor Then
Label4.ForeColor = labelChangecolor
Label4.Text = "ON"


Exit Sub
End If
If Label5.ForeColor = labelChangecolor Then
Label6.ForeColor = labelChangecolor
Label6.Text = "ON"
' hack or function
Exit Sub
End If
If Label7.ForeColor = labelChangecolor Then
Label8.ForeColor = labelChangecolor
Label8.Text = "ON"





Exit Sub
End If
If Label9.ForeColor = labelChangecolor Then
Label10.ForeColor = labelChangecolor
Label10.Text = "ON"
' hack or function
Exit Sub
End If

End If

' =====================================OFF========== ===================================

If GetAsyncKeyState(Keys.Left) Then ' for OFF
If Label1.ForeColor = labelChangecolor Then
Label2.ForeColor = labelnormalcolor
Label2.Text = "OFF"


Exit Sub
End If
If Label3.ForeColor = labelChangecolor Then
Label4.ForeColor = labelnormalcolor
Label4.Text = "OFF"



Exit Sub
End If
If Label5.ForeColor = labelChangecolor Then
Label6.ForeColor = labelnormalcolor
Label6.Text = "OFF"
' hack or function
Exit Sub
End If
If Label7.ForeColor = labelChangecolor Then
Label8.ForeColor = labelnormalcolor
Label8.Text = "OFF"


Exit Sub
End If
If Label9.ForeColor = labelChangecolor Then
Label10.ForeColor = labelnormalcolor
Label10.Text = "OFF"
' hack or function
Exit Sub
End If

End If
Next i
End Sub
End Class

Thats not related with his question..
Thats not "HACK"

I can i have make and i have

I will not flame you but i want so mutch..

D3D Menu w/o DirectX Reference and just changing label colors? Proper Menu I'd say.

go and test the code for the menu!

Are you trying to troll me or are just completely mind-absent?