56 lines
1.8 KiB
VB.net
56 lines
1.8 KiB
VB.net
Namespace GameJolt
|
|
|
|
Public Class API
|
|
|
|
Public Const API_VERSION As String = "v1_1"
|
|
|
|
Public Shared username As String = ""
|
|
Public Shared token As String = ""
|
|
Public Shared gameJoltId As String = ""
|
|
|
|
Public Shared LoggedIn As Boolean = False
|
|
|
|
Public Shared Exception As System.Exception = Nothing
|
|
|
|
Public Shared APICallCount As Integer = 0
|
|
|
|
Public Structure JoltValue
|
|
Dim Name As String
|
|
Dim Value As String
|
|
End Structure
|
|
|
|
''' <summary>
|
|
''' Handles received data.
|
|
''' </summary>
|
|
''' <param name="data">The data to work with.</param>
|
|
Public Shared Function HandleData(ByVal data As String) As List(Of JoltValue)
|
|
'Old system:
|
|
If data.Contains("data:""" & Environment.NewLine) = True Then
|
|
data = data.Replace("data:""" & Environment.NewLine, "data:""")
|
|
End If
|
|
|
|
Dim arg() As String = {StringHelper.CrLf, StringHelper.LineFeed}
|
|
|
|
Dim list As List(Of String) = data.Split(arg, StringSplitOptions.None).ToList()
|
|
Dim joltList As New List(Of JoltValue)
|
|
|
|
For Each Item As String In list
|
|
If Item.Contains(":") = True Then
|
|
Dim ValueName As String = Item.Remove(Item.IndexOf(":"))
|
|
Dim ValueContent As String = Item.Remove(0, Item.IndexOf(":") + 2)
|
|
ValueContent = ValueContent.Remove(ValueContent.Length - 1, 1)
|
|
|
|
Dim jValue As New JoltValue
|
|
jValue.Name = ValueName
|
|
jValue.Value = ValueContent
|
|
|
|
joltList.Add(jValue)
|
|
End If
|
|
Next
|
|
|
|
Return joltList
|
|
End Function
|
|
|
|
End Class
|
|
|
|
End Namespace |