VB6操作RTX

VB操作RTX

VB6、SP5

示例代码：

Set RTXParams = CreateObject("rtxserver.collection")

Set RTXObj = CreateObject("rtxserver.rtxobj")

https://www.360docs.net/doc/7516637778.html, = "SMSOBJECT"

RTXParams.Add "SENDER", "900" '短信发送者

RTXParams.Add "RECEIVER", "1381234567,1381234" '短信接收者RTXParams.Add "SMS", "测试" '短信内容

RTXParams.Add "CUT",0 '1:自动切割短信 0:不切割

RetCode = RTXObj.Call2(&H1001, RTXParams)

Msgbox RetCode

RTX SERVER SDK 编程 VB 修改用户密码

(2012-02-07 07:50:08)

转载▼

标签：

杂谈

‘通用

Dim RootObj As RTXSAPIRootObj '声明一个根对象

Dim UserManagerObj As RTXSAPIUserManager '声明一个用户管理对象

'VB 语法不严谨，以上两个变量可以不定义

Private Sub Command1_Click()

Set RootObj = CreateObject("RTXSAPIRootObj.RTXSAPIRootObj") '创建根对象

Set UserManagerObj = https://www.360docs.net/doc/7516637778.html,erManager '通过根对象创建用户管理对象On Error GoTo errorhandler

RootObj.ServerIP = "10.75.193.8" '设置服务器IP

RootObj.ServerPort = "8006" ' 设置服务器端口，默认为8006 UserManagerObj.SetUserPwd "1001", "123456" '设置用密码

MsgBox "设置密码成功"

Exit Sub

errorhandler:

MsgBox "Error # " & Err.Number & Chr(13) & Err.Description

End Sub

VB的示例语句如：

Dim objAPI As RTXClient.RTXAPI

Dim objProp As Object

Dim RTXNum As String

Dim Password As String

Dim ServerAddress As String

Dim ServerPort As Integer

Set objAPI = CreateObject("RTXClient.RTXAPI") Set objProp = objAPI.GetObject("Property")

objProp.Value("RTXNum") = "1001"

objProp.Value("Password") = "1234"

objProp.Value("ServerAddress") = "127.0.0.1" objProp.Value("ServerPort") = 8000

RTXNum = objProp.Value("RTXNum") Password = objProp.Value("Password") ServerAddress = objProp.Value("ServerAddress") ServerPort = objProp.Value("ServerPort")