Vb.net Oto Bypass


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: Koray    1 Yorum    259 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 30.07.2016, 23:09:00 #1
Koray slm nbr .s
******
Süper Moderator
Status: Çevrimdışı Yorum Sayısı:910 Konu Sayısı:300 Üyelik Tarihi:30.04.2016 Rep Puanı: 939

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 & "wolfteam.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("WolfTeam.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 Smile
Son Düzenleme: 31.07.2016, 00:04:10, Düzenleyen: Koray.

Kullanıcı İmzası
                                                              GökTürk olup yumulup (birleşip)
                                                   GökBörü (Bozkurt) olup uluduk 
                                                   Gökyüzü nurlu şule (ışık) olup
                                                   Gök taşa kuydu ılılık  


                                                                                                7AzkyN.jpg
Paylaşım Tarihi: 31.07.2016, 00:01:39 #2
Hihi5961 Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:172 Konu Sayısı:39 Üyelik Tarihi:21.04.2016

Bunu Neredeyse Herkes Biliyor Smile









Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir