问PB9中的短信服务

EN

这是我和我们的SMS提供商一起使用的函数- Clickatell。

公有函数boolean wf_sendsms (string as_phonenbr，string as_message);//发送短信

OLEObject objHTTP

String ls_API、ls_User、ls_Pass、ls_From

String ls_URL，ls_Response

ls_API =“？”

ls_User =“？”

ls_Pass =“？”

ls_From = "18887776666“

objHTTP =创建OLEObject

如果objHTTP.ConnectToNewObject("MSXML2.ServerXMLHTTP") <0，则

*返回错误

结束If

ls_URL = "http://api.clickatell.com/http/sendmsg?“

ls_URL += "api_id=“+ ls_API + "&user=”+ ls_User

ls_URL += "&password=“+ ls_Pass + "&from=”+ ls_From

ls_URL += "&to=1“+ as_phonenbr + "&mo=1”+ "&text=“+ as_message

objHTTP.Open("POST"，ls_URL，False)

ObjHTTP.setRequestHeader(“内容类型”，“文本/xml”)

objHTTP.Send()

ls_Response = objHTTP.responseText

mle_result.Text = ls_Response

objHTTP.DisconnectObject()

销毁objHTTP

返回True

end函数