Retrieve your iSMS SMS credit balance using VB.NET and HttpClient — modern async pattern.
Post your credentials as JSON to retrieve the current credit balance. Available for prepaid accounts only — postpaid accounts receive an INVALID ACCOUNT TYPE response.
https://www.isms.com.my/isms_balance_json.phpImports System.Net.Http
Imports System.Text
Imports System.Text.Json
Module IsmsBalance
Private ReadOnly _client As New HttpClient()
Async Function GetBalanceAsync(un As String, pwd As String) As Task(Of String)
Dim body = JsonSerializer.Serialize(New With {.un = un, .pwd = pwd})
Dim content As New StringContent(body, Encoding.UTF8, "application/json")
Dim res = Await _client.PostAsync(
"https://www.isms.com.my/isms_balance_json.php", content)
Return Await res.Content.ReadAsStringAsync()
End Function
Sub Main()
Dim raw = GetBalanceAsync("myusername", "mypassword").Result
Using doc = JsonDocument.Parse(raw)
Dim root = doc.RootElement
If root.GetProperty("status").GetString() = "success" Then
Console.WriteLine("SMS Credits Remaining: " & root.GetProperty("balance").GetString())
Else
Console.WriteLine("Error: " & root.GetProperty("message").GetString())
End If
End Using
End Sub
End Module{ "status": "success", "code": 0,
"username": "myusername",
"balance": "1500" }{ "status": "error", "code": -1001,
"message": "-1001 = AUTHENTICATION FAILED" }-1003.Contact our team — we reply within 1 business day.