[26.3.2016]wolftü Güncel Pointer [ KODLANMIS HALDE ]

Name Esp-CSH
WriteLong("wolftü.bin", Label1.Text + &H34E950, "2251829620")




Rapid Fire-CSH
WriteLong("wolftü.bin", Label1.Text + &H11CF5B, "1574503796")




No Recoil-CSH




WriteLong("wolftü.bin", Label1.Text + &H860F3, "2665025140")




No Spread-CSH
WriteLong("wolftü.bin", Label1.Text + &H11AF5E, "2257258100")
WriteLong("wolftü.bin", Label1.Text + &H116D73, "2257258100")




Inf Ammo-CSH
WriteLong("wolftü.bin", Label1.Text + &H120420, "2114045827")




Zero Sp-CSH
WriteLong("wolftü.bin", Label1.Text + &H11AF5E, "4724")




No Fall Damage-CSH
WriteLong("wolftü.bin", Label1.Text + &HF5E21, "12616719")




Early Respawn-CSH
WriteLong("wolftü.bin", Label1.Text + &H7CD40, "1574503796")




Anti Chat-CSH
WriteLong("wolftü.bin", Label1.Text + &H66AE24, "0")




Always HS-OBJ
WriteLong("wolftü.bin", Label2.Text + &H71625, "1566441904")




Crosshair-CSH
WriteLong("wolftü.bin", Label1.Text + &H68E728, "100")
WriteLong("wolftü.bin", Label1.Text + &H68E728, "5000")




No-Delay Switch-CSH
WriteLong("wolftü.bin", Label1.Text + &H1173C5, "6951147")




Wallshot-BIN
WriteLong("wolftü.bin", Label1.Text + &H4D361, "5")




Room Effect Blue-CSH
WriteLong("wolftü.bin", Label1.Text + &H4FF73, "1950467318")




Wolf Ability-CSH
WriteLong("wolftü.bin", Label1.Text + &H5531D, "28312949")




Jump x1-CSH
WriteLong("wolftü.bin", Label1.Text + &H3F4154, "1072064102")




Jump Speed-CSH
WriteLong("wolftü.bin", Label1.Text + &HF716E, "25920527")




Respawn Where Died-CSH
WriteLong("wolftü.bin", Label1.Text + &HF2A85, "3897951979")




Teamkill-OBJ
ON: WriteLong("wolftü.bin", Label1.Text + &H56D7E, "418117253")
OFF: WriteLong("wolftü.bin", Label1.Text + &H56D7E, "410318469")




No Gravity-CSH
WriteLong("wolftü.bin", Label1.Text + &HF4BFD, "5")




Inf. Wolf Ball-CSH
WriteLong("wolftü.bin", Label1.Text + &H68EDAC, "1")




Kurt Hack-CSH
WriteLong("wolftü.bin", Label1.Text + &H68ECE8, "sen")




Mod Hack-CSH
WriteLong("wolftü.bin", Label1.Text + &H60ABAC, "sen")




Anti Ahh-CSH
WriteLong("wolftü.bin", Label1.Text + &H181530, "3102510019")




Speed-CSH
WriteLong("wolftü.bin", Label1.Text + &HA8781, "98110580")




CTRL Underground-CSH
WriteLong("wolftü.bin", Label1.Text + &H7639C, "2665032052") 

[CSH]  Inventory Aktif : 262984  Value : 17925391
[CSH]  Slot 1 : 2629CB  Value : Sen Seç
[CSH]  Slot 2 : 262A14  Value : Sen Seç
[CSH]  Slot 3 : 262A49  Value : Sen Seç
[CSH]  Slot 4 : 262A7E  Value : Sen Seç
[CSH]  Tabanca : 261D7F  Value : Sen Seç
[CSH]  Bıçak : YOK YOK YOK YOK
[CSH]  Bomba : 2629D8  Value : Sen Seç 

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

Dim enumerator As IEnumerator
        Dim process As Process = process.GetProcessesByName("wolftü.bin")(0)
        Try
            enumerator = process.Modules.GetEnumerator
            Do While enumerator.MoveNext
                Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
                If (current.FileName.IndexOf("csh") <> -1) Then
                    Me.Label1.Text = current.BaseAddress.ToString
                End If
                If (current.FileName.IndexOf("wolftü.bin") <> -1) Then
                    Me.Label2.Text = current.BaseAddress.ToString
                End If
                If (current.FileName.IndexOf("obj") <> -1) Then
                    Me.Label3.Text = current.BaseAddress.ToString
                End If
            Loop
        Finally
        End Try

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)
                RichTextBox1.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