From cf1bf85e01c8d99f052c09b72d2fb2bbbc0b99b0 Mon Sep 17 00:00:00 2001
From: FloppyDiskDrive <ibmpcdos5@gmail.com>
Date: Thu, 21 Sep 2017 17:16:49 -0500
Subject: Added the SOS code (VB and C#)

Very, very incomplete (C# isn't *remotely* complete.)
---
 ShiftOS/FullScreenLogin.vb | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 ShiftOS/FullScreenLogin.vb

(limited to 'ShiftOS/FullScreenLogin.vb')

diff --git a/ShiftOS/FullScreenLogin.vb b/ShiftOS/FullScreenLogin.vb
new file mode 100644
index 0000000..f9deb1b
--- /dev/null
+++ b/ShiftOS/FullScreenLogin.vb
@@ -0,0 +1,40 @@
+Public Class FullScreenLogin
+
+    Private Sub FullScreenLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
+        Me.WindowState = FormWindowState.Maximized
+        setskin()
+    End Sub
+
+    Public Sub setskin()
+        Me.BackColor = Color.Black
+        Me.BackgroundImage = Skins.loginbg
+        Me.BackgroundImageLayout = Skins.loginbglayout
+        userpic.Size = New Size(Skins.userimagesize, Skins.userimagesize)
+        userpic.BackgroundImage = Skins.userimage
+        userpic.BackColor = Color.Transparent
+        userpic.BackgroundImageLayout = Skins.userimagelayout
+        If Not IsNothing(Skins.userimagelocation) Then userpic.Location = Skins.userimagelocation
+        txtusername.Location = New Point(Skins.userTextboxX, Skins.userTextBoxY)
+        txtpassword.Location = New Point(Skins.passTextBoxX, Skins.passTextBoxY)
+        loginbtn.Location = New Point(Skins.loginbtnX, Skins.loginbtnY)
+        shutdown.Location = New Point(Skins.shutdownbtnX, Skins.shutdownbtnY)
+        Me.TopMost = True
+    End Sub
+
+    Private Sub loginbtn_Click(sender As Object, e As EventArgs) Handles loginbtn.Click
+        If txtusername.Text = ShiftOSDesktop.username And txtpassword.Text = ShiftOSDesktop.password Then
+            Me.Close()
+            infobox.showinfo("Login Screen", "The Login Screen has completed with no errors!")
+        End If
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles shutdown.Click
+        ShiftOSDesktop.shutdownshiftos()
+    End Sub
+
+    Private Sub clearChars(sender As Object, e As MouseEventArgs) Handles txtusername.MouseDown, txtpassword.MouseDown
+        txtusername.Text = ""
+        txtpassword.Text = ""
+    End Sub
+End Class
\ No newline at end of file
-- 
cgit v1.2.3