Question

如何用VB6实现短信发布功能

问：某短信公司的短信接口文档如下：

短信发送
HTTP格式：

(提示：将网址粘贴到地址栏上，相当于发布短信，同时页面会有返回值，如下图)
短信供应商在接收到客户端发送的http请求后，返回以xml的方式返回处理结果
Visual Basic code?
<returnsms>
<returnstatus>Success</returnstatus>
<message>操作成功</message>
<remainpoint>19</remainpoint>
<taskID>1505111731477934</taskID>
<successCounts>1</successCounts>
</returnsms>

请问，如何用VB6实现上面的短信发布功能。
提示，在Form1窗体上，已有帐号、密码、手机号码、内容的Textbox控件，但不知道用什么方式实现短信发布，要求能判断返回值，求可行的代码方案。

Answer 1

Visual Basic code

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) As Long

Private Sub Command1_Click()
Dim lErrCode As Long

Dim sResult As String

sResult = App.Path & "\result.xml"

Me.MousePointer = vbHourglass

'url太长，代码中就不贴了'
lErrCode = URLDownloadToFile(0, "http://xintx.telhk.cn/sms.aspx?...", sResult, 0, 0)

MsgBox IIf(lErrCode, "错误 #" & lErrCode, "收到反馈。")

Me.MousePointer = vbDefault

End Sub

然后你就可以对这个 result.xml 进行解析了。
Plain Text code

<?xml version="1.0" encoding="utf-8" ?>
<returnsms>
<returnstatus>Faild</returnstatus>
<message>密码错了</message>
<remainpoint>0</remainpoint>
<taskID>0</taskID>
<successCounts>0</successCounts>
</returnsms>
一一江苏迅辰科技公司整理回答，为您的短信竭诚服务