Steam Account Switcher v3.0

Steam Account Switcher 3.0
By ImWhacky

How to use
1. Launch "Steam Account Switcher"
2. Select Your Steam Directory
3. Select Where You Want Your Account File To Be Saved.
4. Go to "Account" tab and enter account information (If you are not feeling safe about this, look below this and i have the source code, you can compile it yourself if you want just to be sure its not a key logger.)
5. Once you have added the accounts that you wish to use, go to the first tab and select the account from the drop-down box.
6. Select the game you would like to auto-launch (Optional)
7. Click "Login" and it will automatically log you in.

Virus Scans:
Virus Total - Click here
Jotti - Click here

Screenshots:

More Pictures

Changelog:
v1.0
- Initial Release
- Released on mpgh.net to find and fix bugs
v2.0
- Added Color Customization.
- Added Logout button, simply logs you out of steam.
- Added automatic creation of SteamAccs.xml file,
no need to bring it from the zip file anymore!
- Changed Appearance of information screen
- Added options tab (To be expanded upon in the future)
- Added Account Created Confirmation Message
- Added "Show Password" option in add account page
If the checkbox is not checked, a hidden character will show instead
of the letters of the password.
- Fixed no colors showing bug
- Added "Remove Account" Option
- Fixed Error that occured when you used spaces while trying
to creat an account
- Removed all false positives in virus scan
v2.5
- Added Option to Choose Custom Account File Directory
- Added Steam Status Tab (Make Sure Steam Is Online)
- Added Steam Version Checker (Make Sure Your Steam Is Up
To Date!)
- Moved "Remove Account" To Account Tab
- Organized Options Tab
- Made Window Bigger (Making Room For New Features in
Next Update!)
- Fixed Error That Occured While Making Account File
- Fixed Color Selection Error
- Fixed Error On Launch Caused By Sloppy Code (My Bad)
- Fixed Errors That Occured While Trying To Remove Account
(There Were A Lot So I Didnt List Them All)
v3.0
- Added Game Selector (Automatically Launches Game At Steam Startup)
- Squashed Some Bugs
- Added Directory Clear Confirmation
- Cleaned Up Options Screen
- Re-Wrote Login code #toomessy
- Added Some New Hidden Features
- Increased Performance/Speed Of SAS
- Switched "Steam Info" and "Options" tab
- Fixed Bug Where File Directory Dialogs Were Not Showing Up
- Decreased SAS Startup Time
- Added Option To Check Steam Status instead of doing it automatically! (It speeds up the program a lot)
- Fixed Bug Where It Will Not Log You In When You Log In Again... (im an idiot and disabled it for testing purposes and never re-enabled it)

v4.0 (Not Released Yet, These are features that I will be implementing)
- Complete Re-Design Of The Tool
- File Encryption for account file (more security)
- Performance improvements
- Remove bugs
- Add lots of features (yet to be determined)
Version 4.0 Will Not Be Released until all of these things have been implemented into the final build. If there are any bugs that people tell me about, I will release a bug-fix update (3.1) with the fixed bugs when I get the time.

Source :
I always release the source codes for my projects to make you feel as safe as possible.

v1.0

Code:

