Bypass Programı Yapma


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

Yazar: ILoveMH    3 Yorum    598 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 26.06.2016, 15:52:55 #1
ILoveMH Ağabey
Onaylı Uye
Status: Çevrimdışı Yorumları:160 Konuları:25 Kayıt Tarihi:03.04.2016 Rep Puanı: 3

Lazım Olanlar : Bir Adet Buton
İlk Önce Public Class Form1 'in Üstüne Şu Kodu Gireceğiz :

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
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

Sonra Butona Bu Kodu Gireceğiz :

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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
            Me.Hide()
        End Try
    End Sub

Bu Kadar Artık Sizinde Bir Bypass Programınız Var Smile Msgbox'a istediğiniz şeyi girebilirsniz

Son Düzenleme: 01.07.2016, 19:28:53, Düzenleyen: ILoveMH.

Kullanıcı İmzası
Şunu unutmayın ki, sizler unutamadıklarınızın çoktan unuttuklarısınız!

Resim http://i.hizliresim.com/d0B0a7.gif
Resim http://i.hizliresim.com/Y4vaD6.jpg
                                                    CANDIR, GERİSİ HEYECAN

Paylaşım Tarihi: 26.06.2016, 16:13:16 #2
mehmetalp35 Çömez
Kayıtlı Üye
Status: Çevrimdışı Yorumları:3 Konuları:0 Kayıt Tarihi:20.06.2016 Rep Puanı: 0

her oyuna yapabilirmiyiz bunu

Paylaşım Tarihi: 26.06.2016, 16:50:28 #3
ILoveMH Ağabey
Onaylı Uye
Status: Çevrimdışı Yorumları:160 Konuları:25 Kayıt Tarihi:03.04.2016 Rep Puanı: 3

Tabikide Hayır Sadece Wolftü'de Geçerlidir
Son Düzenleme: 27.06.2016, 22:16:51, Düzenleyen: ILoveMH.

Kullanıcı İmzası
Şunu unutmayın ki, sizler unutamadıklarınızın çoktan unuttuklarısınız!

Resim http://i.hizliresim.com/d0B0a7.gif
Resim http://i.hizliresim.com/Y4vaD6.jpg
                                                    CANDIR, GERİSİ HEYECAN

Paylaşım Tarihi: 24.08.2016, 22:11:54 #4
omera0 Çömez
Kayıtlı Üye
Status: Çevrimdışı Yorumları:2 Konuları:0 Kayıt Tarihi:20.08.2016 Rep Puanı: 0

ben baska oyunda yapmak ıstersem neyını degıstırmem gerek










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

Konuyu Okuyanlar:
1 Ziyaretçi