RTXSDK教程之提高篇

概述这个章节描叙了使用 RTX Server SDKl 所必需的几个步骤，使您能够在最短的时间内掌握 RTX Server SDK的基本知识。本章通过一个发送一个消息提醒（hello,world)操作来描叙SDK的使用过程。步骤1RTX Server SDK，必须确认已经安装了 Server SDK API，点击这里 查看当前 Server SDK API 相关组件是否已经安装。步骤2:SDK API 同 SDK Server 端采用TCP通信，连接Server端的IP地址与端口的配置在 Server SDK API安装目录中的 RTXServerAPI.ini 中指定。
通过 RTXObject 对象也能够读取或者修改 RTXServerAPI.ini 中的配置，RTXObject 提供的2个属性：ServerIP与ServerPort。

示例代码如下：

set obj = createobject("rtxserver.rtxobj")
if (err.number <> 0) then
msgbox "RTX Server SDK API 没有正确安装或者出现了问题，需要重新安装", vbInformation
else
obj.ServerIP = txtIP.value
obj.ServerPort = txtPort.value
msgbox "修改成功", vbInformation
end ifSDK服务器IP地址:SDK服务器IP端口:步骤3如果您的Server SDK API 与RTX Server安装在不同的机器，必须确认 Server 已经允许本地IP的访问，详细的信息可以参阅这里。步骤4创建业务逻辑操作对象(SYSTOOLS)。
示例代码如下：set RTXObj = createobject("rtxserver.rtxobj")
RTXObj.name = "SYSTOOLS"步骤5设置业务逻辑数据。通过RTX集合对象的“Add”方法或者 “Item” 属性来添加参数。
示例代码如下：set RTXObj = createobject("rtxserver.rtxobj")
set RTXParams = createobject("rtxserver.collection")
RTXObj.Name = "SYSTOOLS"
RTXParams.Add "USERNAME", txtReceiver.value
RTXParams.Add "MSGINFO", txtMsg.value
RTXParams.Add "TITLE", txtTitle.value
RTXParams.Add "MSGID", "1234567"
RTXParams.Add "ASSTYPE", "0"
if chkType.status <> "True" then
RTXParams.Add "TYPE", 0
else
RTXParams.Add "TYPE", 1
end if
iSendMode = 0
if chkOfflineSMS.status = "True" then
iSendMode = iSendMode + &H1000
end if
if chkAllUser.status = "True" then
If MsgBox("真的发送消息给所有的人吗", vbYesNo + vbQuestion + vbDefaultButton2, "提示") = vbYes Then
iSendMode = iSendMode + &H1
else
chkAllUser.status = "False"
End If
end if
if iSendMode > 0 then
iSendMode = iSendMode + &H10 '需要查询状态
RTXParams.Add "SENDMODE", iSendMode end步骤6调用业务逻辑。通过RTX业务对象 的“Call2”方法调用业务处理逻辑。
示例代码if On error resume next
RTXResult = RTXobj.Call2( &H2100, RTXParams)
if( err.number < 0) then
txtResult.value = err.Description
else
txtResult.value = "操作成功"
end if接收者(RTX用户名称或者用户号码均可，多人中间用"，"间隔, 不存在的接收者将被忽略 ）:消息标题：消息内容： 紧急消息 用户离线时发送手机短信 给所有人发送消息  执行结果：