Wolfteam Oto ByPass Ekleme

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