Better Ignore list handling

wtfpsbooster/Form1.vb

@@ -39,12 +39,12 @@ Public Class Form1
     ' ----------------------------------
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         KeyPreview = True
-        Dim unused3 = splash.ShowDialog()
+        'Dim unused3 = splash.ShowDialog()
 
-        If My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) = False Then
-            Dim unused2 = MessageBox.Show("Tried to sneaky huh? Well that doesn't work. Please run as admin.")
-            Application.Exit()
-        End If
+        'If My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) = False Then
+        '    Dim unused2 = MessageBox.Show("Tried to sneaky huh? Well that doesn't work. Please run as admin.")
+        '    Application.Exit()
+        'End If
 
         Try
             ignorelistform.ignorelistbox.Items.Clear()
@@ -369,9 +369,10 @@ Step 5: You are all set, click Launch on your Launcher and the game should boost
     End Sub
 
     Private Sub chang_log_Click(sender As Object, e As EventArgs) Handles chang_log.Click
-        Dim unused = MessageBox.Show("Changes for 2.19.0.501:
+        Dim unused = MessageBox.Show("Changes for 2.19.0.504:
 * Removed Extra Boost. Extra boost was removed and replaced with ignore list.
 * Ignore list. With the removale of Extra boost, decided to make the program have extra boost by default. To have the same effect as extra boost being diabled, click on Ignore List, then add Common Names.
+* Fixed an issue with Ignore List showing errors with an empty list.
 ")
     End Sub
 

wtfpsbooster/My Project/AssemblyInfo.vb

@@ -31,7 +31,7 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.19.0.501")>
-<Assembly: AssemblyFileVersion("2.19.0.501")>
+<Assembly: AssemblyVersion("2.19.0.504")>
+<Assembly: AssemblyFileVersion("2.19.0.504")>
 
 <Assembly: NeutralResourcesLanguageAttribute("en-US")>

wtfpsbooster/ignorelistform.vb

@@ -1,10 +1,16 @@
 Public Class ignorelistform
     Private Sub closebtn_Click(sender As Object, e As EventArgs) Handles closebtn.Click
+
         Me.Close()
-        ignorelistbox.Items.Clear()
-        For Each item In My.Settings.ignore_list
-            Dim unused4 = ignorelistbox.Items.Add(item)
-        Next
+        Try
+            'ignorelistbox.Items.Clear()
+            For Each item In My.Settings.ignore_list
+                Dim unused4 = ignorelistbox.Items.Add(item)
+            Next
+        Catch ex As Exception
+
+        End Try
+
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles find_program_btn.Click
@@ -20,15 +26,20 @@
     End Sub
 
     Private Sub add_running_btn_Click(sender As Object, e As EventArgs) Handles add_running_btn.Click
-        If ignorelistbox.Items.Contains(running_listbox.Text) = False Then
-            Dim unused1 = ignorelistbox.Items.Add(running_listbox.Text)
-        End If
-        running_listbox.Items.Clear()
-        For Each p As Process In Process.GetProcesses()
-            If running_listbox.Items.Contains(p.ProcessName) = False And ignorelistbox.Items.Contains(p.ProcessName) = False Then
-                Dim unused = running_listbox.Items.Add(p.ProcessName)
+        Try
+            If ignorelistbox.Items.Contains(running_listbox.Text) = False Then
+                Dim unused1 = ignorelistbox.Items.Add(running_listbox.Text)
             End If
-        Next
+            running_listbox.Items.Clear()
+            For Each p As Process In Process.GetProcesses()
+                If running_listbox.Items.Contains(p.ProcessName) = False And ignorelistbox.Items.Contains(p.ProcessName) = False Then
+                    Dim unused = running_listbox.Items.Add(p.ProcessName)
+                End If
+            Next
+        Catch ex As Exception
+
+        End Try
+
     End Sub
 
     Private Sub removebtn_Click(sender As Object, e As EventArgs) Handles removebtn.Click
@@ -62,7 +73,7 @@
             Next
             My.Settings.Save()
         Catch ex As Exception
-
+            My.Settings.ignore_list.Clear()
         End Try
     End Sub
 

wtfpsbooster/wtfpsbooster.vbproj

@@ -30,11 +30,11 @@
     <ProductName>War Thunder FPS Booster</ProductName>
     <PublisherName>Cyber Apps</PublisherName>
     <SuiteName>Cyber Applications</SuiteName>
-    <MinimumRequiredVersion>2.19.0.501</MinimumRequiredVersion>
+    <MinimumRequiredVersion>2.19.0.504</MinimumRequiredVersion>
     <CreateWebPageOnPublish>true</CreateWebPageOnPublish>
     <WebPage>index.php</WebPage>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
-    <ApplicationRevision>502</ApplicationRevision>
+    <ApplicationRevision>504</ApplicationRevision>
     <ApplicationVersion>2.19.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>