[StarZ]

Username History Grabber: (Click to View)



Link: http://www.multiupload.com/E0CT267XLR


Game Grabber: (Click to View)




Link: http://www.multiupload.com/TQ8WXEYETR


VAC Status Grabber: (Click to View)



Link: http://www.multiupload.com/XA22BQ2UUK


Date of Creation Grabber: (Click to View)



Link: http://www.multiupload.com/269QID2R38


Steam ID >< Community ID Conversion: (Click to View)



Link: http://www.multiupload.com/3234Q0I1PY


Steam POST Login: (Click to View)

Code

Function SteamLogin(ByVal User As String, ByVal Pass As String)
  Dim Cookies As New CookieContainer
  Dim WebR As HttpWebRequest = DirectCast(WebRequest.Create("https://steamcommunity.com/login/dologin/"), HttpWebRequest)
  Dim PostData As Byte() = System.Text.Encoding.ASCII.GetBytes("username=" & User & "&password=" & Pass & "&emailauth=&captchagid=-1&captcha_text=&emailsteamid=")

  WebR.Method = "POST"
  WebR.AllowAutoRedirect = True
  WebR.CookieContainer = Cookies
  WebR.KeepAlive = True
  WebR.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:8.0) Gecko/20100101 Firefox/8.0"
  WebR.ContentType = "application/x-www-form-urlencoded"
  WebR.Referer = "https://steamcommunity.com/"
  WebR.ContentLength = PostData.Length

  Dim StreamWriter As System.IO.Stream = WebR.GetRequestStream()
  StreamWriter.Write(PostData, 0, PostData.Length)
  StreamWriter.Dispose()

  Dim WebResponse As HttpWebResponse = DirectCast(WebR.GetResponse, HttpWebResponse)

  Dim StreamReader As New System.IO.StreamReader(WebResponse.GetResponseStream)
  Dim PageHTML As String = StreamReader.ReadToEnd()

  If PageHTML.Contains("steamid") Then ' This don't detect SteamGuarded accounts.
    Return True
  Else
    Return False
  End If

    End Function

Steam GET Login: (Click to View)

Code

Function SteamIsValid(ByVal Username As String, ByVal Password As String)
  Dim wc = New Net.WebClient
  Dim result = wc.DownloadString("https://steamcommunity.com/login/dologin/?username=" & Username & "&password=" & Password)
  If result.Contains("""emailauth_needed"":true,""") Then
    Return "Steam Guard." 'You can also grab the SteamGuard E-Mail's domain from this (ex: Gmail.com).
  End If
  If result.Contains("success"":true") Then
    Return "No Steam Guard. "
  End If
  If result.Contains("success"":false") Then
    Return "Invalid Credentials."
  End If
    End Function

[Weakky.]

You are using a function without returning any value. Why don't you simply use a sub ? Anyway, pretty nice function ! Thanks for the share :)

[StarZ]

I had it returning a List for my initial test.

I forgot to switch it.

[Cody8295]

Here's another method, gets the date as well:

Code

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  ReturnNameHistory("http://steamcommunity.com/id/8295", ListView1)
    End Sub

    Sub ReturnNameHistory(ByVal url As String, ByVal lv As ListView)
  Dim rl As New ListView.ListViewItemCollection(lv)
  Dim s As String = New Net.WebClient().DownloadString(url & "/namehistory")
  Dim non As Integer = System.Text.RegularExpressions.Regex.Matches(s, System.Text.RegularExpressions.Regex.Escape("-</span>")).Count
  For i As Integer = 2 To non Step 2
    rl.Add(New ListViewItem(Split(s, "-</span>")(i).Split("<")(0).Replace(ChrW(9), "")))
    rl.Item(rl.Count - 1).SubItems.Add(Split(s, """historyDate"">")(i / 2).Split("<")(0))
  Next
    End Sub

[StarZ]

Thanks, Cody! I'm not the best with RegEx. Thanks for your Alternative Method!

[(╯°□°）╯︵ ┻━━┻]

Nice share. Just wondering, how do you get the code transparent?

[StarZ]

What do you mean, (╯°□°）╯︵ ┻━━┻? Cody used the [code] tags, I posted an image.

[Marketplace]

Nice share. Just wondering, how do you get the code transparent?

It's not transparent. The pic is darker than the HF skin

[(╯°□°）╯︵ ┻━━┻]

Oh, it looked transparent at a glance. But what did you do to put it on that background..?

[T3amworkz]

It's not working very correctly for me It finds a previous name but also an totally random

[Cody8295]

Oh, it looked transparent at a glance. But what did you do to put it on that background..?

I made a tread a while back:

https://hackforums.net/showthread.php?tid=1183407

[(╯°□°）╯︵ ┻━━┻]

I made a tread a while back:

https://hackforums.net/showthread.php?tid=1183407

Thank you very much cody! Now to get HF's color...

[StarZ]

Added a Game Parser. Parses the AppID ( http://store.steampowered.com/app/ & AppID for a link to the game itself...) And the Games Name.

[Chewbaka]

Here is more cleaner regex for the game grabber.

Code

Dim r As New Regex("rgGames\['(?<id>[\d]+)'\] = '(?<game>.*)';")

[StarZ]

Yeah, I could use grouping, or just return it as a MatchCollection. But, I like to leave the end user a little to do. :)