VB.Net D3D Kodlama (Tıklanabilir)

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

       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