Vb.net Oto Bypass


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

Yazar: Koray    1 Yorum    353 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 30.07.2016, 23:09:00 #1
Koray slm nbr .s
Ultra Üye
Status: Çevrimdışı Yorumları:905 Konuları:300 Kayıt Tarihi:30.04.2016 Rep Puanı: 942

Merhaba arkadaşlar bugün vb.net de hilemize nasıl oto bypass ekleriz onu göstericem.

Yazı
Form1'e gelecek kod:

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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:
1
2
3
4
5
6
7
8
9
10
11
12
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ışı Yorumları:170 Konuları:39 Kayıt Tarihi:21.04.2016

Bunu Neredeyse Herkes Biliyor Smile










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

Konuyu Okuyanlar:
1 Ziyaretçi