How to Make Your own Steam Account Manager VB 6.0

[ant_spy_binns]

This is a useful Tutorial, for people who have multiple Steam accounts, and who Would like an easier way to access their accounts, In an easy programme interface.
I don't take credit for any of the following source code, but I do take credit for writing this Tutorial, so please give credit when rey posting this on any website.

All of the following source code is visual basic's 6.0

Let's begin.

First of all, open vb and open a standard Exe, next make one button and one text box, demonstrated in the picture below.



Next put the username and password of the steam account in the text box like this.



Next double Click on the command button, that we made a few minutes ago and copy and paste the following code in to it.



Code 1

Private Sub Command1_Click()
If FileExists(Trim$("steam.exe")) = True Then


Shell App.Path & ("\Steam.exe -login " & Text1.Text), vbNormalFocus
End

Else
MsgBox "" & Trim$("") & " Can?t" & _
" find Steam.exe!", vbCritical + vbOKOnly, Form1.Caption
End If
End Sub

after you have done this, also copy and paste the following code into your vb project.



Code 2

Private Function FileExists(Datei As String) As Boolean
On Error Resume Next
FileExists = Dir$(Datei) <> ""
FileExists = FileExists And Err = 0
On Error GoTo 0
End Function

Now we are finished, wasn't that easy, now just move the text Box so nobody can see it like this.



After you have finished compiling the exe, put the file in your steam directory and then everything, should work beautifully.
I hope you've enjoyed this Tutorial, if you were going to share your account manager, with your friends I would advise you to encrypt your programme, or use an Exe compressor to stop them, Decompileing your program and geting the account information.