sms - PB9中的短信服务

Question

再会。

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

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

提前致谢。亚历克斯

Answer 1

这是我与我们的 SMS 提供商 - Clickatell 一起使用的一个功能。

public function boolean wf_sendsms(string as_phonenbr, string as_message);//发送短信

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

If objHTTP.ConnectToNewObject("MSXML2.ServerXMLHTTP") < 0 Then
    Return False
End 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("Content-Type", "text/xml")
objHTTP.Send()

ls_Response = objHTTP.responseText

mle_result.Text = ls_Response

objHTTP.DisconnectObject()

销毁 objHTTP

返回真

结束函数