ErrorWindow.vb

Imports System.Drawing
Imports System.Environment
Imports System.IO
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Security.Permissions
Imports System.Text.RegularExpressions
Imports System.Windows.Forms
Imports System.Windows.Forms.LinkLabel
Imports System.Xml
Imports HarmonyLib
Imports Newtonsoft.Json
Imports TaleWorlds.Core
Imports TaleWorlds.Library
Imports TaleWorlds.Localization
Imports TaleWorlds.SaveSystem

<PermissionSet(SecurityAction.Demand, Name:="FullTrust")>
<ComVisibleAttribute(True)>
Public Class ErrorWindow
    Public Shared exceptionData As Exception
    Shared errorCount = 0
    Dim problematicModules = New SortedSet(Of String)
    Dim html = File.ReadAllText(BewBasePath() & "\errorui.htm")
    Dim bAttachedFileNotSavedYet = False

    Private Sub ErrorWindow_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        html = LocaliseTheHtmlPage(html)

        Me.TopMost = True
        Dim menu As New Windows.Forms.ContextMenu()
        menu.MenuItems.Add("none")
        widget.ContextMenu = menu
        widget.ObjectForScripting = Me
        Dim additionalInfo = ""
        If errorCount > 0 Then
            additionalInfo = "The game has crashed " & errorCount & IIf(errorCount = 1, " time.", " times.")
            additionalInfo = additionalInfo & "<br />"
        End If
        errorCount = errorCount + 1
        additionalInfo = additionalInfo & GetAdviseOnAttemptContinue()
        If CheckIsAssemblyLoaded("Bannerlord.ButterLib.dll") Then
            html = html.Replace("{butterlibMessage}",
                 New TextObject("{=BewShowButterlib}<a href='#' onclick='window.external.ShowButterlibException()'>Click here</a> to show Butterlib exception.<br /><br />").ToString())
        Else
            html = html.Replace("{butterlibMessage}", "")
        End If
        html = html.Replace("{additionalMessage}", additionalInfo)
        html = html.Replace("{errorString}", exceptionData.Message)
        html = html.Replace("{faultingSource}", exceptionData.Source)
        html = html.Replace("{fullStackString}", exceptionData.StackTrace)
        Dim installedMods = ""
        Dim listOfInstalledMods = GetAssembliesList(False)
        For Each x In listOfInstalledMods
            installedMods = installedMods + x
        Next
        html = html.Replace("{installedMods}", installedMods)
        If exceptionData.InnerException IsNot Nothing Then
            html = html.Replace("{innerException}", exceptionData.InnerException.Message)
            html = html.Replace("{innerFaultingSource}", exceptionData.InnerException.Source)
            html = html.Replace("{innerExceptionCallStack}", exceptionData.InnerException.StackTrace)
        Else
            Dim noInnerExceptionString = New TextObject("{=BewNoInnterException}No inner exception was thrown").ToString()
            html = html.Replace("{innerException}", noInnerExceptionString)
            html = html.Replace("{innerFaultingSource}", "No module")
            html = html.Replace("{innerExceptionCallStack}", noInnerExceptionString)
        End If
        html = html.Replace("{jsonData}", AnalyseModules())
        'wait a bit to gather game log
        Sleep(5 * 1000)
        html = html.Replace("{gameLogs}", GetGameLog())
        html = html.Replace("(logtime)", GetGameLogDateTime())
        html = html.Replace("{jsonHarmony}", GetHarmonyPatches())
        html = html.Replace("{version}", Version)
        html = html.Replace("{commit}", Commit)

        widget.DocumentText = html
        AddHandler widget.Document.ContextMenuShowing, AddressOf WebContextMenuShowing
        AddHandler widget.PreviewKeyDown, AddressOf WebShorcut
        widget.WebBrowserShortcutsEnabled = False
        widget.ScriptErrorsSuppressed = True
        'widget.Document.InvokeScript("AnalyseModule", Nothing)
        PrintExceptionToDebug()
    End Sub

    Private Function LocaliseTheHtmlPage(html As String) As String
        Dim xml = File.ReadAllText(BewBasePath() & "\ModuleData\Languages\str_EN.xml")
        Dim doc As New XmlDocument()
        doc.LoadXml(xml)

        Dim nodeList As XmlNodeList = doc.SelectNodes("//string[starts-with(@id, 'htmlXX')]")

        For Each node As XmlNode In nodeList
            Dim localisedId = node.Attributes("id").Value
            Dim localisedString = node.Attributes("text").Value
            Dim curlyBracket = "{" & localisedId & "}"
            Dim localisedText = New TextObject("{=" & localisedId & "}" & localisedString)
            html = html.Replace(curlyBracket, localisedText.ToString())
        Next

        nodeList = doc.SelectNodes("//string[starts-with(@id, 'javascriptXX')]")

        For Each node As XmlNode In nodeList
            Dim localisedId = node.Attributes("id").Value
            Dim localisedString = node.Attributes("text").Value
            Dim curlyBracket = "{" & localisedId & "}"
            Dim localisedText = New TextObject("{=" & localisedId & "}" & localisedString)
            html = html.Replace(curlyBracket, localisedText.ToString())
        Next

        Return html
    End Function

    Public Function GetAdviseOnAttemptContinue()
        If Not File.Exists(BewBasePath() & "\solutions.json") Then
            Print("Error loading solutions.json to explain the current crash")
            Return ""
        End If
        Try
            Dim text = File.ReadAllText(BewBasePath() & "\solutions.json")
            Dim jsonData = JsonConvert.DeserializeObject(text)
            For Each x In jsonData
                If IsNothing(x("Keywords")) Then Continue For
                If IsNothing(x("Reason")) Then Continue For
                Dim foundReasonOnOuterException = True
                With exceptionData.InnerException.StackTrace
                    For Each y In x("Keywords")
                        foundReasonOnOuterException = foundReasonOnOuterException And .Contains(y)
                    Next
                End With
                Dim foundReasonOnInnerException = True
                With exceptionData.StackTrace
                    For Each y In x("Keywords")
                        foundReasonOnInnerException = foundReasonOnInnerException And .Contains(y)
                    Next
                End With
                If foundReasonOnOuterException Or foundReasonOnInnerException Then
                    Return x("Reason")
                End If
            Next
        Catch ex As Exception
            Print("Error parsing solution.json (ignore this error)")
        End Try
        Return ""
    End Function
    Public Sub ShowButterlibException()
        'HtmlBuilder.BuildAndShow(new CrashReport(__exception))
        Me.TopMost = False
        Dim butterlibAsm = GetAssemblyByDll("Bannerlord.ButterLib.dll")
        If IsNothing(butterlibAsm) Then Exit Sub
        Dim BannerlordButterLibExceptionHandler = GetTypeFromAssembly(butterlibAsm, "Bannerlord.ButterLib.ExceptionHandler.ExceptionReporter")
        If IsNothing(BannerlordButterLibExceptionHandler) Then Exit Sub
        Dim Show = BannerlordButterLibExceptionHandler.GetMethod("Show", BindingFlags.Static Or BindingFlags.Public)
        If IsNothing(Show) Then Exit Sub
        Show.Invoke(Nothing, New Object() {exceptionData})
    End Sub
    Private Sub PrintExceptionToDebug()
        Debug.Print("Better exception window unhandled exception: " & exceptionData.Message)
        Debug.Print(exceptionData.StackTrace)
        If Not IsNothing(exceptionData.InnerException) Then
            Debug.Print("Inner exception: " & exceptionData.InnerException.Message)
            Debug.Print(exceptionData.InnerException.StackTrace)
        End If
    End Sub
    Private Sub WebContextMenuShowing(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        'disables context menu
        widgetMenu.Show(widget, e.MousePosition)
        'Me.widget.ContextMenuStrip.Show(Cursor.Position)
        e.ReturnValue = False
    End Sub
    Private Sub WebShorcut(ByVal sender As Object, ByVal e As PreviewKeyDownEventArgs)
        If e.Modifiers = Keys.Control And e.KeyCode = Keys.C Then
            widget.Document.ExecCommand("Copy", False, Nothing)
        End If
        If e.Modifiers = Keys.Control And e.KeyCode = Keys.P Then
            widget.Document.InvokeScript("window.print", Nothing)
        End If
        If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then
            widget.Document.ExecCommand("SelectAll", False, Nothing)
        End If
    End Sub
    Public Function Screenshot()
        TakeScreenshot("temporary")
        Dim b64image = FileToBase64String(BewTemp & "\temporary.compressed.jpg")
        html = html.Replace("{screenshotBase64}", b64image)
        bAttachedFileNotSavedYet = True
        Return "file://" & BewTemp & "/temporary.compressed.jpg"
    End Function
    Public Function AttachSavegame()
        Dim savegamePath = GetFolderPath(SpecialFolder.MyDocuments) & "\Mount and Blade II Bannerlord\Game Saves\"
        If Not Directory.Exists(savegamePath) Then Return False
        Dim savegameFile = New DirectoryInfo(savegamePath).EnumerateFiles() _
                                                     .Where(Function(x)
                                                                Dim reg = New Regex(".*\.sav")
                                                                Return reg.Match(x.Name).Success
                                                            End Function) _
                                                     .OrderByDescending(Function(x)
                                                                            Return x.LastWriteTimeUtc
                                                                        End Function) _
                                                     .FirstOrDefault()
        If Not IsNothing(savegameFile) Then
            Dim base64savegame = FileToBase64String(savegameFile.FullName)
            html = html.Replace("{saveGameBase64}", base64savegame)
            html = html.Replace("{saveGameFileName}", savegameFile.Name)
        End If
        bAttachedFileNotSavedYet = True
        Return savegameFile.Name
    End Function
    Public Function Save()
        'Dim filename = Str(DateTime.Now.ToFileTimeUtc()) + ".htm"
        Dim fileDialog As New SaveFileDialog()
        fileDialog.Filter = "HTML (*.htm)|*.htm|All files (*.*)|*.*"
        If fileDialog.ShowDialog() = DialogResult.OK AndAlso fileDialog.FileName <> "" Then
            Dim filename = fileDialog.FileName
            File.WriteAllText(filename, html)
            bAttachedFileNotSavedYet = False
            Return filename
        End If
        Return Nothing
    End Function
    Public Sub AttemptToContinue()
        Me.DialogResult = DialogResult.Retry
        ShowToastMessage("Better Exception Window WARNING: User attempted to continue program execution despite unhandled exception! This may (or may not) trigger unwanted side effect.")
        Close()
    End Sub
    Public Function DumpMemory(fullMemory As Boolean) As Integer
        Dim fileDialog As New SaveFileDialog()
        fileDialog.Filter = "Memory Dump (*.dmp)|*.dmp|All files (*.*)|*.*"
        If fileDialog.ShowDialog() = DialogResult.OK AndAlso fileDialog.FileName <> "" Then
            Dim filename = fileDialog.FileName
            If DumpFile(filename, fullMemory) Then
                Return 0
            Else
                Return 1
            End If
        End If
        Return 2
    End Function
    Public Function IsPageModified() As Boolean
        Return bAttachedFileNotSavedYet
    End Function
    Public Sub CloseProgram()
        KillGame()
    End Sub

    Public Sub OpenConfig()
        Try
            Dim p = Path.GetFullPath(BewBasePath() & "\config.json")
            Process.Start(p)
        Catch ex As Exception

        End Try
    End Sub
    Public Function IsRunningBannerlord()
        Return True
    End Function
    Public Sub OpenFile(s As String)
        Process.Start(s)
    End Sub
    Public Sub OpenPath(s As String)
        Dim p = Path.GetDirectoryName(s)
        Process.Start(p)
    End Sub
    Private Function GetGameLog()
        Dim dataPath = GetBanenrlordProgramDataPath() + "\logs\"
        Dim temptFile = New DirectoryInfo(dataPath).EnumerateFiles() _
                                                     .Where(Function(x)
                                                                Dim reg = New Regex("rgl_log_([0-9])*\.txt")
                                                                Return reg.Match(x.Name).Success
                                                            End Function) _
                                                     .FirstOrDefault()
        If temptFile IsNot Nothing Then
            Dim filestrm As New FileStream(temptFile.FullName, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
            Dim txtreader As New StreamReader(filestrm)
            Return txtreader.ReadToEnd()
        End If
        Return ""
    End Function
    Private Class HarmonyPatchInformation
        Public Finalisers As List(Of Patch)
        Public Prefixes As List(Of Patch)
        Public Postfixes As List(Of Patch)
        Public Transpilers As List(Of Patch)
    End Class
    Private Function GetHarmonyPatches()
        Dim patches = Harmony.GetAllPatchedMethods()
        Dim listOfPatches As New Dictionary(Of String, HarmonyPatchInformation)
        For Each p In patches
            Dim patch = Harmony.GetPatchInfo(p)
            Dim patchInfo As New HarmonyPatchInformation
            With patchInfo
                .Finalisers = patch.Finalizers.ToList()
                .Postfixes = patch.Postfixes.ToList()
                .Prefixes = patch.Prefixes.ToList()
                .Transpilers = patch.Transpilers.ToList()
            End With
            listOfPatches(p.FullDescription()) = patchInfo
        Next
        Return JsonConvert.SerializeObject(listOfPatches)
    End Function
    Private Function GetGameLogDateTime()
        Dim dataPath = GetBanenrlordProgramDataPath() + "\logs\"
        Dim biggestFile = New DirectoryInfo(dataPath).EnumerateFiles() _
                                                     .Where(Function(x) x.Name.StartsWith("rgl_log_")) _
                                                     .OrderByDescending(Function(x) x.LastWriteTimeUtc) _
                                                     .FirstOrDefault()
        If biggestFile IsNot Nothing Then
            Return biggestFile.LastWriteTime.ToString("yyyy-MM-dd HH:mm : ss 'GMT'z")
        End If
        Return ""
    End Function
    Private Function GetModulePathFromAssembly(dll As Assembly) As String
        Dim location = dll.Location
        location = Path.GetDirectoryName(location)
        Dim realLocation = Path.GetFullPath(location + "\..\..\")
        Return realLocation
    End Function

    Private Function ReadXmlAsJson(path As String) As Object
        Dim data = File.ReadAllText(path)
        Dim xmldata As New XmlDocument()
        xmldata.LoadXml(data)
        Return JsonConvert.DeserializeObject(JsonConvert.SerializeXmlNode(xmldata))
    End Function

    Private Sub AddXMLDiagResult(filename As String, filepath As String, Optional errorStr As String = "")
        If errorStr <> "" Then
            widget.Document.InvokeScript("addXMLDiagResult", New String() {filename, filepath, errorStr})
        Else
            widget.Document.InvokeScript("addXMLDiagResult", New String() {filename, filepath})
        End If
    End Sub

    Private Function GetAssembliesList(searchAlsoInGameBins As Boolean) As List(Of String)
        Dim dlls = Process.GetCurrentProcess().Modules
        Dim out As New List(Of String)
        For Each dll As ProcessModule In dlls
            Try
                Dim asm = AssemblyName.GetAssemblyName(dll.FileName)
                Dim version = asm.Version
                Dim name = asm.Name
                Dim location = dll.FileName
                Dim link = location.Replace("\", "\\")
                Dim li = $"Managed Assembly {name}, version: {version}. Location: <a href='#' onclick='window.external.OpenPath(""{link}"")'>{location}</a>"
                Dim output = ""
                output = $"<li class='taleworlds_ul'>{li}</li>" & vbNewLine
                out.Add(output)
            Catch ex As BadImageFormatException
                Dim name = Path.GetFileNameWithoutExtension(dll.ModuleName)
                Dim location = dll.FileName
                Dim link = location.Replace("\", "\\")
                Dim li = $"Native Code {name}. Location: <a href='#' onclick='window.external.OpenPath(""{link}"")'>{location}</a>"
                Dim output = ""
                output = $"<li class='taleworlds_ul'>{li}</li>" & vbNewLine
                out.Add(output)
            End Try
        Next
        Dim appdomainDlls = AppDomain.CurrentDomain.GetAssemblies()
        For Each dll In appdomainDlls
            Try
                Dim name = dll.GetName().Name
                Dim assmeblyVer = dll.GetName().Version
                Dim location = dll.Location
                Dim link = dll.Location.Replace("\", "\\")
                Dim version = assmeblyVer
                Dim li = $"Assembly {name}, version: {version}. Location: <a href='#' onclick='window.external.OpenPath(""{link}"")'>{location}</a>"
                Dim output = ""
                If name.StartsWith("TaleWorlds") Or
                    name.StartsWith("SandBox") Or
                    name.StartsWith("StoryMode") Or
                    name.StartsWith("Steamworks") Then
                    output = $"<li class='taleworlds_ul'>{li}</li>" & vbNewLine
                Else
                    output = $"<li>{li}</li>" & vbNewLine
                End If
                out.Add(output)
            Catch ex As Exception

            End Try
        Next
        Return out
    End Function

    Public Sub DisableProblematicModules()
        Dim myDocument = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim xmlPath = myDocument + "\Mount and Blade II Bannerlord\Configs\LauncherData.xml"
        Dim loadedModuleJSON = ReadXmlAsJson(xmlPath)
        Debug.Print(JsonConvert.SerializeObject(loadedModuleJSON))
        Dim nativeModules = {"Native", "SandBoxCore", "CustomBattle", "StoryMode"}
        Dim modulesString = ""
        For Each x In problematicModules
            modulesString = modulesString + x + ","
        Next
        If problematicModules.Count() = 0 Then
            MsgBox("Unable to fix this. We can't determine faulting modules.", MsgBoxStyle.Critical)
            Exit Sub
        End If
        modulesString = modulesString.Substring(0, modulesString.Length() - 1)
        Dim prompt = MsgBox("Are you sure to disable these modules: " + vbNewLine +
               modulesString,
               MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo,
               "Disable mods"
        )
        If prompt = MsgBoxResult.Yes Then
            Dim userModData = loadedModuleJSON("UserData")("SingleplayerData")("ModDatas")("UserModData")
            For Each x In userModData
                Dim moduleId = x("Id").ToString()
                For Each y In problematicModules
                    If moduleId = y AndAlso Not nativeModules.Contains(y) Then
                        x("IsSelected") = "false"
                        Exit For
                    End If
                Next
            Next
            Dim jsonString = JsonConvert.SerializeObject(loadedModuleJSON)
            Debug.Print(jsonString)
            Dim xmlData As XmlDocument = JsonConvert.DeserializeXmlNode(jsonString)
            Dim stringXml = New IO.StringWriter()
            Dim xmlWriter = New XmlTextWriter(stringXml)
            xmlData.WriteTo(xmlWriter)
            Debug.Print(stringXml.ToString())
            File.WriteAllText(xmlPath, stringXml.ToString())
            MsgBox("mods have been disabled")
        End If
    End Sub

    Public Function AnalyseModules()
        'Dim modulePath = Path.GetFullPath(BewDir & "\..\..\Modules\")
        Dim modulePath = Path.GetFullPath(BaseDir & "\..\..\Modules\")

        Dim myDocument = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim loadedModuleJSON = ReadXmlAsJson(myDocument + "\Mount and Blade II Bannerlord\Configs\LauncherData.xml")
        Dim loadedModule = loadedModuleJSON("UserData")("SingleplayerData")("ModDatas")("UserModData")
        Dim loadedModuleList As New List(Of String)
        Dim analysedModuleJSON As New List(Of Object)
        For Each x In loadedModule
            If x("IsSelected") Then
                loadedModuleList.Add(x("Id"))
            End If
        Next

        Dim modulesInGameDirectories = Directory.GetDirectories(modulePath)
        Dim directories = New List(Of String)
        Dim isSteamWorkshopFolderExists = Directory.Exists(Path.GetFullPath(BaseDir & "/../../../../workshop/content/261550"))
        If IsRunningSteam And isSteamWorkshopFolderExists Then
            Dim modulesInSteamWorkshopDirectory = Directory.GetDirectories(Path.GetFullPath(BaseDir & "/../../../../workshop/content/261550"))
            directories.AddRange(modulesInSteamWorkshopDirectory)
        End If
        directories.AddRange(modulesInGameDirectories)
        '2875090166\\SubModule.xml
        For Each x In directories
            Dim jsondata
            Try
                jsondata = ReadXmlAsJson(x + "\SubModule.xml")
            Catch ex As Exception
                Continue For
            End Try
            jsondata("isModLoaded") = loadedModuleList.Any(Function(f) f.Contains(jsondata("Module")("Id")("@value")))
            jsondata("isPDBIncluded") = False
            jsondata("location") = Path.GetFullPath(x)
            jsondata("manifest") = (Path.GetFullPath(x) + "\SubModule.xml").Replace("\", "\\")
            'MAYBE NOT AN ARRAY BUT PLAIN OBJECT INSTEAD
            Dim maybeArray = True
            Try
                Dim subModuleClassType As String = jsondata("Module")("SubModules")("SubModule")("Name")("@value")
                'Dim subModuleClassType As String = jsondata("Module")("SubModules")("SubModule")("SubModuleClassType")("@value")
                'subModuleClassType = subModuleClassType.Substring(0, subModuleClassType.IndexOf("."))
                Dim modId = jsondata("Module")("Id")("@value")
                jsondata("isFaultingMod") = exceptionData.StackTrace.Contains(subModuleClassType) Or exceptionData.StackTrace.Contains(modId) And jsondata("isModLoaded")
                If exceptionData.InnerException IsNot Nothing Then
                    jsondata("isFaultingMod") = jsondata("isFaultingMod") Or exceptionData.InnerException.StackTrace.Contains(subModuleClassType)
                End If
                If (jsondata("isFaultingMod")) Then
                    problematicModules.Add(modId)
                End If
                maybeArray = False
            Catch ex As Exception
            End Try
            Try
                Dim reg = New Regex(".*workshop\\content\\261550\\([0-9]*)")
                Dim matches = reg.Match(Path.GetFullPath(x))
                If matches.Success Then
                    jsondata("WorkshopUrl") = "https://steamcommunity.com/sharedfiles/filedetails/?id=" & matches.Groups()(1).Value
                End If
                For Each dll In jsondata("Module")("SubModules")("SubModule")
                    Dim name As String = dll("Name")("@value")
                    Dim modId = jsondata("Module")("Id")("@value")
                    'subModuleClassType = subModuleClassType.Substring(0, subModuleClassType.IndexOf("."))
                    jsondata("isFaultingMod") = exceptionData.StackTrace.Contains(name) Or exceptionData.StackTrace.Contains(modId) And jsondata("isModLoaded")
                    Dim result = CheckIsAssemblyLoaded(dll("DLLName")("@value"))
                    If result Then
                        dll("isLoadedInMemory") = True
                    Else
                        dll("isLoadedInMemory") = False
                    End If
                    If (jsondata("isFaultingMod")) Then
                        problematicModules.Add(modId)
                    End If
                Next
            Catch ex As Exception
            End Try

            'widget.Document.InvokeScript("DisplayModulesReport", New String() {JsonConvert.SerializeObject(jsondata)})
            analysedModuleJSON.Add(jsondata)
        Next
        Return JsonConvert.SerializeObject(analysedModuleJSON)
    End Function

    Public Sub ScanAndLintXmls()
        Dim errorDetected = False
        Dim modulePath = Path.GetFullPath(BaseDir & "\..\..\Modules\")
        Dim files = Directory.GetFiles(modulePath, "*.xml", SearchOption.AllDirectories).ToList()
        If IsRunningSteam Then
            Dim modulePath2 = Path.GetFullPath(modulePath & "../../../workshop/content/261550")
            files.AddRange(Directory.GetFiles(modulePath2, "*.xml", SearchOption.AllDirectories))
        End If

        For Each x In files
            Dim filename = Path.GetFileName(x)
            Try
                Dim doc As New XmlDocument()
                doc.Load(New StreamReader(x))
                Debug.Print(x)
                widget.Document.InvokeScript("addXMLDiagResult", New String() {filename, x})
            Catch ex As XmlException
                widget.Document.InvokeScript("addXMLDiagResult", New String() {filename, x, ex.Message})
                errorDetected = True
            End Try
            Application.DoEvents() 'bad, but i dont care, TASK.RUN CompleteWith DOESN'T WORK FOR SOME REASONS
        Next
        If errorDetected Then widget.Document.InvokeScript("finishSearch", New Object() {errorDetected})
    End Sub
    Public Function IsCampaignRunning()
        Return TaleWorlds.CampaignSystem.Campaign.Current IsNot Nothing
    End Function
    Public Function ForceSave(filename As String)
        'TaleWorlds.Core.MBSaveLoad.SaveAsCurrentGame()
        Try
            If TaleWorlds.Core.Game.Current Is Nothing OrElse
                TaleWorlds.Core.Game.Current.GameType Is Nothing Then
                MsgBox("Unable to save as this is not a campaign!", MsgBoxStyle.Critical)
                Return False
            Else
                'https://stackoverflow.com/questions/135443/how-do-i-use-reflection-to-invoke-a-private-method
                Dim CampaignSaveMetaData = TaleWorlds.CampaignSystem.Campaign.Current.SaveHandler.GetSaveMetaData()

                Dim dynamicMethodGetSaveMetaData = GetType(MBSaveLoad).GetMethod("GetSaveMetaData", BindingFlags.NonPublic Or BindingFlags.Static)
                Dim SaveMetaData As MetaData = dynamicMethodGetSaveMetaData.Invoke(Nothing, {CampaignSaveMetaData})

                'https://docs.microsoft.com/en-us/dotnet/api/system.reflection.fieldinfo.getvalue?view=net-6.0
                'find the save driver
                Dim dynamicSaveDriver = GetType(MBSaveLoad).GetField("_saveDriver", BindingFlags.NonPublic Or BindingFlags.Static)
                Dim saveDriver As ISaveDriver = CType(dynamicSaveDriver.GetValue(Nothing), ISaveDriver)

                Return SaveManager.Save(Game.Current, SaveMetaData, filename, saveDriver).Successful = True
            End If
        Catch ex As Exception
            MsgBox("error while saving! " + vbCrLf + ex.Message, MsgBoxStyle.Critical)
            Return False
        End Try
    End Function

    Private Sub widget_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles widget.Navigating
        If e.Url.ToString() = "about:dummy" Then
            e.Cancel = True
            Exit Sub
        End If
        Dim isUri = Uri.IsWellFormedUriString(e.Url.ToString(), UriKind.RelativeOrAbsolute)
        If (isUri AndAlso (e.Url.ToString().StartsWith("http://") Or e.Url.ToString().StartsWith("https://"))) Then
            e.Cancel = True
            Try
                Process.Start(e.Url.ToString())
            Catch ex As Exception
            End Try
            Exit Sub
            Try
                Process.Start("firefox.exe", e.Url.ToString())
            Catch ex As Exception
            End Try
            Exit Sub
            Try
                Process.Start("chrome.exe", e.Url.ToString())
            Catch ex As Exception
            End Try
        End If
    End Sub
    Dim dnspyInstall As New DnspyInstaller
    Public Sub InstallDnspy()
        dnspyInstall.Download(
            Sub() widget.Invoke(
                Sub()
                    widget.Document.InvokeScript("Callback_InstallDnspyComplete",
                                                 New String() {1, Nothing})
                End Sub),
            Sub(prog As DnspyInstaller.Progress) widget.Invoke(
            Sub()
                widget.Document.InvokeScript("Callback_InstallDnspyProgress",
                                             New String() {
                                             prog.PercentageDownload,
                                             prog.TotalDownloadedInByte,
                                             prog.SizeInByte})
            End Sub),
            Sub(ex As Exception) widget.Invoke(
                Sub()
                    widget.Document.InvokeScript("Callback_InstallDnspyComplete",
                                                 New String() {0, ex.Message})
                End Sub))
    End Sub
    Public Sub StartDnspyDebugger()
        RestartAndAttachDnspy()
    End Sub
    Public Function IsUnderdebugger()
        Return Debugger.IsAttached
    End Function
    Public Function IsdnSpyAvailable()
        Return Util.IsDnspyAvailable()
    End Function

    Private Sub widget_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles widget.DocumentCompleted
        'AnalyseModules()
    End Sub

    Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
        widget.Document.ExecCommand("Copy", False, Nothing)
    End Sub

    Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click
        widget.Document.ExecCommand("SelectAll", False, Nothing)
    End Sub

    Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
        widget.Document.InvokeScript("window.print", Nothing)
    End Sub
End Class