PB9中的短信服务

Question

美好的一天。

我正在使用Pb9并想知道是否可以从我的应用程序发送短信？ 我在这个论坛中找到了pb11.5的相关文章，但它对我帮助不大。

如果可能 - 那么有人可以发布一些示例代码。

提前致谢。 亚历

Answer 1

这是我用于短信服务提供商的功能 - Clickatell。

public function boolean wf_sendsms（string as_phonenbr，string as_message）; //发送sms消息

OLEObject objHTTP
字符串ls_API，ls_User，ls_Pass，ls_From
字符串ls_URL，ls_Response

ls_API =“?????” ls_User =“?????” ls_Pass =“?????”
ls_From =“18887776666”

objHTTP =创建OLEObject

如果objHTTP.ConnectToNewObject（“MSXML2.ServerXMLHTTP”）＆lt; 0然后
返回假 结束如果

ls_URL =“http://api.clickatell.com/http/sendmsg？” ls_URL + =“api_id =”+ ls_API +“＆amp; user =”+ ls_User
ls_URL + =“＆amp; password =”+ ls_Pass +“＆amp; from =”+ ls_From
ls_URL + =“＆amp; to = 1”+ as_phonenbr +“＆amp; mo = 1”+“＆amp; text =”+ as_message

objHTTP.Open（“POST”，ls_URL，False）
objHTTP.setRequestHeader（“Content-Type”，“text / xml”）
objHTTP.Send（）

ls_Response = objHTTP.responseText

mle_result.Text = ls_Response

objHTTP.DisconnectObject（）

销毁objHTTP

返回True

结束功能