wolftü XINCODE CLEAR BYPASS KODUmayı Unutmayın

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Onaylı Üye
Katılım
2 May 2016
Mesajlar
148
Tepki puanı
0
10 HİZMET YILI
[font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif][font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif]+Rep Vermeyı VE Tesekkur Butonuna Basmayı Unutmayın[/FONT][/FONT]

[font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif][font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif]Gerekli Olanlar : [/FONT]
[/FONT]



[font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif] 1 Adet Button[/FONT]


[font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif][font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif]Buttona Girilecek Kod : [/FONT][/FONT]

PHP:
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
            Form1.Show()
            Me.Hide()
        End Try 








Publıc Class Form1 in Üstüne Girilecek 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 
[color=#ff3333][SIZE=7][font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif][b]+Rep Vermeyı  Butonuna Basmayı Unutmayın[/b][/FONT][/SIZE][/color]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst