Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
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("wolftü.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 End Sub
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
