wolftü Pointer Bulumu 2018

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
HADİ HOPPALARAAAAAAA
Banlı Üye
Katılım
20 Tem 2017
Mesajlar
1,333
Tepki puanı
248
8 HİZMET YILI
Tabiki Bunlar İçin Bypass Lazım Olucaktır Alın Size Güncel Bypass

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


Üst Kısım


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

End Try
 
  • Konuyu başlatan
  • Yasaklandı
  • #29
Ultra Üye
Katılım
28 Ağu 2015
Mesajlar
1,054
Çözümler
1
Tepki puanı
245
10 HİZMET YILI
Tabiki Bunlar İçin Bypass Lazım Olucaktır Alın Size Güncel Bypass

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


Üst Kısım


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

End Try
Teşekkürler
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst