Steam Account Switcher (With Source)

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.

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

Steam Account Switcher_mpgh.net.zip

Steam Account Switcher (With Source)

Post a Reply

Similar Threads

Tags for this Thread