VB.NET D3D Menü Yapımı

Merhaba Arkadaşlar



D3D Menü yapımı ;

4 Adet Label
2 Adet Timer

Şimdi gelelim D3D menü 'ye

Timer1 ve Timer2 'yi enabled = true yapın.
Label1 ve Label2 'nin adlarını siz yapın.
Örnek: Wall Hack / Weapon Hack
Label3 ve Label4 'ün adlarını: [OFF] yapın.

Menü neden çalışmıyor ?:
Label1 'in rengini:Orange
Label2 'in rengini:White
Label3 ve Label4 'ün rengini:Red
Programın arka plan rengini:Black

Şimdi'de D3D Menü Kodları ;

Kod: (Tümünü Seç)

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            Interaction.AppActivate("Wolfteam.bin")
            Me.TopMost = True
        Catch
            Me.TopMost = True
        End Try
            System.Windows.Forms.Cursor.Hide()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.Down) = -32767 Then


            If Label1.ForeColor = Color.Orange Then
                Label1.ForeColor = Color.White
                Label2.ForeColor = Color.Orange
                Exit Sub
            End If
            If Label2.ForeColor = Color.Orange Then
                Label2.ForeColor = Color.Orange