VB.NET Wolftü MN & Classic Base Adress Çekme Xingcode Bypass Source Code

  Try
            Dim TargetProcess As Process() = Process.GetProcessesByName("Wolftü.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 xTech Playback :]")
                Me.Close()
            End If
        Catch ex As Exception

        End Try

  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()
            Launcher.Show()  ''' Hilenizin Formu
            OffHacks.Stop()

        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