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