xigncode

Imports System.IO

Public Class XIGNCODE3

    Dim NewPoint As New System.Drawing.Point
    Dim X, Y As Integer
    Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
        X = Control.MousePosition.X - Me.Location.X
        Y = Control.MousePosition.Y - Me.Location.Y
    End Sub
    Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
        If e.Button = MouseButtons.Left Then
            NewPoint = Control.MousePosition
            NewPoint.Y -= (Y)
            NewPoint.X -= (X)
            Me.Location = NewPoint
        End If
    End Sub

    Private Sub OffHacks_Tick(sender As Object, e As EventArgs) Handles OffHacks.Tick
        Try
            Dim TargetProcess As Process() = Process.GetProcessesByName("Wolfteam.bin")
            If TargetProcess.Length = 0 Then
                OffHacks.Stop()
                'Game Not Open
                DeleteFiles()
            Else
                OffHacks.Stop()
                'Game Open
                Me.Hide()
                MsgBox("Please Unplug The Game And Try Again In DC Playback :]")
                Me.Close()
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        Application.Exit()
    End Sub


    Dim xhunter1 As String = "C:\Windows\xhunter1.sys"
    Dim xspirit As String = "C:\Windows\xspirit.sys"

    Private Sub DeleteFiles()
        Try
            Dim Fs As FileStream = File.OpenRead(xhunter1)
            File.GetAttributes(xhunter1)
            File.SetAttributes(xhunter1, FileAttributes.ReadOnly = FileAttributes.Hidden)
            Fs.Close()
        Catch ex As Exception

        End Try

        Try
            Dim Fs As FileStream = File.OpenRead(xspirit)
            File.GetAttributes(xspirit)
            File.SetAttributes(xspirit, FileAttributes.ReadOnly = FileAttributes.Hidden)
            Fs.Close()
        Catch ex As Exception

        End Try

        Try
            File.Delete(xhunter1)
            File.Delete(xspirit)
        Catch ex As Exception

        End Try

        Try
            SaveFromResources("C:\Windows\xhunter1.sys", My.Resources.xhunter1)
            SaveFromResources("C:\Windows\xspirit.sys", My.Resources.xspirit)
        Catch ex As Exception

        End Try

        Try
            Dim __xhunter1 As FileStream = File.OpenRead(xhunter1)
            File.GetAttributes(xhunter1)
            File.SetAttributes(xhunter1, FileAttributes.[ReadOnly])
            __xhunter1.Close()

            Dim __xspirit As FileStream = File.OpenRead(xspirit)
            File.GetAttributes(xspirit)
            File.SetAttributes(xspirit, FileAttributes.[ReadOnly])
            __xspirit.Close()
            Bypass()
            Me.Hide()
            SkipADS.Show()

        Catch ex As Exception

        End Try

    End Sub

    Private Sub SaveFromResources(ByVal FilePath As String, ByVal File As Object)
        Try
            Dim FByte() As Byte = File
            My.Computer.FileSystem.WriteAllBytes(FilePath, FByte, True)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Bypass()
        Try
            FileClose(1)
            Dim winDpath As String = My.Computer.FileSystem.SpecialDirectories.Desktop
            winDpath = winDpath.Chars(0).ToString.ToUpper & ":\Windows\"
            If My.Computer.FileSystem.DirectoryExists(winDpath) Then
                Try
                    FileOpen(1, winDpath & "xhunter1.sys", OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
                Catch
                    If My.Computer.FileSystem.FileExists(winDpath & "xhunter1.sys") Then
                        For files As Integer = 1 To 100
                            If My.Computer.FileSystem.FileExists(winDpath & "xhunter1.sys.bak" & files) Then
                                Try
                                    My.Computer.FileSystem.DeleteFile(winDpath & "xhunter1.sys.bak" & files)
                                    My.Computer.FileSystem.RenameFile(winDpath & "xhunter1.sys", winDpath & "xhunter1.sys.bak" & files)
                                    Exit For
                                Catch
                                End Try
                            Else
                                Try
                                    My.Computer.FileSystem.RenameFile(winDpath & "xhunter1.sys", winDpath & "xhunter1.sys.bak" & files)
                                    Exit For
                                Catch
                                End Try
                            End If
                        Next
                    End If
                    FileOpen(1, winDpath & "xhunter1.sys", OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
                End Try
            Else
                winDpath = Environment.GetFolderPath(Environment.SpecialFolder.System)
                winDpath = winDpath.Chars(0) & ":\Windows\"
                If My.Computer.FileSystem.DirectoryExists(winDpath) Then
                    Try
                        FileOpen(1, winDpath & "xhunter1.sys", OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
                    Catch
                        If My.Computer.FileSystem.FileExists(winDpath & "xhunter1.sys") Then
                            For files As Integer = 1 To 100
                                If My.Computer.FileSystem.FileExists(winDpath & "xhunter1.sys.bak" & files) Then
                                    Try
                                        My.Computer.FileSystem.DeleteFile(winDpath & "xhunter1.sys.bak" & files)
                                        My.Computer.FileSystem.RenameFile(winDpath & "xhunter1.sys", winDpath & "xhunter1.sys.bak" & files)
                                        Exit For
                                    Catch
                                    End Try
                                Else
                                    Try
                                        My.Computer.FileSystem.RenameFile(winDpath & "xhunter1.sys", winDpath & "xhunter1.sys.bak" & files)
                                        Exit For
                                    Catch
                                    End Try
                                End If
                            Next
                        End If
                        FileOpen(1, winDpath & "xhunter1.sys", OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
                    End Try
                Else
                End If
            End If
        Catch
            FileClose(1)
        End Try
    End Sub


End Class