Bypass Programı Yapma


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

Yazar: ILoveMH    3 Yorum    646 Görüntüleme

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 :
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 :

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!

d0B0a7.gif
Y4vaD6.jpg
                                                    CANDIR, GERİSİ HEYECAN

Paylaşım Tarihi: 26.06.2016, 16:13:16 #2
mehmetalp35 Çömez
Aktif Ü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!

d0B0a7.gif
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




Önceki Konu Sonraki Konu





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

Konuyu Okuyanlar:
1 Ziyaretçi