D3D Menü Hata ?[ÇÖZÜLDÜ]

Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms
Imports System.Environment
Public Class Form1
    '//Puplıc Class Alt Bölgesi
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Sub form1_load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Location = New Point(15, 10) 'Bu Başlangıc Noktası
        '///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
                csh.Text = moz.BaseAddress.ToString
            End If
        Next

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

    End Sub

    Private Sub FrostTheme1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Bypass_Tick(sender As Object, e As EventArgs) Handles Bypass.Tick
        Try
            Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)
            FileSystem.FileClose(New Integer() {1})
            FileSystem.FileClose(New Integer() {2})
            If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then
                FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
            Else
                File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})
                FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
            End If
            If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\xhunter1.sys")) Then
                FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
            Else
                File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})
                FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
            End If
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim ex As Exception = exception1
            ProjectData.SetProjectError(ex)
            Dim exception As Exception = ex
            ProjectData.ClearProjectError()
            ProjectData.ClearProjectError()
        End Try
        Dim p As Process()
        p = Process.GetProcessesByName("wolftü.bin") 'set wolftü process
        If p.Count = 1 Then ' if wolftü process detected
        End If
    End Sub
    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

    Private Sub İNSERT_Tick(sender As Object, e As EventArgs) Handles İNSERT.Tick
        '///////////////////////////////////////////////////////////////////
        ' İ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
        '///////////////////////////////////////////////////////////////////
    End Sub

    Private Sub RHYUKARIDAKAL_Tick(sender As Object, e As EventArgs) Handles RHYUKARIDAKAL.Tick
        Try
            Interaction.AppActivate("wolftü.bin")
            Me.TopMost = True
        Catch
            Me.TopMost = True
        End Try
    End Sub

    Private Sub AYSS_Tick(sender As Object, e As EventArgs) Handles AYSS.Tick
        'Asagı Kodları
        If GetAsyncKeyState(Keys.Down) = -32767 Then
            If Label1.ForeColor = Color.LightSeaGreen Then
                Label1.ForeColor = Color.White
                Label2.ForeColor = Color.LightSeaGreen
                Exit Sub
            End If
            If Label2.ForeColor = Color.LightSeaGreen Then
                Label2.ForeColor = Color.White
                Label3.ForeColor = Color.LightSeaGreen
                Exit Sub
            End If
            If Label3.ForeColor = Color.LightSeaGreen Then
                Label3.ForeColor = Color.White
                Label4.ForeColor = Color.LightSeaGreen
                Exit Sub
            End If
            If Label4.ForeColor = Color.LightSeaGreen Then
                Label4.ForeColor = Color.White
                Label5.ForeColor = Color.LightSeaGreen
                Exit Sub
            End If
            If Label5.ForeColor = Color.LightSeaGreen Then
                Label5.ForeColor = Color.White
                Label6.ForeColor = Color.LightSeaGreen
                Exit Sub
            End If
        End If
        'Yukarı Kodları
        If GetAsyncKeyState(Keys.Up) = -32767 Then
            If Label6.ForeColor = Color.LightSeaGreen Then
                Label6.ForeColor = Color.White
                Label5.ForeColor = Color.LightSeaGreen
                Exit Sub
            End If
            If Label5.ForeColor = Color.LightSeaGreen Then
                Label5.ForeColor = Color.White
                Label4.ForeColor = Color.LightSeaGreen
                Exit Sub
            End If
            If Label4.ForeColor = Color.LightSeaGreen Then
                Label4.ForeColor = Color.White
                Label3.ForeColor = Color.LightSeaGreen
                Exit Sub
            End If
            If Label3.ForeColor = Color.LightSeaGreen Then
                Label3.ForeColor = Color.White
                Label2.ForeColor = Color.LightSeaGreen
                Exit Sub
            End If
            If Label2.ForeColor = Color.LightSeaGreen Then
                Label2.ForeColor = Color.White
                Label1.ForeColor = Color.LightSeaGreen
                Exit Sub
            End If
        End If
        'Sag Tık Kodları
        If GetAsyncKeyState(Keys.Right) = -32767 Then
            If Label1.ForeColor = Color.LightSeaGreen Then
                Label7.Text = "[ON]"
                Label7.ForeColor = Color.SpringGreen
                WriteLong("wolftü.bin", Label1.Text + &H380CB4, "2268606836") 'Name Esp On
            End If
            If Label2.ForeColor = Color.LightSeaGreen Then
                Label8.Text = "[ON]"
                Label8.ForeColor = Color.SpringGreen
                WriteLong("wolftü.bin", Label1.Text + &H13E6D4, "2114045827") 'İnfinte Ammo On
            End If
            If Label3.ForeColor = Color.LightSeaGreen Then
                Label9.Text = "[ON]"
                Label9.ForeColor = Color.SpringGreen
                WriteLong("wolftü.bin", Label1.Text + &H840F3, "2665025140") ' No Recoil On
            End If
            If Label4.ForeColor = Color.LightSeaGreen Then
                Label10.Text = "[ON]"
                Label10.ForeColor = Color.SpringGreen
                WriteLong("wolftü.bin", Label1.Text + &H13731E, "2257258100") 'No Reload On
            End If
            If Label5.ForeColor = Color.LightGreen Then
                Label11.Text = "[ON]"
                Label11.ForeColor = Color.SpringGreen
                WriteLong("wolftü.bin", Label1.Text + &H151DA3, "1301090420") 'No Spread On
            End If
            If Label6.ForeColor = Color.LightGreen Then
                Label12.Text = "[ON]"
                Label12.ForeColor = Color.SpringGreen
                WriteLong("wolftü.bin", Label1.Text + &H138EAB, "1574503796") 'Rapid Fire On
            End If
        End If
        'Sol Tık Kodları
        If GetAsyncKeyState(Keys.Left) = -32767 Then
            If Label1.ForeColor = Color.LightGreen Then
                Label7.Text = "[OFF]"
                Label7.ForeColor = Color.Red
                WriteLong("wolftü.bin", Label1.Text + &H380CB4, "2268606837") 'Name Esp Off
            End If
            If Label2.ForeColor = Color.LightGreen Then
                Label8.Text = "[OFF]"
                Label8.ForeColor = Color.Red
                WriteLong("wolftü.bin", Label1.Text + &H13E6D4, "2126546278") 'İnfinte Ammo Off
            End If
            If Label3.ForeColor = Color.LightGreen Then
                Label9.Text = "[OFF]"
                Label9.ForeColor = Color.Red
                WriteLong("wolftü.bin", Label1.Text + &H840F3, "2665025141") 'No Recoil Off
            End If
            If Label4.ForeColor = Color.LightGreen Then
                Label10.Text = "[OFF]"
                Label10.ForeColor = Color.Red
                WriteLong("wolftü.bin", Label1.Text + &H13731E, "2257258101") 'No Reload Off
            End If
            If Label5.ForeColor = Color.LightGreen Then
                Label11.Text = "[OFF]"
                Label11.ForeColor = Color.Red
                WriteLong("wolftü.bin", Label1.Text + &H151DA3, "1301090421") 'No Spread Off
            End If
            If Label6.ForeColor = Color.LightGreen Then
                Label12.Text = "[OFF]"
                Label12.ForeColor = Color.Red
                WriteLong("wolftü.bin", Label1.Text + &H138EAB, "1574503797") 'Rapid Fire Off
            End If
        End If
    End Sub
End Class