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 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 Exit Sub End If End If If GetAsyncKeyState(Keys.Up) = -32767 Then If Label2.ForeColor = Color.Orange Then Label2.ForeColor = Color.White Label1.ForeColor = Color.Orange Exit Sub End If If Label1.ForeColor = Color.Orange Then Label1.ForeColor = Color.Orange End If End If If GetAsyncKeyState(Keys.Insert) = -32767 Then If Label1.Visible = False Then Label1.Visible = True Me.Show() Exit Sub End If If Label1.Visible = True Then Label1.Visible = False Me.Hide() Exit Sub End If End If If GetAsyncKeyState(Keys.Delete) = -32767 Then Application.Exit() Exit Sub End If Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick If GetAsyncKeyState(Keys.Right) = -32767 Then If Label1.ForeColor = Color.Orange Then Label3.ForeColor = Color.White Label3.Text = "[ON]" Exit Sub End If If Label2.ForeColor = Color.Orange Then Label4.ForeColor = Color.White Label4.Text = "[ON]" Exit Sub End If End If If GetAsyncKeyState(Keys.Left) = -32767 Then If Label1.ForeColor = Color.Orange Then Label3.ForeColor = Color.Red Label3.Text = "[OFF]" Exit Sub End If If Label2.ForeColor = Color.Orange Then Label4.ForeColor = Color.Red Label4.Text = "[OFF]" Exit Sub End If If GetAsyncKeyState(Keys.Left) = -32767 Then If Label5.ForeColor = Color.Orange Then Label6.ForeColor = Color.Red Label6.Text = "[OFF]" Exit Sub End If End If End If
Konuyu başlatan Gönderildi : 10 Aralık 2016 19:52
nasıl yapılıyo lütfen video çek
Gönderildi : 8 Nisan 2018 00:34