Paylaş:
Bildirimler
Tümünü Sil
YouTube Kanalınız mı var? O zaman buraya tıklayarak ücretsiz olarak kanalınızı tanıtın!

Wolfteam Oto ByPass Ekleme  

  RSS
AimShows
(@aimshows)
Üye

[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 !

Alıntı
Gönderildi : 8 Eylül 2016 00:02
murat3547
(@murat3547)
Gelişen Üye

Eyvallah Repini Verdim 🙂

CevapAlıntı
Gönderildi : 8 Eylül 2016 01:02
TechnoPvCity
(@technopvcity)
Üye

Eyvallah Repini Verdim 🙂

bana verseydin repi 🙂

CevapAlıntı
Gönderildi : 8 Eylül 2016 01:06
adidas19
(@adidas19)
Yeni Üye

çok güzle

CevapAlıntı
Gönderildi : 8 Eylül 2016 12:01
KingMaster
(@kingmaster)
Yeni Üye

https://gezegenforum.com/c-c/wolfteam-oto-bypass-ekleme/

CevapAlıntı
Gönderildi : 18 Şubat 2017 19:36
emirelz07
(@emirelz07)
Aktif Üye

bakalımmm

CevapAlıntı
Gönderildi : 18 Şubat 2017 20:06
Ferdi Akkuş
(@ferdi-akkus)
Aktif Üye

Bakalım Usta

CevapAlıntı
Gönderildi : 12 Mart 2017 21:42
FullExtremo
(@fullextremo)
Seçkin Üye

bakalım

CevapAlıntı
Gönderildi : 23 Nisan 2017 19:35
unbenannt2
(@unbenannt2)
Yeni Üye

İsminizi Belirtiniz (Zorunlu değil)

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

Works ? 😀

CevapAlıntı
Gönderildi : 25 Aralık 2017 04:56
Atzael
(@atzael)
Yeni Üye

Bakalım Usta

CevapAlıntı
Gönderildi : 15 Haziran 2018 22:24
Atzael
(@atzael)
Yeni Üye

Bakalım Usta tansks

CevapAlıntı
Gönderildi : 15 Haziran 2018 22:24
EmpaLord
(@empalord)
Aktif Üye

SERİ YORUM

CevapAlıntı
Gönderildi : 26 Temmuz 2018 18:48
EmpaLord
(@empalord)
Aktif Üye

Teşşekürler kardesim

CevapAlıntı
Gönderildi : 26 Temmuz 2018 18:49
bulent2004
(@bulent2004)
Aktif Üye

tesekur

CevapAlıntı
Gönderildi : 23 Eylül 2019 14:06
Paylaş:
Başa dön