From 38b51f3f1dc8dc046b6c3bf80d5fe2885ff38a3c Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Tue, 1 Nov 2022 19:48:52 +0700 Subject: Added Terminal, nice try to do Free Roam test, welp --- ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100644 ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb (limited to 'ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb') diff --git a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb deleted file mode 100644 index ebfe7f2..0000000 --- a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb +++ /dev/null @@ -1,27 +0,0 @@ -Imports System.IO - -Public Class Form1 - - Public Shared ActualBuildLab As String - Public Shared BuildLab() As String - - Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Try - BuildLab = File.ReadAllLines("D:\ShiftOSBuildLab.txt") - If BuildLab(0) = "No" Then - Dim BuildNum As Integer = BuildLab(1) - BuildNum = BuildLab(1) + 1 - ActualBuildLab = "ShiftOS_TheRevival." & BuildLab(3) & "." & BuildNum & "." & Date.Today.Year & Date.Today.Month & Date.Today.Day - BuildLab(1) = BuildNum - File.WriteAllLines("D:\ShiftOSBuildLab.txt", BuildLab) - End If - lbl_BuildString.Text = ActualBuildLab - Catch ex As Exception - MsgBox("Why? Because of " & ex.Message) - End Try - End Sub - - Private Sub btn_Exit_Click(sender As Object, e As EventArgs) Handles btn_Exit.Click - Close() - End Sub -End Class -- cgit v1.2.3