سؤال في ال Http Api لارسال رسائل نصية قصيرة

Slayer666 كتب:

HttpWebRequest :wink:

سهلة الاستخدام و تنفع باليوم الاسود

Public Function snt_ver_code(ByVal mob, ByVal ver_code) As String

'MsgBox(ver_code, MsgBoxStyle.Critical)

Dim str As String = "http://smpp2.xxxxx.com:8080/bulksms/bulksms?username=xxx&password=xxxx&type=0&dlr=0&destination="

str += mob

str += "&source=System&message=Your have successfuly registered at xxxxx and your registration code is : " & ver_code

Try

Dim uri As New Uri(str)

Dim data As String = "field-keywords=ASP.NET 2.0"

If uri.Scheme = uri.UriSchemeHttp Then

Dim request As HttpWebRequest = HttpWebRequest.Create(uri)

request.Proxy = request.DefaultWebProxy

request.KeepAlive = False

request.Method = WebRequestMethods.Http.Post

request.ContentLength = data.Length

request.ContentType = "application/x-www-form-urlencoded"

Dim writer As New StreamWriter(request.GetRequestStream)

writer.Write(data)

writer.Close()

Dim oResponse As HttpWebResponse = request.GetResponse()

Dim reader As New StreamReader(oResponse.GetResponseStream())

Dim tmp As String = reader.ReadToEnd()

oResponse.Close()

End If

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Critical)

End Try

Return ("tmp")

End Function

================================================================================

====

يا أخ سلاير انا جربت طريقتك اللي اقترحتها و الحمد لله شغالة معاي 100 % على الويب سيرفر المحلي اللي على جهازي و لكن لما رفعت الموقع على الهوست الاكسبشن عطاني المسج التالي :

Unable to connect to the remote server

ما ادري اذا كان عندك حل لهاي المشكلة ؟؟؟؟؟؟

الكود اللي مستخدمه مكتوب في الاعلى