Üye
Selamün Aleyküm Arkadaşlar
Vb.net İle Bambaşka Hiçbiryerde Görülmemiş
Bir Envanter Hack Kodlaması Göstericem ve Hiç Bir Sıkıntı Olmadan Kullanabilceksiniz 
Malzemeler
6 Adet Label
3 Adet CheckBox
4 Adet Buton
6 Adet Timer
Timer=1,2,3 = Enabled True , İnvertal 5
Malzeme Kullanımı
Kod:
Timer 1 Kodu
------------------------------Timer'e bu kod gelecek---------------------------------
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 & "\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
If My.Computer.FileSystem.FileExists((folderPath & "\xigncode")) Then
End If
FileSystem.FileOpen(1, (folderPath & "\xigncode"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
Catch ex As Exception
End Try
---------------------------------Publıc Class Form1 üstüne kodlanacak----------------------------------
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.Threading
Imports System.Windows.Forms
Imports System.Environment
Kod:
Timer2 Kodu
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
Label1.Text = moz.BaseAddress.ToString
End If
If moz.FileName.IndexOf("bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next
Kod:
Timer3 Kodu
'Envanter Aktif
WriteLong("wolftü.bin", Label1.Text + &H2857C4, "17925391")
Kod:
Timer4 Kodu
'Anti AHH
ReadWritingMemory.WriteLong("wolftü.bin", CInt(Math.Round(CDbl((Conversions.ToDouble(Me.Label1.Text) + 1491600)))), Conversions.ToLong("3102510019"), 4)
Kod:
Timer5 Kodu
'Aim Bot
Trainer.WritePointerInteger("wolftü.bin", CInt(Math.Round(CDbl((Conversions.ToDouble(Me.Label2.Text) + 2671772)))), Conversions.ToInteger("1"), New Integer() {20, &H120, &H464})
Kod:
CheckBox 1 Kodu
If CheckBox1.Checked = True Then
Timer3.Start()
End If
If CheckBox1.Checked = False Then
Timer3.Stop()
End If
Kod:
CheckBox 2 Kodu
If CheckBox2.Checked = True Then
Timer4.Start()
End If
If CheckBox2.Checked = False Then
Timer4.Stop()
End If
Kod:
If CheckBox3.Checked = True Then
Timer5.Start()
End If
If CheckBox3.Checked = False Then
Timer5.Stop()
End If
Kod:
Buton 1 Kodu
ReadWritingMemory.WriteLong("wolftü.bin", CInt(Math.Round(CDbl((Conversions.ToDouble(Me.Label1.Text) + 2643979)))), Conversions.ToLong(Me.TextBox1.Text), 4)
'Slot1
Kod:
Buton 2 Kodu
ReadWritingMemory.WriteLong("wolftü.bin", CInt(Math.Round(CDbl((Conversions.ToDouble(Me.Label1.Text) + 2644052)))), Conversions.ToLong(Me.TextBox2.Text), 4)
'Slot2
Kod:
Buton 3 Kodu
ReadWritingMemory.WriteLong("wolftü.bin", CInt(Math.Round(CDbl((Conversions.ToDouble(Me.Label1.Text) + 2644105)))), Conversions.ToLong(Me.TextBox3.Text), 4)
'Slot 3
Kod:
Buton 4 Kodu
ReadWritingMemory.WriteLong("wolftü.bin", CInt(Math.Round(CDbl((Conversions.ToDouble(Me.Label1.Text) + 2644158)))), Conversions.ToLong(Me.TextBox4.Text), 4)
'Slot 4
