Kodlama Yardım

Arkadaşlar Ben Tam Olarak Herşeyi kodladım . Hilemde Hızı Filem Güncel Pointer objli oyuna giriyor hazır çekip başlıyom name espyi  işaretliyom sonra hile olmuyor ve oyundan atıyor yardım

TMM KARDES TEAMWİWER VARMI

YOKSA ÖZEL MESAJ AT YAPAM

FrankenStein' Alıntı:

TMM KARDES TEAMWİWER VARMI

YOKSA ÖZEL MESAJ AT YAPAM

Genişletmek için tıklayın ...

Bir şey sorcam csh bin var hilede ona baypass gereklimi 
varsa sende baypass kodu versene

tw gel yapalım bnde kolıom hile

FrankenStein' Alıntı:

tw gel yapalım bnde kolıom hile

Genişletmek için tıklayın ...

Varsa Versene sadece o kaldı klan wslik hile filem  baypass kod

BYPASS KONUMDA VAR GİR AL

FORM 1 LOAD YAZAN YERE KOPLAYA BU KODU :

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)
TextBox7.Text = ("Erişim Engellendi ")
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 = 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
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("bin") <> -1 Then
bin.Text = moz.BaseAddress.ToString
End If
Next

HATALAR OLCAKTIR SONRA EN ÜST KISMA GEL BUTUN YAZILARIN USTUNE!!


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


BU KODU GIRDINMI HATALAR DÜZENLENIR! YARDMCI OLDUYSAM NE MUTLU BANA

FrankenStein' Alıntı:

BYPASS KONUMDA VAR GİR AL

Genişletmek için tıklayın ...

kardeş ben objli hile kodladım
odada açtım hata verdi neden yardım edermisin