Dim web As New System.Net.WebClient()
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes("q=asp.net")
Dim res As Byte() = web.UploadData("http://www.commzgate.net/gateway/SendMsg?ID=YourIDg&Password=YourPassword&Mobile=6598888888&Message=test&Type=A", "POST", d)
Console.Write(System.Text.Encoding.ASCII.GetString(res))
Dim objWinHttp
Dim strResponseStatus
Dim strResponseText
Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.Open "POST", "http://www.commzgate.net/gateway/SendMsg", False
objWinHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objWinHttp.Send "ID=YourIDg&Password=YourPassword&Mobile=6598888888&Message=test&Type=A" & Server.URLEncode(Now())
strResponseStatus = objWinHttp.Status & " " & objWinHttp.StatusText
strResponseText = objWinHttp.ResponseText
Set objWinHttp = Nothing
1 to 27 of 27