Wolftü D3D Gerekli Tüm Kodlar!

  If GetAsyncKeyState(Keys.Down) = -32767 Then
  'Burası Aşağı Kodları
  End İf
  '/////////////////////////////////////////////
   If GetAsyncKeyState(Keys.Up) = -32767 Then
   'Burası Yukarı Kodları
   End İf
   '/////////////////////////////////////////////
   If GetAsyncKeyState(Keys.Right) = -32767 Then
   'Burası Sağ Tık Kodları
   End İf
   '/////////////////////////////////////////////
   If GetAsyncKeyState(Keys.Left) = -32767 Then
   'Burası Sol Tık Kodları
   End İf

'///CSH BUTTON CODE
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next

'//BİN BUTTON CODE
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("wolftü.bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next

 '//Puplıc Class Alt Bölgesi
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

 '///////////////////////////////////////////////////////////////////[/FONT][/SIZE][/CENTER]
[SIZE=4][FONT=verdana][CENTER]        ' İnsert Baş
        On Error Resume Next
        Dim game As Process() = Process.GetProcessesByName("wolftü.bin")
        On Error Resume Next
        If GetAsyncKeyState(Keys.Insert) = -32767 Then
            If d3d.Visible = False Then
                d3d.Visible = True
                SuspendProcess(game(0))
                Me.Show()
                Exit Sub
            End If
            If d3d.Visible = True Then
                d3d.Visible = False
                ResumeProcess(game(0))
                Me.Hide()
                Exit Sub
            End If
        End If
        ' İnsert Son
        '///////////////////////////////////////////////////////////////////

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Module Module1
    Public Enum ThreadAccess As Integer
        TERMINATE = (&H1)
        SUSPEND_RESUME = (&H2)
        GET_CONTEXT = (&H8)
        SET_CONTEXT = (&H10)
        SET_INFORMATION = (&H20)
        QUERY_INFORMATION = (&H40)
        SET_THREAD_TOKEN = (&H80)
        IMPERSONATE = (&H100)
        DIRECT_IMPERSONATION = (&H200)
    End Enum
    Public Declare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccess As ThreadAccess, ByVal bInheritHandle As Boolean, ByVal dwThreadId As UInteger) As IntPtr
    Public Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
    Public Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
    Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean
End Module

  Private Sub SuspendProcess(ByVal process As System.Diagnostics.Process)
        For Each t As ProcessThread In process.Threads
            Dim th As IntPtr
            th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
            If th <> IntPtr.Zero Then
                SuspendThread(th)
                CloseHandle(th)
            End If
        Next
    End Sub


    Private Sub ResumeProcess(ByVal process As System.Diagnostics.Process)
        For Each t As ProcessThread In process.Threads
            Dim th As IntPtr
            th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
            If th <> IntPtr.Zero Then
                ResumeThread(th)
                CloseHandle(th)
            End If
        Next
    End Sub

        Try
            Interaction.AppActivate("wolftü.bin")
            Me.TopMost = True
        Catch
            Me.TopMost = True
        End Try