Steam Account Switcher (With Source)
Steam Account Switcher v1.0
By ImWhacky
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
Originally Posted by MangoMunchaa
