Vsync on and off bug fix

Author: Sahil12524

Minecraft Launch Script/Views/MainPage.vb

@@ -169,15 +169,22 @@ Public Class MainPage
         GC.WaitForPendingFinalizers()
         GC.Collect()
         switchPanel(PerformanceTweakView)
-        Dim fileWrite As String = My.Computer.FileSystem.ReadAllText(fileReader)
-        If fileWrite.Contains("gfx_vsync:0") Then
-            PerformanceTweakView.lblVsyncStatus.Text = "OFF"
-            PerformanceTweakView.lblVsyncStatus.ForeColor = Color.Lime
-            Directory.SetCurrentDirectory(appDefLoc)
-        ElseIf fileWrite.Contains("gfx_vsync:1") Then
-            PerformanceTweakView.lblVsyncStatus.Text = "ON"
+        Try
+            Dim fileWrite As String = My.Computer.FileSystem.ReadAllText(fileReader)
+            If fileWrite.Contains("gfx_vsync:0") Then
+                PerformanceTweakView.lblVsyncStatus.Text = "OFF"
+                PerformanceTweakView.lblVsyncStatus.ForeColor = Color.Lime
+                Directory.SetCurrentDirectory(appDefLoc)
+            ElseIf fileWrite.Contains("gfx_vsync:1") Then
+                PerformanceTweakView.lblVsyncStatus.Text = "ON"
+                PerformanceTweakView.lblVsyncStatus.ForeColor = Color.Red
+                Directory.SetCurrentDirectory(appDefLoc)
+            End If
+        Catch ex As System.IO.DirectoryNotFoundException
+            PerformanceTweakView.lblVsyncStatus.Text = "Minecraft is not installed!"
             PerformanceTweakView.lblVsyncStatus.ForeColor = Color.Red
             Directory.SetCurrentDirectory(appDefLoc)
-        End If
+        End Try
+
     End Sub
 End Class

Minecraft Launch Script/Views/PerformanceTweakView.vb

@@ -5,18 +5,29 @@ Public Class PerformanceTweakView
     Dim appDefLoc = My.Application.Info.DirectoryPath
     Dim fileReader As String = Environ$("USERPROFILE") & "\AppData\Local\Packages\Microsoft.MinecraftUWP_8wekyb3d8bbwe\LocalState\games\com.mojang\minecraftpe\options.txt"
     Private Sub btnVsyncOn_Click(sender As Object, e As EventArgs) Handles btnVsyncOn.Click
-        Directory.SetCurrentDirectory(root)
-        Dim fileWrite As String = My.Computer.FileSystem.ReadAllText(fileReader).Replace("gfx_vsync:0", "gfx_vsync:1")
-        File.WriteAllText(fileReader, fileWrite)
-        updateForm()
-        Directory.SetCurrentDirectory(appDefLoc)
+        'Directory.SetCurrentDirectory(root)
+        Try
+            Dim fileWrite As String = My.Computer.FileSystem.ReadAllText(fileReader).Replace("gfx_vsync:0", "gfx_vsync:1")
+            File.WriteAllText(fileReader, fileWrite)
+            updateForm()
+            Directory.SetCurrentDirectory(appDefLoc)
+        Catch ex As System.IO.DirectoryNotFoundException
+            lblVsyncStatus.Text = "Minecraft is not installed!"
+            lblVsyncStatus.ForeColor = Color.Red
+            Directory.SetCurrentDirectory(appDefLoc)
+        End Try
     End Sub
     Private Sub btnVsyncOff_Click(sender As Object, e As EventArgs) Handles btnVsyncOff.Click
-        Dim fileWrite As String = My.Computer.FileSystem.ReadAllText(fileReader).Replace("gfx_vsync:1", "gfx_vsync:0")
-        File.WriteAllText(fileReader, fileWrite)
-        updateForm()
-        Directory.SetCurrentDirectory(appDefLoc)
-
+        Try
+            Dim fileWrite As String = My.Computer.FileSystem.ReadAllText(fileReader).Replace("gfx_vsync:1", "gfx_vsync:0")
+            File.WriteAllText(fileReader, fileWrite)
+            updateForm()
+            Directory.SetCurrentDirectory(appDefLoc)
+        Catch ex As System.IO.DirectoryNotFoundException
+            lblVsyncStatus.Text = "Minecraft is not installed!"
+            lblVsyncStatus.ForeColor = Color.Red
+            Directory.SetCurrentDirectory(appDefLoc)
+        End Try
     End Sub
     Public Async Sub updateForm()
         Dim taskRunning = True
@@ -53,13 +64,20 @@ Public Class PerformanceTweakView
         End If
     End Sub
     Private Sub PerformanceTweakView_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Dim fileWrite As String = My.Computer.FileSystem.ReadAllText(fileReader)
-        If fileWrite.Contains("gfx_vsync:0") Then
-            lblVsyncStatus.Text = "OFF"
-            lblVsyncStatus.ForeColor = Color.Lime
-        ElseIf fileWrite.Contains("gfx_vsync:1") Then
-            lblVsyncStatus.Text = "ON"
+        Try
+            Directory.SetCurrentDirectory(root)
+            Dim fileWrite As String = My.Computer.FileSystem.ReadAllText(fileReader)
+            If fileWrite.Contains("gfx_vsync:0") Then
+                lblVsyncStatus.Text = "OFF"
+                lblVsyncStatus.ForeColor = Color.Lime
+            ElseIf fileWrite.Contains("gfx_vsync:1") Then
+                lblVsyncStatus.Text = "ON"
+                lblVsyncStatus.ForeColor = Color.Red
+            End If
+        Catch ex As System.IO.DirectoryNotFoundException
+            lblVsyncStatus.Text = "Minecraft is not installed!"
             lblVsyncStatus.ForeColor = Color.Red
-        End If
+            Directory.SetCurrentDirectory(appDefLoc)
+        End Try
     End Sub
 End Class