Imports System
Imports System.Uri
Imports System.Net
Imports System.IO
Imports System.Data
Imports System.Windows.Forms
Imports System.Text



Public Class isms_balance
'This is a function when user has clicked on button check'
Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
'Checking if user leave blank on username and password space'
If (txtPass.Text() & txtUser.Text() <> "") Then
'Creating a uri'
Dim url As New Uri("https://www.isms.com.my/isms_balance.php?un=" + txtUser.Text + "&pwd=" + txtPass.Text)
'Creating a variable for WebRequest'
Dim req As WebRequest
req = WebRequest.Create(url)
'Creating a variable for WebResponse'
Dim resp As WebResponse
'Try and catch clause, to catch if there is error'
Try
resp = req.GetResponse()
Dim reader As StreamReader
reader = New StreamReader(resp.GetResponseStream())
Dim balance_str As String = Trim(reader.ReadToEnd.Trim())
resp.Close()
'Getting user balance into a label'
lblGetBal.Text = balance_str
req = Nothing
Catch ex As Exception
'If get error system will pop-out a message'
req = Nothing
MsgBox(ex.Message)
End Try
txtPass.Clear()
txtUser.Clear()
txtUser.Focus()
btnClear.Visible = True
btnClear.Enabled = True
Else
'A message box will appear when username and password is blank'
MessageBox.Show("Please enter your Username and Password", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtUser.Focus()
lblGetBal.Text = ""
btnClear.Visible = True
End If
End Sub
'A Clear button to let user clear our previous checked balance'
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtPass.Clear()
txtUser.Clear()
lblGetBal.Text = ""
End Sub
End Class