ورود

View Full Version : sms وب سرویس



aminlv
دوشنبه 19 مرداد 1394, 01:58 صبح
سلام
دوستان ممنون میشم اگر کسی با وب سرویسهای sms کار کرده راهنمایی کنه این کد که ارسال کردم تک خطی و انگلیسی ارسال می کنه ولی فارسی نه و همینطور چند خطی نمی تونه ممنون میشم راه حل بدید.

ممنونم

Dim Data
Dim request

Dim Address As String
Dim response As String
Dim XmlHttp As MSXML2.XmlHttp
Set XmlHttp = New MSXML2.XmlHttp

Address = "http://panel.asanak.ir/webservice/v1rest/sendsms"
Data = Address + "?username=XXXXX"
Data = Data + "&password=XXXXXXX"
Data = Data + "&source=9821"
Data = Data + "&destination=0912"
Data = Data + "&message=" + Text1.Text + vbCrLf & "X"

'Set type to Post
XmlHttp.open "POST", Data, False
XmlHttp.setRequestHeader "Content-Type", "html/x-www-form-urlencoded"




XmlHttp.send
MsgBox XmlHttp.responseText

meys34
سه شنبه 20 مرداد 1394, 21:11 عصر
سلام

امتحان کنید احتمالا درست بشه:

به جای این خط:
XmlHttp.setRequestHeader "Content-Type", "html/x-www-form-urlencoded"

این رو بنویسید:
XmlHttp.setRequestHeader "Content-Type", "html/x-www-form-urlencoded; charset=utf-8"