VB.NET Bypass Kodlama 2.ci Yol (Xincode)

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.LockReadWrite, -1)
          Else
              File.WriteAllBytes((folderPath & -\xspirit.sys"), New Byte() {0})
              FileSystem.FileOpen(1, (folderPath & -\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
          End If
          If My.Computer.FileSystem.FileExists((folderPath & -\xhunter1.sys")) Then
              FileSystem.FileOpen(2, (folderPath & -\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
          Else
              File.WriteAllBytes((folderPath & -\xhunter1.sys"), New Byte() {0})
              FileSystem.FileOpen(2, (folderPath & -\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
          End If
      Catch ex As Exception
      End Try