ByPass Kodlama 2.Yol


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

Yazar: Dark Hack    0 Yorum    213 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 15.05.2016, 23:14:32 #1
Dark Hack Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:218 Konu Sayısı:52 Üyelik Tarihi:08.05.2016

Beyler Buda İkinci Bi ByPass Kodlama !

Public Class Form ÜZERİNE ŞU KODLAR YAZILACAK

Kod:

Kod:
Imports Microsoft.VisualBasic
Kod:
Kod:
[align=center][b][color=#333333][align=center]Imports Microsoft.VisualBasic.CompilerServices[/align][/color][/b][/align]
[align=center][b][color=#333333][align=center]Imports System[/align][/color][/b][/align]
[align=center][b][color=#333333][align=center]Imports System.Collections[/align][/color][/b][/align]
[align=center][b][color=#333333][align=center]Imports System.Collections.Generic[/align][/color][/b][/align]
[align=center][b][color=#333333][align=center]Imports System.ComponentModel[/align][/color][/b][/align]
[align=center][b][color=#333333][align=center]Imports System.Diagnostics[/align][/color][/b][/align]
[align=center][b][color=#333333][align=center]Imports System.Drawing[/align][/color][/b][/align]
[align=center][b][color=#333333][align=center]Imports System.IO[/align][/color][/b][/align]
[align=center][b][color=#333333][align=center]Imports System.Runtime.CompilerServices[/align][/color][/b][/align]
[align=center][b][color=#333333][align=center]Imports System.Threading[/align][/color][/b][/align]
[align=center][b][color=#333333][align=center]Imports System.Windows.Forms[/align][/color][/b][/align]
[align=center][b][color=#333333][align=center]Imports System.Environment[/color][align=center][/b][align=center][/align]



 

Form1 Load a şu kodlar yazılacak

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
       Catch ex As Exception
       End Try 








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

Konuyu görüntüleyenler:
1 Misafir