Steam Account Switcher (With Source)

[ImWhacky]

Steam Account Switcher v1.0
By ImWhacky

I wrote this a while ago to switch in between steam accounts when I need to and I decided to release it.

---

How to use
1. Unzip ALL FILES IN ZIP FOLDER anywhere on your computer
2. Launch "Steam Account Switcher"
3. Go to "add" 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.)
4. 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.
5. Once you have selected the account you would like to use, click "Login" and it will automatically log you in.

---

Virus Scans:
Virus Total - Click here
Jotti - Click here
(The results are because of the icon converter I used to make the icon.)
I will be changing the icon in the next release, which should fix the false positives.

---

Screenshots:

---

Q&A
Q: Why would I need this?
A: This somply makes it faster to switch between accounts (Example: Main, Smurf, Hack etc...)
Q: Does this store my username and password locally?
A: Yes, in a xml file but I am working on storing it internally into the file.

---

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

'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

[MangoMunchaa]

this is fucking amazing, definitely will be using this when it's approved. thanks man!

[ImWhacky]

this is fucking amazing, definitely will be using this when it's approved. thanks man!

Anytime! thanks for the feedback!

[leet97]

Very usefull! Thanks for sharing

[ImWhacky]

Very usefull! Thanks for sharing

Thank you, anything to help!

[jordie1417]

looks awesome. Good work.

[aussie12345]

Looks beast thx <3

[ImWhacky]

looks awesome. Good work.

Thanks for the feedback!

[Sparke1011]

Looks neat might use later on

[PhY'z]

It is wrote in? VB.NET?

[NukeBorov]

what programming language did you write this program in?

[Viperious]

Amazing i cant wait to try

[COD3RIN]

It is wrote in? VB.NET?

that is VB.net base on source code

[DadDelta]

Alot of bugs.

[ImWhacky]

Alot of bugs.

Such as what? The only bug I'm aware of is when you don't extract the xml file in the same directory of the program, if you don't do that you will get an error message but if you press continue, it just makes another one. In the next release I will fix this problem

- - - Updated - - -

what programming language did you write this program in?

It is wrote in? VB.NET?

I wrote it in VB.net