VB.Net D3D Tıklama Kodu..

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 

 On Error Resume Next
Dim game As Process() = Process.GetProcessesByName("wolftü.bin")
       On Error Resume Next
       If GetAsyncKeyState(Keys.Insert) = -32767 Then
           If Label1.Visible = False Then
               Label1.Visible = True
               Me.Show()

               SuspendProcess(game(0))

               Exit Sub
           End If
           If Label1.Visible = True Then
               Label1.Visible = False
               Me.Hide()
               ResumeProcess(game(0))

               Exit Sub
           End If
       End If
       If GetAsyncKeyState(Keys.Delete) = -32767 Then
           Application.Exit()
           Exit Sub
       End If