Vb.net Oto Bypass

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Nothing.
Süper Üye
Katılım
30 Nis 2016
Mesajlar
957
Tepki puanı
37
10 HİZMET YILI
Merhaba arkadaşlar bugün vb.net de hilemize nasıl oto bypass ekleriz onu göstericem.

:yazı:
Form1'e gelecek kod:
Kod:
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)
                TextBox1.Text = ("Hile Çalışıyor ! ")
            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

Public clasın üstüne gelecek kod:
Kod:
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

:video:


:not:
Textbox eklemeyi unutmayınız.Textboxu yana çekebilirsiniz göstermemek için.

REP VERMEYİ UNUTMAYIN :)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst