Steam Account Switcher v2.0

'Made By ImWhacky
'MPGH Exclusive

Imports System.Xml
Imports System****
Imports System.Text
Public Class Form1
    Dim myXml As New XmlClass

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Settings.SteamLocation.Length < 1 Then
            MsgBox("Please Select Your Steam Directory")
            FolderBrowserDialog1.ShowDialog()
            FolderBrowserDialog1.ShowNewFolderButton = False
            My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
            TextBox1.Text = My.Settings.SteamLocation + "\Steam.exe"
            My.Settings.Save()

        Else
            TextBox1.Text = FolderBrowserDialog1.SelectedPath.ToString
        End If
        TextBox1.Text = My.Settings.SteamLocation + "\Steam.exe"
        User_label.Text = "(Select Account)"
        PW_label.Text = "(Select Account)"
        If My.Computer.FileSystem.FileExists("SteamAccs.xml") Then
            myXml.Filename = ("SteamAccs.xml")
            myXml****ot = ("Main")
            FindAccounts()
        Else
            Dim path As String = "SteamAccs.xml"

            ' Create or overwrite the file.
            Dim fs As FileStream = File.Create(path)

            ' Add text to the file.
            Dim info As Byte() = New UTF8Encoding(True).GetBytes("<?xml version='1.0' encoding='utf-8' standalone='yes'?>" & vbNewLine & "<Main>" & vbNewLine & "</Main>")
            fs.Write(info, 0, info.Length)
            fs.Close()
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")

        End If
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        End If
        If CheckBox1.Checked Then
            PW_label.Visible = True
            Label7.Text = ""
        Else
            PW_label.Visible = False
            Label7.Text = "(Password Not Visible)"
        End If
        TabPage1.BackColor = My.Settings.TabColor
        TabPage2.BackColor = My.Settings.TabColor
        TabPage3.BackColor = My.Settings.TabColor
        Login_btn.BackColor = My.Settings.ButtonColor
        Add_btn.BackColor = My.Settings.ButtonColor
        Button1.BackColor = My.Settings.ButtonColor
        Button2.BackColor = My.Settings.ButtonColor
        Button3.BackColor = My.Settings.ButtonColor
        Button4.BackColor = My.Settings.ButtonColor
        Button5.BackColor = My.Settings.ButtonColor
        Button6.BackColor = My.Settings.ButtonColor
        Button7.BackColor = My.Settings.ButtonColor
        Button8.BackColor = My.Settings.ButtonColor

    End Sub

    Private Function apppath() As String
        Throw New NotImplementedException()
    End Function

    Public Sub FindAccounts()
        Dim xml_doc As New XmlDocument
        Dim nodelist As XmlNodeList
        Dim node As XmlElement
        xml_doc.Load("SteamAccs.xml")

        nodelist = xml_doc.SelectNodes("Main/*")
        For Each node In nodelist
            LoginList.Items.Add(node.LocalName.ToString)
            ComboBox1.Items.Add(node.LocalName.ToString)
        Next
    End Sub

    Private Sub Login_btn_Click(sender As Object, e As EventArgs) Handles Login_btn.Click
        If User_label.Text = "(Select Account)" Then
            MsgBox("Please Select An Account")
        Else
            Dim proc = Process.GetProcessesByName("Steam")
            For i As Integer = 0 To proc.Count - 1
                proc(i).Kill()
            Next i
            Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
        End If
    End Sub

    Private Sub LoginList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LoginList.SelectedIndexChanged
        User_label.Text = myXml.ReadString(LoginList.Text, "UserID")
        PW_label.Text = myXml.ReadString(LoginList.Text, "Password")
    End Sub
    Private Sub Add_btn_Click(sender As Object, e As EventArgs) Handles Add_btn.Click
        If Section_txt.Tex*****ntains(" ") Then
            MsgBox("Please Remove all spaces!")
            Return
        End If
        If Section_txt.TextLength > 1 And UserID_txt.TextLength > 1 And PW_txt.TextLength > 1 Then
            myXml.WriteString(Section_txt.Text, "UserID", UserID_txt.Text)
            myXml.WriteString(Section_txt.Text, "Password", PW_txt.Text)
            FindAccounts()
            MsgBox("Account Successfully Added!")
            Section_txt.Clear()
            UserID_txt.Clear()
            PW_txt.Clear()
            ComboBox1.Items.Clear()
            ComboBox1.Text = "Select Account"
            LoginList.Items.Clear()
            LoginList.Text = "Select Account"
            FindAccounts()

        Else
            MsgBox("Please fill in all the boxes")
        End If
    End Sub

    Private Sub PW_label_Click(sender As Object, e As EventArgs) Handles PW_label.Click

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            PW_label.Visible = True
            Label7.Text = ""
        Else
            PW_label.Visible = False
            Label7.Text = "(Password Not Visible)"
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim pList() As System.Diagnostics.Process =
            System.Diagnostics.Process.GetProcessesByName("steam")
        For Each proc As System.Diagnostics.Process In pList
            proc.Kill()
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim TabColor As New ColorDialog
        TabColor.ShowDialog()
        TabPage1.BackColor = TabColor.Color
        TabPage2.BackColor = TabColor.Color
        TabPage3.BackColor = TabColor.Color
        My.Settings.TabColor = TabColor.Color
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ButtonColor As New ColorDialog
        ButtonColor.ShowDialog()
        Login_btn.BackColor = ButtonColor.Color
        Add_btn.BackColor = ButtonColor.Color
        Button1.BackColor = ButtonColor.Color
        Button2.BackColor = ButtonColor.Color
        Button3.BackColor = ButtonColor.Color
        Button4.BackColor = ButtonColor.Color
        Button5.BackColor = ButtonColor.Color
        Button6.BackColor = ButtonColor.Color
        My.Settings.ButtonColor = ButtonColor.Color
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        My.Settings.ButtonColor = Color.Gray
        My.Settings.TabColor = Color.Silver
        Dim resp As MsgBoxResult
        resp = MsgBox("Colors have been set to default" & vbNewLine & "For changes to take effect, you need to restart the program" & vbNewLine & " " & vbNewLine & "Restart Program Now?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Form2.TabPage1.BackColor = My.Settings.TabColor
        Form2.TabPage2.BackColor = My.Settings.TabColor
        Form2.Visible = True
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        Else
            PW_txt.PasswordChar = "●"
        End If
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If ComboBox1.Text = "Select Account" Then
            MsgBox("Please Select An Account")
            Return
        End If
        Dim doc As XDocument = XDocument.Load("SteamAccs.xml")
        doc****ot.Element(ComboBox1.Text).Remove()
        doc.Save("SteamAccs.xml")
        MsgBox("Account Successfully Removed!")
        ComboBox1.Items.Clear()
        ComboBox1.Text = "Select Account"
        LoginList.Items.Clear()
        LoginList.Text = "Select Account"
        FindAccounts()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        FolderBrowserDialog1.ShowDialog()
        FolderBrowserDialog1.ShowNewFolderButton = False
        If FolderBrowserDialog1.SelectedPath = "" Then
            Return
        End If
        My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
        My.Settings.Save()
        TextBox1.Text = My.Settings.SteamLocation
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        My.Settings.SteamLocation = ""
    End Sub
End Class