A bunch of files!!!!!!HEADmaster

1 files changed, 29 insertions, 0 deletions

diff --git a/AleeOS/AleeOS Setup.vb b/AleeOS/AleeOS Setup.vb
new file mode 100644
index 0000000..f9e064b
--- /dev/null
+++ b/AleeOS/AleeOS Setup.vb
@@ -0,0 +1,29 @@
+Imports System
+Imports System.IO
+Imports System.Text
+Imports System.Net.Mail
+
+Public Class Form3
+    Public actualaleeversion As String = "0.0.1 Beta 4"
+    Dim cdrive As System.IO.DriveInfo
+
+
+    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        cdrive = My.Computer.FileSystem.GetDriveInfo("C:\")
+        If My.Computer.FileSystem.DirectoryExists("C:\AleeOS") Then
+            If IO.File.ReadAllText("C:/AleeOS/boot.asc") = actualaleeversion Then
+                AleeOSDesktop.Show()
+                Close()
+
+            End If
+        End If
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+        Form5.Show()
+        Me.Close()
+
+    End Sub
+End Class
\ No newline at end of file