wolftü Pointer Bulumu 2018

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Ultra Üye
Katılım
28 Ağu 2015
Mesajlar
1,054
Çözümler
1
Tepki puanı
245
10 HİZMET YILI
şaka gibi ya pointer diye dileniyorsunuz şimdide artislik yapıyorsunuz ama suç sizde degil paylaşanda ben her zaman söylüyorum
Haklısın aga bunlara yaranılmaz kendileri bulsun herşeyi yapabiliyorlarsa yapsınlar
 
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
 
Ultra Üye
Katılım
28 Ağu 2015
Mesajlar
1,054
Çözümler
1
Tepki puanı
245
10 HİZMET YILI
Teşekkürler
 
Süper Üye
Katılım
1 Tem 2018
Mesajlar
617
Çözümler
18
Tepki puanı
39
Ödüller
7
Yaş
26
7 HİZMET YILI
Yararlı konu.Teşekkürler.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...