Check iSMS Australia Balance with VB.net

How to Check Your Balance with VB.net

Check your balance for FREE with the sample script on the right. Do make sure that your iSMS Australia username and password is correct when doing VB.net application compilation.

The available credit balance in your account will be returned as string.

Download Demo Files

For more enquiries, please contact us via the information stated below:

Email: sales@bizcloud.asia
*Note: Please insert your Username in the email if you are a registed user

Phone Numbers:

  • +604 642 0621 (Malaysia)

Fax:

  • +604 646 8367 (Malaysia)
Imports System.IO
Imports System.Text

Public Function getBalance(ByVal iSMSusername As String, ByVal iSMSpassword As String) As String
Dim url As New System.Uri("http://www.isms.com.my/isms_balance.php?un=" + iSMSusername + "&pwd=" + iSMSpassword)
Dim req As System.Net.WebRequest
req = System.Net.WebRequest.Create(url)
Dim resp As System.Net.WebResponse
Try
resp = req.GetResponse()
Dim reader As StreamReader = New StreamReader(resp.GetResponseStream())

Dim balance_str As String = Trim(Strip(reader.ReadToEnd().Trim()))

resp.Close()
req = Nothing
Return balance_str
Catch ex As Exception
req = Nothing
Return ""
End Try
Return False
End Function