'Made By ImWhacky
'MPGH Exclusive

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

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        User_label.Text = "(Select Account)"
        PW_label.Text = "(Select Account)"
        myXml.Filename = ("SteamAccs.xml")
        myXml****ot = ("Main")
        FindAccounts()
        If CheckBox1.Checked Then
            PW_label.Visible = True
            Label7.Text = ""
        Else
            PW_label.Visible = False
            Label7.Text = "(Password Not Visible)"
        End If
        TabPage2.BackColor = TabPage1.BackColor
        Login_btn.BackColor = Add_btn.BackColor
    End Sub

    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)
        Next
    End Sub

    Private Sub Login_btn_Click(sender As Object, e As EventArgs) Handles Login_btn.Click
        Dim proc = Process.GetProcessesByName("Steam")
        For i As Integer = 0 To proc.Count - 1
            proc(i).Kill()
        Next i
        Process.Start("C:\Program Files (x86)\Steam\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
    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.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()
        Else
            MsgBox("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 Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click
        Form2.Visible = True
    End Sub
End Class

v2.0

Code:

'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

v2.5

There may or may not be hints of v3.0 In here

Code:

'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()
            My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
            My.Settings.Save()

        Else
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        End If
        If My.Settings.AccountFile.Length < 1 Then
            MsgBox("Please Select/Create the folder where you want your account file to be saved")
            FolderBrowserDialog2.ShowDialog()
            My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
            My.Settings.Save()
        Else
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        End If
        TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        User_label.Text = "(Select Account)"
        PW_label.Text = "(Select Account)"
        If My.Computer.FileSystem.FileExists(My.Settings.AccountFile + "\" + "SteamAccs.xml") Then
            myXml.Filename = (My.Settings.AccountFile + "\" + "SteamAccs.xml")
            myXml****ot = ("Main")
            FindAccounts()
        Else
            Dim path As String = My.Settings.AccountFile + "\" + "SteamAccs.xml"
            Dim fs As FileStream = File.Create(path)
            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
        TabPage4.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
        Button9.BackColor = My.Settings.ButtonColor
        Button10.BackColor = My.Settings.ButtonColor
        Button11.BackColor = My.Settings.ButtonColor
        Timer1.Start()

        If My.Computer.Network.Ping("208.78.164.12") Then
            Label18.ForeColor = Color.Green
            Label18.Text = "Online"
        Else
            Label18.ForeColor = Color.Red
            Label18.Text = "Offline"
        End If
        If My.Computer.Network.Ping("72.165.61.187") Then
            Label16.ForeColor = Color.Green
            Label16.Text = "Online"
        Else
            Label16.ForeColor = Color.Red
            Label16.Text = "Offline"
        End If
    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(My.Settings.AccountFile + "\" + "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
            'If CheckBox2.Checked = False Then
            Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
            'Else
            'Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
            'Process.Start(My.Settings.SteamLocation + "\Steam.exe", "steam://run/730")
            'Dim sCommand As String
            'sCommand = "Start 'C:\Program Files (x86)\Steam\Steam.exe' steam://run/730"
            'Shell("cmd.exe /c" & sCommand)
            ' Process.Start("cmd", "Start 'C:\Program Files (x86)\Steam\Steam.exe' steam://run/" + Label10.Text)
            'End If
        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()
        If TabColor.Color.IsEmpty Then
            My.Settings.TabColor = Color.Silver
            TabPage1.BackColor = Color.Silver
            TabPage2.BackColor = Color.Silver
            TabPage3.BackColor = Color.Silver
        Else
            TabPage1.BackColor = TabColor.Color
            TabPage2.BackColor = TabColor.Color
            TabPage3.BackColor = TabColor.Color
            TabPage4.BackColor = TabColor.Color
            My.Settings.TabColor = TabColor.Color
        End If
    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
        Button7.BackColor = ButtonColor.Color
        Button8.BackColor = ButtonColor.Color
        Button9.BackColor = ButtonColor.Color
        Button10.BackColor = ButtonColor.Color
        Button11.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.TabPage3.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(My.Settings.AccountFile + "\" + "SteamAccs.xml")
        doc****ot.Element(ComboBox1.Text).Remove()
        doc.Save(My.Settings.AccountFile + "\" + "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.ToString + "\Steam.exe"
    End Sub

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

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        FolderBrowserDialog2.ShowDialog()
        FolderBrowserDialog2.ShowNewFolderButton = False
        If FolderBrowserDialog2.SelectedPath = "" Then
            Return
        End If
        My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
        My.Settings.Save()
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        My.Settings.AccountFile = ""
    End Sub

    ' Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
    ' LoginList.Visible = False
    'GroupBox1.Visible = False
    ' Login_btn.Visible = False
    'GameSelection.Show()
    'GameSelection.Button1.BackColor = My.Settings.ButtonColor
    'GameSelection.BackColor = My.Settings.TabColor
    ' End Sub

    Private Sub Label12_Click(sender As Object, e As EventArgs) Handles Label12.Click
        System.Diagnostics.Process.Start("https://steamstat.us/")
    End Sub

    'Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    'If ListBox1.Text = "Dota 2" Then
    '        Label10.Text = "570"
    '       Label2.Text = "570"
    'End If
    'If ListBox1.Text = "Counter-Strike: Global Offensive" Then
    '       Label10.Text = "730"
    '      Label2.Text = "730"
    'End If
    'If ListBox1.Text = "Team Fortress 2" Then
    '       Label10.Text = "440"
    '      Label2.Text = "440"
    'End If
    'If ListBox1.Text = "ARK: Survival Evolved" Then
    '       Label10.Text = "346110"
    '      Label2.Text = "346110"
    'End If
    'If ListBox1.Text = "Garry's Mod" Then
    '       Label10.Text = "4000"
    '      Label2.Text = "4000"
    'End If
    'If ListBox1.Text = "The Elder Scrolls V: Skyrim" Then
    '       Label10.Text = "72850"
    '      Label2.Text = "72850"
    'End If
    'If ListBox1.Text = "Grand Theft Auto V" Then
    '       Label10.Text = "271590"
    '      Label2.Text = "271590"
    'End If
    'If ListBox1.Text = "Warframe" Then
    '       Label10.Text = "230410"
    '      Label2.Text = "230410"
    'End If
    'End Sub
End Class

v3.0

Code:

'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
        Timer2.Start()
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        If My.Settings.SteamLocation.Length < 1 Then
            MsgBox("Please Select Your Steam Directory.", vbSystemModal)
            FolderBrowserDialog1.ShowDialog()
            My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
            My.Settings.Save()

        Else
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        End If
        If My.Settings.AccountFile.Length < 1 Then
            MsgBox("Please Select Where you want your Account File To Be Saved.", vbSystemModal)
            FolderBrowserDialog2.ShowDialog()
            My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
            My.Settings.Save()
        Else
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        End If
        TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        User_label.Text = "(Select Account)"
        PW_label.Text = "(Select Account)"
        If My.Computer.FileSystem.FileExists(My.Settings.AccountFile + "\" + "SteamAccs.xml") Then
            myXml.Filename = (My.Settings.AccountFile + "\" + "SteamAccs.xml")
            myXml****ot = ("Main")
            FindAccounts()
        Else
            Dim path As String = My.Settings.AccountFile + "\" + "SteamAccs.xml"
            Dim fs As FileStream = File.Create(path)
            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
        TabPage4.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
        Button9.BackColor = My.Settings.ButtonColor
        Button10.BackColor = My.Settings.ButtonColor
        Button11.BackColor = My.Settings.ButtonColor
        Button12.BackColor = My.Settings.ButtonColor
        Button13.BackColor = My.Settings.ButtonColor
        Button14.BackColor = My.Settings.ButtonColor
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
    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(My.Settings.AccountFile + "\" + "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
            If Label10.Text = "-" Then
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
            Else
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
                System.Threading.Thread.Sleep(10000)
                MsgBox("Click 'Ok' When You Want To Launch Your Game!", vbSystemModal,)
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-applaunch " + Label21.Text)
            End If
        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()
        If TabColor.Color.IsEmpty Then
            My.Settings.TabColor = Color.Silver
            TabPage1.BackColor = Color.Silver
            TabPage2.BackColor = Color.Silver
            TabPage3.BackColor = Color.Silver
        Else
            TabPage1.BackColor = TabColor.Color
            TabPage2.BackColor = TabColor.Color
            TabPage3.BackColor = TabColor.Color
            TabPage4.BackColor = TabColor.Color
            My.Settings.TabColor = TabColor.Color
        End If
    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
        Button7.BackColor = ButtonColor.Color
        Button8.BackColor = ButtonColor.Color
        Button9.BackColor = ButtonColor.Color
        Button10.BackColor = ButtonColor.Color
        Button11.BackColor = ButtonColor.Color
        Button12.BackColor = ButtonColor.Color
        Button13.BackColor = ButtonColor.Color
        Button14.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.TabPage3.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(My.Settings.AccountFile + "\" + "SteamAccs.xml")
        doc****ot.Element(ComboBox1.Text).Remove()
        doc.Save(My.Settings.AccountFile + "\" + "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.ToString + "\Steam.exe"
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim resp As MsgBoxResult
        resp = MsgBox("Are you sure that you want to clear your steam file directory?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            My.Settings.SteamLocation = ""
            TextBox1.Text = ""
        Else
            Return
        End If
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        FolderBrowserDialog2.ShowDialog()
        FolderBrowserDialog2.ShowNewFolderButton = False
        If FolderBrowserDialog2.SelectedPath = "" Then
            Return
        End If
        My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
        My.Settings.Save()
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim resp As MsgBoxResult
        resp = MsgBox("Are you sure that you want to clear the SAS files directory?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            My.Settings.AccountFile = ""
            TextBox2.Text = ""
        Else
            Return
        End If
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        LoginList.Visible = False
        GroupBox1.Visible = False
        Login_btn.Visible = False
        ListBox1.Visible = True
        Label9.Visible = True
        Label10.Visible = True
        Button11.Visible = False
        Button13.Visible = True
        Button14.Visible = True
    End Sub

    Private Sub Label12_Click(sender As Object, e As EventArgs) Handles Label12.Click
        System.Diagnostics.Process.Start("https://steamstat.us/")
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If ListBox1.Text = "Dota 2" Then
            Label10.Text = "570"
            Label21.Text = "570"
        End If
        If ListBox1.Text = "Counter-Strike: Global Offensive" Then
            Label10.Text = "730"
            Label21.Text = "730"
        End If
        If ListBox1.Text = "Team Fortress 2" Then
            Label10.Text = "440"
            Label21.Text = "440"
        End If
        If ListBox1.Text = "ARK: Survival Evolved" Then
            Label10.Text = "346110"
            Label21.Text = "346110"
        End If
        If ListBox1.Text = "Garry's Mod" Then
            Label10.Text = "4000"
            Label21.Text = "4000"
        End If
        If ListBox1.Text = "The Elder Scrolls V: Skyrim" Then
            Label10.Text = "72850"
            Label21.Text = "72850"
        End If
        If ListBox1.Text = "Grand Theft Auto V" Then
            Label10.Text = "271590"
            Label21.Text = "271590"
        End If
        If ListBox1.Text = "Warframe" Then
            Label10.Text = "230410"
            Label21.Text = "230410"
        End If
    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        LoginList.Visible = True
        GroupBox1.Visible = True
        Login_btn.Visible = True
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        Button11.Visible = True
        Timer1.Start()
    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        LoginList.Visible = True
        GroupBox1.Visible = True
        Login_btn.Visible = True
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        Button11.Visible = True
        Label10.Text = "-"
        Label21.Text = "-"
        Timer1.Stop()
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If ListBox1.Text = "Dota 2" Then
            Label10.Text = "570"
        End If
        If ListBox1.Text = "Counter-Strike: Global Offensive" Then
            Label10.Text = "730"
        End If
        If ListBox1.Text = "Team Fortress 2" Then
            Label10.Text = "440"
        End If
        If ListBox1.Text = "ARK: Survival Evolved" Then
            Label10.Text = "346110"
        End If
        If ListBox1.Text = "Garry's Mod" Then
            Label10.Text = "4000"
        End If
        If ListBox1.Text = "The Elder Scrolls V: Skyrim" Then
            Label10.Text = "72850"
        End If
        If ListBox1.Text = "Grand Theft Auto V" Then
            Label10.Text = "271590"
        End If
        If ListBox1.Text = "Warframe" Then
            Label10.Text = "230410"
        End If
    End Sub

    Private Sub Label23_Click(sender As Object, e As EventArgs) Handles Label23.Click
        If My.Computer.Network.Ping("208.78.164.12") Then
            Label18.ForeColor = Color.Green
            Label18.Text = "Online"
        Else
            Label18.ForeColor = Color.Red
            Label18.Text = "Offline"
        End If
        If My.Computer.Network.Ping("72.165.61.187") Then
            Label16.ForeColor = Color.Green
            Label16.Text = "Online"
        Else
            Label16.ForeColor = Color.Red
            Label16.Text = "Offline"
        End If
        If Label16.Text = "Online" Then
            Label14.ForeColor = Color.Green
            Label14.Text = "Up To Date"
        Else
            Label14.ForeColor = Color.Green
            Label14.Text = "Up To Date"
        End If
    End Sub

End Class

Steam Account Switcher v3.0_mpgh.net.zip

Steam Account Switcher v3.0

Post a Reply

Similar Threads

Tags for this Thread