Merhabalar oto bypass yapımı +rep verin emeğe saygı


C ve C++ Programlama    C ve C++ Programlama İle İlgili Paylaşım Kategorisi

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

Paylaşım Tarihi: 17.07.2016, 19:59:31 #1
Vabartum Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:108 Konuları:22 Kayıt Tarihi:09.05.2016 Rep Puanı: 11

Arkadaşlar il öncelikle
Formun en üstüne alttaki kodu yazıyoruz

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





Arkadaşlar daha sonra 
Form1 Yada Button1 E bunu yazın ben form1 i öneriyorum.

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)
               ReactorTextBox1.Text = ("Erişim Engellendi ")
           End If
           If My.Computer.FileSystem.FileExists((folderPath & "Wolftü.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


ARKDAŞLAR ÜSTTEKİ KODU YAZDIĞINIZDA 1 tane error gelecektir O error yerini tamamen silin . 
Arkadaşlar bu kadar + 1 repi çok görmeyin. Konunun Sabit yapılmasını arz ederim.
Son Düzenleme: 17.07.2016, 20:03:51, Düzenleyen: Vabartum.

Paylaşım Tarihi: 17.07.2016, 22:35:18 #2
Lucretia Ağır ağabey
Onaylı Uye
Status: Dışarıda Yorumları:507 Konuları:3 Kayıt Tarihi:15.06.2016 Rep Puanı: 496

Rep istemek günah. Big Grin Big Grin
+
Tşkrler bro.










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

Konuyu Okuyanlar:
1 Ziyaretçi