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    227 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 17.07.2016, 19:59:31 #1
Vabartum Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:108 Konu Sayısı:22 Üyelik Tarihi:09.05.2016 Rep Puanı: 8

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 & "wolfteam.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 Fedai
Onaylı Uye
Status: Dışarıda Yorum Sayısı:466 Konu Sayısı:3 Üyelik Tarihi:15.06.2016 Rep Puanı: 474

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







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

Konuyu görüntüleyenler:
1 Misafir