Menü Kapat
Paylaş:
Bildirimler
Tümünü Sil

Wolfteam Oto ByPass Ekleme

15 Yazılar
13 Üyeler
0 Beğeni
2,943 Görüntüleme
AimShows
(@aimshows)
Gönderiler: 12
Üye
Konuyu başlatan
 

[hide]
Imports kısmına eklenecekler

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 

Timer ekleyin ve alttakini kopyala yapıştır atın.

Dim p As Process()
p = Process.GetProcessesByName("Wolfteam.bin") 'set wolfteam process

If p.Count = 1 Then ' if wolfteam process detected

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.KilitReadWrite, -1)
            Else
                File.WriteAllBytes((folderPath & "xspirit.sys"), New Byte() {0})
                FileSystem.FileOpen(1, (folderPath & "xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.KilitReadWrite, -1)
            End If

            If My.Computer.FileSystem.FileExists((folderPath & "xhunter1.sys")) Then

                FileSystem.FileOpen(2, (folderPath & "xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.KilitReadWrite, -1)
            Else
                File.WriteAllBytes((folderPath & "xhunter1.sys"), New Byte() {0})
                FileSystem.FileOpen(2, (folderPath & "xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.KilitReadWrite, -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
End If 

[/hide]

HİÇBİR SİSTEM GÜVENLİ DEİLDİR !

 
Gönderildi : 8 Eylül 2016 00:02
murat3547
(@murat3547)
Gönderiler: 139
Saygın Üye
 

Eyvallah Repini Verdim 🙂

 
Gönderildi : 8 Eylül 2016 01:02
TechnoPvCity
(@technopvcity)
Gönderiler: 77
Üye
 

Eyvallah Repini Verdim 🙂

bana verseydin repi 🙂

 
Gönderildi : 8 Eylül 2016 01:06
adidas19
(@adidas19)
Gönderiler: 2
Yeni üye
 

çok güzle

 
Gönderildi : 8 Eylül 2016 12:01
KingMaster
(@kingmaster)
Gönderiler: 2
Yeni üye
emirelz07
(@emirelz07)
Gönderiler: 7
Aktif üye
 

bakalımmm

 
Gönderildi : 18 Şubat 2017 20:06
Ferdi Akkuş
(@ferdi-akkus)
Gönderiler: 13
Aktif üye
 

Bakalım Usta

 
Gönderildi : 12 Mart 2017 21:42
FullExtremo
(@fullextremo)
Gönderiler: 20
Seçkin Üye
 

bakalım

 
Gönderildi : 23 Nisan 2017 19:35
unbenannt2
(@unbenannt2)
Gönderiler: 3
Yeni üye
 

İsminizi Belirtiniz (Zorunlu değil)

 
Gönderildi : 10 Eylül 2017 07:57
jioro
(@jioro)
Gönderiler: 20
Seçkin Üye
 

Works ? 😀

 
Gönderildi : 25 Aralık 2017 04:56
Atzael
(@atzael)
Gönderiler: 2
Yeni üye
 

Bakalım Usta

 
Gönderildi : 15 Haziran 2018 22:24
Atzael
(@atzael)
Gönderiler: 2
Yeni üye
 

Bakalım Usta tansks

 
Gönderildi : 15 Haziran 2018 22:24
EmpaLord
(@empalord)
Gönderiler: 5
Aktif üye
 

SERİ YORUM

 
Gönderildi : 26 Temmuz 2018 18:48
EmpaLord
(@empalord)
Gönderiler: 5
Aktif üye
 

Teşşekürler kardesim

 
Gönderildi : 26 Temmuz 2018 18:49
bulent2004
(@bulent2004)
Gönderiler: 5
Aktif üye
 

tesekur

 
Gönderildi : 23 Eylül 2019 14:06
Paylaş: