Wolfteam D3D Kodlar...
 
Paylaş:
Bildirimler

Wolfteam D3D Kodları  

  RSS
Alper
(@alper)
Seçkin Üye
 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
Alıntı
Gönderildi : 10 Aralık 2016 19:52
mert19ssan
(@mert19ssan)
Yeni Üye

nasıl yapılıyo lütfen video çek

CevapAlıntı
Gönderildi : 8 Nisan 2018 00:34
Paylaş: