Area 51 Servers

Code: Select all

    Public Class SteamIDInfo
        Public Function GetSteamIDInfo(ByVal Type As String, ByVal ID As String, ByVal Element As String)
            If String.IsNullOrEmpty(ID) Then
                Return Nothing
            End If
            Dim reqUrl As String = "http://steamcommunity.com/" + Type + "/" + ID + "/?xml=1"
            Dim httpReq As HttpWebRequest = TryCast(HttpWebRequest.Create(reqUrl), HttpWebRequest)
            Try
                Dim result As String = String.Empty
                Dim response As HttpWebResponse = TryCast(httpReq.GetResponse(), HttpWebResponse)
                Using reader = New StreamReader(response.GetResponseStream())
                    result = reader.ReadToEnd()
                End Using
                Return ProcessResponse(result, Element)
            Catch ex As Exception
                Throw
            End Try
        End Function

        Private Function ProcessResponse(ByVal strResp As String, ByVal TheElement As String)
            Dim Result As String = Nothing
            Dim sr As New StringReader(strResp)
            Dim respElement As XElement = XElement.Load(sr)
            Dim tmpEle As String = respElement.Element(TheElement)
            Return tmpEle
        End Function
    End Class

Code: Select all

    Private Shared intBigNum As Long = 76561197960265728

    Private Function GetCommunityId(ByVal pSteamId As String) As String
        pSteamId = Trim(pSteamId)
        pSteamId = UCase(pSteamId)
        Dim strRegEx As String = "\bSTEAM_[0-1]:[0-1]:(\d+)\b"
        If RegularExpressions.Regex.IsMatch(pSteamId, strRegEx) Then
            pSteamId = pSteamId.Substring(6)
            Dim arrParts() As String = pSteamId.Split(":")
            Dim intAuthSvr1 As Integer = arrParts(0)
            Dim intAuthSvr2 As Integer = arrParts(1)
            Dim intClientNum As Long = arrParts(2)
            Return CType(intBigNum + intAuthSvr2 + (intClientNum * 2), String)
        Else
            Return CStr(0)
        End If
    End Function

    Private Function GetSteamId(ByVal pCommunityId As String) As String
        If pCommunityId.Length = 17 And IsNumeric(pCommunityId) = True Then
            Dim intCommunityId As Long = CType(pCommunityId, Long)
            Dim intAuthSvr1 As Integer = 0
            Dim intAuthSvr2 As Integer = Nothing
            If intCommunityId Mod 2 Then
                intAuthSvr2 = 1
            Else
                intAuthSvr2 = 0
            End If
            Dim intClientNum As Long = (intCommunityId - intBigNum - intAuthSvr2) / 2
            Return "STEAM_" & CStr(intAuthSvr1) & ":" & CStr(intAuthSvr2) & ":" & CStr(intClientNum)
        Else
            Return CStr(0)
        End If
    End Function