Bypass Programı Yapma


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

Yazar: ILoveMH    3 Yorum    447 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 26.06.2016, 15:52:55 #1
ILoveMH Ağabey
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:161 Konu Sayısı:25 Üyelik 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:
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:
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!

İmage
İmage
                                                    CANDIR, GERİSİ HEYECAN
Paylaşım Tarihi: 26.06.2016, 16:13:16 #2
mehmetalp35 Çömez
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:3 Konu Sayısı:0 Üyelik 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ışı Yorum Sayısı:161 Konu Sayısı:25 Üyelik Tarihi:03.04.2016 Rep Puanı: 3

Tabikide Hayır Sadece WolfTeam'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!

İmage
İmage
                                                    CANDIR, GERİSİ HEYECAN
Paylaşım Tarihi: 24.08.2016, 22:11:54 #4
omera0 Çömez
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:2 Konu Sayısı:0 Üyelik 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 görüntüleyenler:
1 Misafir