[ VB.NET ] D3D Tıklana Bilir Menü Yapma Bana Ait

[CreativENG]

NOT : Bu Yöntem Bana Ait Kesinlikle Alıntı Değil. Yeni Buldum
Oyunu Durdurmadan Checkbox Tıklaya Bilirsiniz

Öncelikle 1 Modül Oluşturalım.
Şu Kodları İçine Yapıştırın.

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

Formda Kodlama Bölümüne 1 Boşluk Şu Kodları Yerleştirin.

  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

Form Load Eklencek Kod

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

Not Asıl İş Burda Başlıyo

Timer1 Ekleyin Şu Kodları Koyun Daha Bitmedi

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()
               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

Şimdi Gelelim En Önemli Yere iyi bakın
check box eklenecek kod

 If CheckBox1.Checked = True Then
SuspendProcess(game(0)) 'Bu Kodu Her Özelikte Kulanın Her. Silmeyin
'Hile Pointer ON Buraya İstediğin Hile Özeliği
ResumeProcess(game(0)) ' Bu Kodu Her Özelikte Kulanın Her. Silmeyin
        ElsE
SuspendProcess(game(0))'Bu Kodu Her Özelikte Kulanın Her. Silmeyin
Hile Pointer OFF Buraya İsteğiniz Hile Özeliği
ResumeProcess(game(0))'Bu Kodu Her Özelikte Kulanın Her. Silmeyin
        End If

Şimdide Form Load Şunu Ekleyin

SuspendProcess(game(0))
ResumeProcess(game(0))

NOT : Bu Kodlamada Ben Değişiklik Yaptım
Mantıkğı: Checkbox'a tıkladığında oyunu durdurup hileyi açacak sonra oyunu devam etircek

Yöneticiler Eğer Bir Yanlışlık Yaptıysan Özürdilerim Susped Değişiklik Yapttım paylaşam dedim

 

[CreativENG]

Kaçırmak İstemeyenler Gelsin

 

[W-Track]

proje paylaşsan daha iyi?

 

[ByPsychopath]

Bu Mantıkda Alttaki Görev Çubugunu Gösteriyormu Veya Hiç Oyunu Alta ALıyormu ?

 

[WoLLeG]

Kardeş video çekersen daha iyi olur

 

[FeyzoPashaTR]

Anlayanlar Icin Bulunmaz Bir Nimet Tesekkurler

 

[swanpol]

Bissürü d3d konuları vardı googlede nedense buraya geldim

 

[MİRB3Y]

Abi Video Ekleseydin Keşke Olsun Yine Yararlı Konu

 

[Memorydefacer]

Teşekkürler

 

[SametCanaz]

Alıntı EDİT!!!

 

[çağrı414]

Alıntı EDİT!!!

NOT : Bu Yöntem Bana Ait Kesinlikle Alıntı Değil. Yeni Buldum Zaten adam belirtmiş

 

[Kenshiro]

kardeşim yalan atmasan daha iyi olur bunun neresi alıntı değil şimdi *** bildiğimiz oyunu durdurma kodları var içinde tek farkı checkbox'a tıklarken duruyor sonra tekrar başlatıyor yani alıntı değil deme şuna.