No Body Doesn't Better
Seçkin Üye
İlk Olarak VB.net Giriş Yapalım Ardından Bir Form Açalım
Tema vb. Eklemeniz Size Kalmış Öncelikle İstediğiniz Şeyleri Ekleyin.
Kodlama Aşaması
Form1 in üstüne bu kodu yapıştıralım
Sonra 1 Timer Ekleyip İçine Şu Kodu Yapıştıralım
Sonra Timersız CheckBox Kodlarına Gelelim
Bu Kodu CheckBox a Yapıştırıyoruz
Pointer Yok Elimde Veremedim KB.
CSH KODLAMA:
Button Ekliyoruz Ve Birde Label
Bu Kodu Buttona çift Tıklayıp Yazıyoruz.
BİN KODLAMA:
Button Ekliyoruz Ve Birde Label
Bu Kodu Buttona Çift Tıklayıp Yazıyoruz
OBJ KODLAMA:
Button Ekliyoruz Ve Birde Label
Bu Kodu Buttona Çift Tıklayıp Yazıyoruz
Bunlar Labellerin İsmini Değiştirmeyenler İçindir.
Ardından Pointerları Yazınca Hata Verecek Bu Dosyaları CTRL+D ile Ekliyoruz
Sonra Adını Değiştirebilirsiniz Formun Ve İcon Da Ekleyebilirsiniz O Size Kalmıştır.
İyi Akşamlar Bi Eksiğim Varsa Yorum Atarak Söyleyebilirsiniz Arkadaşlar İyi Günler.
Tema vb. Eklemeniz Size Kalmış Öncelikle İstediğiniz Şeyleri Ekleyin.
Kodlama Aşaması
Form1 in üstüne bu kodu yapıştıralım
PHP:
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
PHP:
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
Timer1.Enabled = True
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 TryBu Kodu CheckBox a Yapıştırıyoruz
PHP:
If CheckBox1.Checked = True Then
ON POİNTER BURAYA
End If
If CheckBox1.Checked = False Then
OFF POİNTER BURAYA
End IfCSH KODLAMA:
Button Ekliyoruz Ve Birde Label
Bu Kodu Buttona çift Tıklayıp Yazıyoruz.
PHP:
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
NextButton Ekliyoruz Ve Birde Label
Bu Kodu Buttona Çift Tıklayıp Yazıyoruz
PHP:
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("wolftü.bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
NextButton Ekliyoruz Ve Birde Label
Bu Kodu Buttona Çift Tıklayıp Yazıyoruz
PHP:
Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In s.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
label3.Text = moz.BaseAddress.ToString
End If
NextArdından Pointerları Yazınca Hata Verecek Bu Dosyaları CTRL+D ile Ekliyoruz
Bağlantıları görmek için lütfen
Giriş Yap
Bağlantıları görmek için lütfen
Giriş Yap
Sonra Adını Değiştirebilirsiniz Formun Ve İcon Da Ekleyebilirsiniz O Size Kalmıştır.
İyi Akşamlar Bi Eksiğim Varsa Yorum Atarak Söyleyebilirsiniz Arkadaşlar İyi Günler.
)
