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
دوستان ممنون میشم اگر کسی با وب سرویسهای 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