Steam Account Checker Funkt nicht ganz

[J4N_2142]

Hey Forum ich habe probiert einen Steam Account checker zu coden aber unzar habe ich folgendes problem [wenn ich mich einloge kommt immer Invaild obwohl der account vaild ist ;/]

So sieht er aus:


Source: [Picbox.click]
_

 
WebBrowser1.Document.GetElementById("input_username").SetAttribute("value", TextBox1.Text)

        WebBrowser1.Document.GetElementById("input_password").SetAttribute("value", TextBox2.Text)

        WebBrowser1.Navigate("javascript:document.forms[0].submit()")

        Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop

        If WebBrowser1.Url = New Uri("http://store.steampowered.com/") Then

            MsgBox("Account Valid")
            WebBrowser1.Navigate("http://store.steampowered.com/logout/")
            Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                Application.DoEvents()
            Loop
            WebBrowser1.Navigate("https://store.steampowered.com/login/")
            Application.Restart()
        Else
            MsgBox("Account Invalid")


        End If
_

3. Gibt es noch eine andere art die schneller ist dierekt über steam weil Webbrowser > Login >Checkt >Vaild dauert bischen langer

3.2 vllt hier mit is ein alter Steam checker nachteil sagt nicht gleich ob der account vaild is oder nicht logt sich halt nur in steam ein

3.3 Hier ein Screen vom Login checker


3.4 Source vom Login Checker

Private Sub Steam_Login_Checker_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows NT\CurrentVersion")
Registry.CurrentUser.OpenSubKey("software/valve/steam", False)
Dim bytDPID() As Byte = RegKey.GetValue("ModInstallPath")
Dim steampath As String
Dim keystring As RegistryKey
keystring = Registry.CurrentUser.OpenSubKey("Software\Valve\Steam")
steampath = keystring.GetValue("SteamPath")
keystring.Close()
End Sub

_
um einzulogen:

 Shell("C:\Program Files (x86)\Steam" & "\Steam.exe -login " & "HIERDERUSERNAME" & " " & "HIERDASPASSWORT")
_

3.5 vllt kann man den ja so ausbauen das der sich nur kurtz einlogt und sagt ob der acc vaild is oder nicht

4. Habt ihr vllt auch ein Steam Check Programm was auch die games anzeigt und mir die sourcecodes geben könnt ?

mfg Jan2142