Sub SendWinSMS(country As String,mobile As String,message As String, form As Object)
ProgressDialogShow("Loading, please wait...")
DoEvents
Dim WinSMS As String
Dim winSmsUser As String: winSmsUser="anele@mbangas.com"
Dim winSmsPwd As String: winSmsPwd="XXXXXXX"
' remove zero from mobile phone and put country code infront
' we will assume 27 for south africa
mobile = FixMobile(mobile)
mobile = mobile.SubString(1)
mobile = country & mobile
' define the sms sender for winsms
message = EscapeURL(message)
WinSMS = "user=" & winSmsUser & "&password=" & winSmsPwd & "&message=" & message & "&Numbers=" & mobile & ";"
Dim url As String = "http://www.winsms.co.za/api/batchmessage.asp"
Dim Job1 As HttpJob
Job1.Initialize("SendWinSMS", form)
Job1.Tag = mobile
Job1.PostString(url, WinSMS)
End Sub