HUAWEI SMEIDLL 短讯接口API

SMEIDLL提供的功能：
　　
　　1. 低层链路出现故障时，重连链路，提示上层。
　　2. 和SMSC的定时握手。
　　3. 提供实现SMPP和内部协议中定义的相关协议的API函数。
　　'事件：点击主界面的“初始化”按钮
　　
　　'功能:初始化套接字,准备连接
　　Private Sub cmdInitSocket_Click()
　　Dim bRet As Boolean
　　Dim ulRet As Long
　　Dim iCount As Integer
　　
　　StatusBar1.Panels(1).Text = ""
　　ulRet = IFInitInterface(CodeProtocol + 1, DriverProtocol + 1, _
　　 Trim(DriverParam))
　　fStatusform.ProgressBar1.Value = 100
　　Unload fStatusform
　　If ulRet <> 0 Then
　　 MsgBox "初始化套接字成功!"
　　 StatusBar1.Panels(1).Text = "初始化连接成功"
　　Else
　　 MsgBox "初始化失败!"
　　 StatusBar1.Panels(1).Text = "初始化连接失败"
　　End If
　　End Sub

　　'事件：点击主界面的“登录服务器”按钮
　　
　　'功能:登录服务器
　　Private Sub cmdLogin_Click()
　　Dim bRet As Boolean
　　Dim ulRet As Long

　　StatusBar1.Panels(1).Text = ""
　　ulRet = Login_R(Trim(SystemID), Trim(Password))
　　If ulRet <> 0 Then
　　 MsgBox "登录成功!"
　　 StatusBar1.Panels(1).Text = "登录成功"
　　Else
　　 MsgBox "登录失败!"
　　 StatusBar1.Panels(1).Text = "登录失败"
　　End If
　　End Sub

　　'事件：点击主界面的“发送短讯”按钮
　　
　　'功能:向服务器提交短讯信息
　　Private Sub cmdSubmit_Click()
　　Dim result As Integer
　　Dim UDLen As Long

　　StatusBar1.Panels(1).Text = ""
　　'Dim UserData As String
　　UserData = "test info"
　　UDLen = Len(UserData)
　　result = SubmitA(OrgTON, OrgNPI, Trim(OrgAddr), DestTON, DestNPI, _
　　 DestAddr, PRI, RD, RP, SRR, MR, DCS * 4, PID, _
　　 Trim(Schedule), Trim(Expire), Default_ID, UDHI, UDLen, UserData, SM_ID, FCS)
　　If result = 0 Then
　　 MsgBox "发送成功!"
　　 StatusBar1.Panels(1).Text = "发送成功"
　　Else
　　 MsgBox "发送失败!"
　　 StatusBar1.Panels(1).Text = "发送失败"
　　End If
　　End Sub
　　
　　
　　'事件：点击主界面的“获取消息”按钮
　　
　　'功能:判断是否有新短讯发来,如果有,则获取该短讯的信息
　　Private Sub cmdGetMsg_Click()
　　StatusBar1.Panels(1).Text = ""
　　GetMsg
　　End Sub
　　
　　'功能: 公共函数。判断是否有新短讯发来；如果有, 则获取该短讯的信息
　　Sub GetMsg()
　　Dim result As Integer
　　HDM_TimeOut = 2000
　　result = HasDeliverMessage(HDM_TimeOut)
　　If result = 0 Then
　　 MsgBox "你有新短讯!"
　　 StatusBar1.Panels(1).Text = "有新短讯"
　　Else
　　 StatusBar1.Panels(1).Text = "无新短讯"
　　End If
　　If result = 0 Then
　　 result = GetDeliverSMEx(SM_ID_R, DestTON_R, DestNPI_R, DestAddr_R, OrgTON_R, OrgNPI_R, OrgAddr_R, PRI_R, RP_R, UDHI_R, PID_R, DCS_R, TimeStamp_R, UDLen_R, UserData_R)

　　 If result = 0 Then
　　 MsgBox "接收短讯成功!"
　　 StatusBar1.Panels(1).Text = "接受短讯成功"
　　 Set fNewSMForm = New frmNewSM
　　 fNewSMForm.List1.AddItem "短消息的ID：" + CStr(SM_ID_R)
　　 fNewSMForm.List1.AddItem "目标地址号码类型：" + CStr(DestTON_R)
　　 fNewSMForm.List1.AddItem "目标地址编码方案：" + CStr(DestNPI_R)
　　 fNewSMForm.List1.AddItem "目标地址：" + DestAddr_R
　　 fNewSMForm.List1.AddItem "源地址号码类型：" + CStr(OrgTON_R)
　　 fNewSMForm.List1.AddItem "源地址编码方案：" + CStr(OrgNPI_R)
　　 fNewSMForm.List1.AddItem "源地址：" + OrgAddr_R
　　 fNewSMForm.List1.AddItem "回应路径：" + CStr(RP_R)
　　 fNewSMForm.List1.AddItem "头结构指示：" + CStr(UDHI_R)
　　 fNewSMForm.List1.AddItem "协议标志：" + CStr(PID_R)
　　 fNewSMForm.List1.AddItem "编码方案：" + CStr(DCS_R)
　　 fNewSMForm.List1.AddItem "提交时间：" + TimeStamp_R
　　 fNewSMForm.List1.AddItem "短消息的UDL：" + CStr(UDLen_R)
　　 fNewSMForm.List1.AddItem "正文：" + UserData_R
　　 fNewSMForm.Show
　　 Else
　　 MsgBox "接收短讯失败!"
　　 StatusBar1.Panels(1).Text = "接收短讯失败"
　　 End If
　　End If
　　End Sub

　　
　　'事件：点击主界面的“定时获取消息”按钮
　　
　　'功能：启动定时获取短讯的服务
　　Private Sub cmdTimerGetMsg_Click()
　　StatusBar1.Panels(1).Text = ""
　　If Timer1.Enabled = False Then
　　 Timer1.Enabled = True
　　 StatusBar1.Panels(1).Text = "启动定时获取短讯服务"
　　Else
　　 Timer1.Enabled = False
　　 StatusBar1.Panels(1).Text = "关闭定时获取短讯服务"
　　End If
　　End Sub
　　
　　'事件：点击主界面的“退出系统”按钮
　　
　　'功能：退出安装短讯中心的服务器
　　Private Sub cmdLogout_Click()
　　Call IFExitInterface
　　Call Logout
　　Unload fMainForm
　　End Sub
　　模块文件代码:
　　'Option Explicit
　　'
　　'/*******************************************************************************
　　'FileName: Export.h
　　'Description: 本头文件定义了SMEIDLL提供的所有输出函数的定义?
　　'Version : 2.0
　　'Date : 98/11/01
　　'Others:
　　'Function List():
　　' 01. IFInitInterface ：初始化动态库
　　' 02. IFSendAndAnswer ：基本的发送等待回包函数
　　' 03. IFSetOnRead ：设置读回调函数，用于处理非回包数据
　　' 04. IFSetOnError ：设置出错回调函数，用于通知上层
　　' 05. IFExitInterface ：退出动态库函数
　　' 06. Login ：登录函数，使用TRANSMITER命令
　　' 07. Logout ：从短讯中心注销
　　' 08. SubmitSM ：提交短讯
　　' 09. VPSubmitSM ：提交短讯，简化函数
　　' 10. QuerySMStatus ：查询短讯状态
　　' 11. QuerySMDetail ：查询短讯详细属性，可查询短讯内容
　　' 12. QuerySMS ：查询满足条件的短讯
　　' 13. CancelSM ：取消短讯
　　' 14. ReplaceSM ：替换短讯
　　' 15. AddSubscriber ：添加用户
　　' 16. DeleteSubscriber ：删除用户
　　' 17. ModifySubscriber ：修改用户属性
　　' 18. EnquireSubscriber ：查询用户属性
　　' 19. HasDeliverMessage ：查询是否有下发短讯
　　' 20. GetDeliverSM ：取下发短讯
　　' 21. Login_R ：登录函数，使用RECEIVER命令
　　' 22. VPModifySubPassword ：修改用户密码
　　' 23. GetErrorString ：查询错误代码的描述
　　' 24. SubmitA ：增强的SUBMIT函数
　　' 25. VPSubmitA ：增强的SUBMIT函数的VP版
　　' 26. GSMConvertTextToData ：把ASC字符串变换成指定编码
　　' 27. GSMConvertDataToText ：把编码数据变换成ASC字符串
　　' 28. QuerySub
　　'History:
　　' 1. author : 张刚
　　' time : 98/11/01
　　' release : 2.0
　　'desc: 实现基本功能
　　'
　　' 2. author : 张刚
　　' time : 99/06/01
　　' release : 2.1
　　' desc : 优化，修改了一些错误，添加了新函数。
　　'
　　'*******************************************************************************/
　　'
　　'#if !defined(__SEMIDLL_EXPORT_H__)
　　'#define __SEMIDLL_EXPORT_H__
　　'
　　'#include "Funback.h"
　　'#include "Drv.h"
　　'
　　'#define IF_TIMEOUT 5000 //发送超时时间
　　'
　　'//最大的短消息文本长度为255*140=35700
　　'#define MAX_SMSIZE 35700 //最大短讯长度
　　'
　　'#define ACK_SUCCESS 0 //ACK执行正确
　　'
　　'#define SM_PRI_PRIOR 1 //优先级别
　　'#define SM_PRI_DEFAULT 0 //缺省
　　'
　　'#define SM_DCS_DEFAULT 0x00 //缺省(7位)
　　'#define SM_DCS_ASC 0x04 //英文(不被手机支持)
　　'#define SM_DCS_CHINA 0x08 //中文(会被转化成UCS2)
　　'
　　'#define SM_UDHI_DEFAULT 0 //UD是正常字符串
　　'#define SM_UDHI_STRUCTURE 1 //UD是结构
　　'
　　'#define CHINA_ERRSTR 0X40000000 //返回汉字的错误字符串
　　'
　　'#define SMSCERR_BEGIN 10000
　　'
　　'
　　'Enum DLL_RETURN
　　'{
　　' E_SUCCESS = 0, //成功
　　'
　　' //IFSendAndAnswer函数的返回值
　　' E_NOT_INITIALIZED, //INTERFACE没有初始化
　　' E_ACK_COMMAND_ERROR, //回包命令字错误
　　' E_NEWMEMORY_ERROR, //分配内存错误
　　' E_OTHER_ERROR, //其他错误
　　'
　　' E_SA_BUFF_TOOBIG, //SEND缓冲区太大
　　' E_SA_POCKET_UNINTEGRATE, //SEND包不完整
　　' E_SA_PROTOCOL_ERROR, //协议错
　　' E_SA_PROTOCOL_NO_SUPPORT, //协议不支持该格式
　　' E_SA_CODE_OTHER_ERROR, //编码其他错误
　　' E_SA_TIMEOUT, //传送超时
　　' E_SA_NO_ENOUGH_BUFFER, //接收缓冲区不够大
　　' E_SA_WAITFAILED, //等待失败
　　' E_SA_SEND_FAILED, //发送失败
　　'
　　' //SUBMIT函数的返回值
　　' E_SUBMIT_ORGADDR_ERROR, //源地址错误
　　' E_SUBMIT_DESTADDR_ERROR, //目的地址错误
　　' E_SUBMIT_SCHEDULE_ERROR, //参数定时时间错误
　　' E_SUBMIT_EXPIRE_ERROR, //参数超时时间错误
　　' E_SUBMIT_DCS_ERROR, //参数DCS错误
　　' E_SUBMIT_DCS_CONVERT_ERROR, //数据变换错误
　　' E_SUBMIT_UDHI_ERROR, //参数UDHI错误
　　' E_SUBMIT_UD_ERROR, //用户数据错误
　　' E_SUBMIT_OVER_MO, //超过最大提交数
　　' E_SUBMIT_OVER_MT, //超过最大下发数
　　' E_SUBMIT_INVALID_USER, //无效用户，或者用户无权
　　' E_SUBMIT_INVALID_DATA_FORMAT, //无效数据格式
　　' E_SUBMIT_ADDR_ERROR, //地址错误
　　' E_SUBMIT_CREATE_MESSAGE_ERROR, //生成短讯错误
　　'
　　' //QuerySMStatus函数返回值
　　' E_QUERYSMSTATUS_SM_NOT_EXIST, //短讯不存在
　　' E_QUERYSMSTATUS_SM_OTHER_ERR, //查询其他错误
　　' E_QUERYSMSTATUS_ADDR_ERROR, //地址错误
　　'
　　' //QuerySMDetail函数返回值
　　' E_QUERYSMDETAIL_SM_DETAILS_ZERO, //查询不到此
　　' E_QUERYSMDETAIL_SM_DETAILS_FAIL, //查询失败
　　' E_QUERYSMDETAIL_CONVERT_ERROR, //用户数据编码出错
　　' E_QUERYSMDETAIL_LEN_ERROR, //LEN参数出错
　　' E_QUERYSMDETAIL_SM_ADDR_ERROR, //地址错误
　　'
　　' //CancelSM函数返回值
　　' E_CANCELSM_ACK_STATUS_ERROR, //回包的STATUS指示出错
　　'
　　' //ReplaceSM函数返回值
　　' E_REPLACESM_ORGADDR_ERROR, //源地址错误
　　' E_REPLACESM_SCHEDULE_ERROR, //定时数据错误
　　' E_REPLACESM_EXPIRE_ERROR, //超时数据错误
　　' E_REPLACESM_DCS_ERROR, //DCS错误
　　' E_REPLACESM_DCS_CONVERT_ERROR, //用户数据编码出错
　　' E_REPLACESM_UD_ERROR, //用户数据错误
　　' E_REPLACESM_SM_WORKING, //短讯正在下发
　　' E_REPLACESM_SM_ADDR_ERROR, //短讯地址错误
　　' E_REPLACESM_SM_INVALID_SOURCE_ADDR, //无效的源地址
　　' E_REPLACESM_SM_NO_SUCH_SM, //没有指定的短讯
　　' E_REPLACESM_SM_INVALID_DATA_TYPE, //无效数据类型
　　' E_REPLACESM_SM_FAIL, //替换失败
　　'
　　' E_QUERYSMS_DIR_ERROR, //参数DIR错
　　' E_QUERYSMS_ADDR_ERROR, //参数用户地址错误
　　' E_QUERYSMS_DATETIME_ERROR, //参数开始时间错误
　　' E_QUERYSMS_FINATIME_ERROR, //参数结束时间错误
　　' E_QUERYSMS_NUMBER_ERROR, //参数查询条数错误
　　' E_QUERYSMS_ACK_STATUS_ERROR, //回包的STATUS指示出错
　　'
　　' E_ADDSUB_SUBID_ERROR, //参数用户号码错误
　　' E_ADDSUB_SUBNAME_ERROR, //参数用户姓名错误
　　' E_ADDSUB_SUBADDRESS_ERROR, //参数用户地址错误
　　' E_ADDSUB_PASSWORD_ERROR, //参数用户密码错误
　　' E_ADDSUB_USER_ALREADY_EXIST, //用户已经存在
　　' E_ADDSUB_ADD_USER_FAIL, //添加用户失败
　　'
　　' E_DELETESUB_SUBID_ERROR, //参数用户号码错误
　　' E_DELETESUB_USER_NOT_EXIST, //用户不存在
　　' E_DELETESUB_USER_DEL_FAIL, //删除用户失败
　　'
　　' E_MODIFYSUB_SUBID_ERROR, //参数用户号码错误
　　' E_MODIFUSUB_SUBNAME_ERROR, //参数用户姓名错误
　　' E_MODIFYSUB_SUBADDRESS_ERROR, //参数用户地址错误
　　' E_MODIFYSUB_PASSWORD_ERROR, //参数用户密码错误
　　' E_MODIFYSUB_FAIL, //修改用户失败
　　' E_MODIFYSUB_SUB_NOT_EXIST, //用户不存在
　　'
　　' E_ENQUIRESUB_SUBID_ERROR, //参数用户号码错误
　　' E_ENQUIRESUB_USER_NOT_EXIST, //用户不存在
　　'
　　' E_ENQUIRELINK_ERROR, //握手失败
　　'
　　' E_DLVSM_GETDATA_FAILED, //GETDATA失败
　　' E_DLVSM_DCS_ERROR, //解码出错
　　'
　　' E_NO_RIGHT, //没有权限
　　'
　　' E_REPLACE_UDHI_ERROR, //REPLACE UDHI invalid
　　'
　　' E_QUERYSMDETAIL_INVLDLEN, // QUERYSMDETAIL LEN INVALID
　　'
　　' E_PPSCHECKTIMEOUT = 200, //PPS用户鉴权超时
　　' E_PPSUSERCHECKERR, //PPS用户鉴权失败
　　' E_PPSUSERCHECKSENDERR, //PPS用户鉴权发送失败
　　' E_PPSRESULTNOTIFYTIMEOUT, //通知超时
　　' E_PPSRESULTNOTIFYACKERR, //通知客户端返回错误
　　' E_PPSRESULTNOTIFYTMPERR, //通知临时错误
　　' E_PPSRESULTNOTIFYSERIOUSERR, //通知严重错误
　　'
　　'
　　'};
　　'/*
　　'Enum ROUTE_RETURN
　　'{
　　' E_SUCCESS = 0,
　　'
　　' //interfacemanager error code
　　' E_ACCESSERR, //接入码错误
　　' E_CALLERERR, //主叫错误 *
　　' E_ACCOUNTERR, //帐号指针不符 *
　　' E_SMTYPEERR, //SmType错误 *
　　' E_NEWACCOUNTFAIL, //生成帐号对象失败 *
　　' E_ACCOUNTNAMEERR, //帐号名错，查无此帐号 *
　　' E_CODETYPEERR, //编码类型错
　　' E_CREATEIFFAIL, //生成IF对象失败
　　' E_BEYONDMAXIFNUM, //超过INTERFACEMANAGER的最大IF数
　　' E_INVALIDIFID, //无效的IF的ID
　　' E_ACCOUNTPASSWORDERR, //帐号的密码错误
　　' E_NORIGHT, //没有权限
　　' E_PIDERR, //PID错误
　　' E_INVALIDROUTETABLE, //无效的ROUTETABLE *
　　'
　　' E_CANNOTFINDIF, //通过HDRV不能找到IF *
　　' E_PARAMERR, //参数错
　　' E_STATUSERR, //状态错误
　　'
　　' E_NEWIFERR, //生成IF错误
　　' E_NEWDRVERR, //生成DRV错误
　　'
　　' //routetable
　　' E_INVALIDACCOUNT, //无效的ACCOUNT *
　　'
　　' //account error code
　　' //E_BEYONDACCOUNTMAXIFNUM,
　　' E_INVALIDIF,
　　' //E_ROUTEERR,
　　'
　　' E_NOSUBMITRIGHT,
　　' E_NODELIVERRIGHT,
　　' E_CHECKTYPEERR, //鉴权类型错误
　　' E_NUMREPEAT, //号段重复
　　' E_NOTHISNUM, //没有指定的号段
　　'
　　' E_PPSCHECKTIMEOUT = 200, //PPS用户鉴权超时
　　' E_PPSUSERCHECKERR, //PPS用户鉴权失败
　　' E_PPSUSERCHECKSENDERR, //PPS用户鉴权发送失败
　　' E_PPSRESULTNOTIFYTIMEOUT, //通知超时
　　' E_PPSRESULTNOTIFYACKERR, //通知客户端返回错误
　　' E_PPSRESULTNOTIFYTMPERR, //通知临时错误
　　' E_PPSRESULTNOTIFYSERIOUSERR, //通知严重错误
　　'
　　'};
　　'*/
　　'
　　'BOOL WINAPI IFInitInterface(
　　' DWORD dwCodeProtocol, //编码协议
　　' DWORD dwDriverProtocol, //通讯协议
　　' LPCTSTR pDriverParam //通讯参数
　　' );
　　'
　　Public Declare Function IFInitinterface Lib "smeidll.dll" (ByVal dwCodeProtocol As Long, _
　　 ByVal dwDriverPorotocol As Long, _
　　 ByVal pDriverParam As String) As Long
　　'int WINAPI IFSendAndAnswer(
　　' LPVOID pSndBuf, //发送缓冲区
　　' int SndSize, //发送缓冲区大小
　　' LPVOID pRevBuf, //接收缓冲区
　　' int* RevSize, //接收缓冲区大小
　　' DWORD timeout //超时时间
　　' );
　　'
　　Public Declare Function IFSendAndAnswer Lib "smeidll.dll" (pSndBuf As Any, _
　　 ByVal SndSize As Long, _
　　 pRevBuf As Any, _
　　 ByVal RevSize As Long, _
　　 ByVal timeout As Long) As Long
　　'BOOL WINAPI IFSetOnRead(
　　' LP_READ_BACK pReadFun, //回调函数指针
　　' HANDLE hReadUser //回调句柄
　　' );
　　'
　　Public Declare Function IFSetOnRead Lib "smeidll.dll" (pReadFun As Any, _
　　 ByVal hReadUser As Long) As Long
　　'BOOL WINAPI IFSetOnError(
　　' LP_ERROR_BACK pErrorFun, //回调函数指针
　　' HANDLE hErrorUser //回调句柄
　　' );
　　'
　　Public Declare Function IFSetOnError Lib "smeidll.dll" (pErrorFun As Any, _
　　 ByVal hErrorUser As Long) As Long
　　'BOOL WINAPI IFExitInterface();
　　Public Declare Function IFExitInterface Lib "smeidll.dll" () As Long
　　'
　　'BOOL WINAPI LoginA(
　　' unsigned long ulBindType, //BIND类型, 0表示BIND_TRANSMITER, 1表示BIND_RECIEVER
　　' LPCTSTR SystemID, //用户标识 char [MAX_SMEI_SYSTEMID]
　　' LPCTSTR Password, //密码 char[MAX_SMEI_PASSWORD]
　　' LPCTSTR system_type, //系统类型 char[13]
　　' unsigned long ulInterface_version, //接口类型
　　' unsigned char ucAddr_TON, //号码类型
　　' unsigned char ucAddr_NPI, //编码方案
　　' LPCTSTR Address_range //地址类型
　　' );
　　'
　　Public Declare Function LoginA Lib "smeidll.dll" (ByVal ulBindType As Long, _
　　 ByVal SystemID As String, _
　　 ByVal Password As String, _
　　 ByVal system_type As String, _
　　 ByVal ulInterface_version As Long, _
　　 ByVal ucAddr_TON As Byte, _
　　 ByVal ucAddr_NPI As Byte, _
　　 ByVal Address_range As String) As Long
　　
　　'BOOL WINAPI Login(
　　' LPCTSTR SystemID, //用户标识 char [MAX_SMEI_SYSTEMID]
　　' LPCTSTR Password //密码 char[MAX_SMEI_PASSWORD]
　　' );
　　'
　　Public Declare Function Login Lib "smeidll.dll" (ByVal SystemID As String, _
　　 ByVal Password As String) As Long
　　'BOOL WINAPI Login_R(LPCTSTR SystemID, //用户标识 char [MAX_SMEI_SYSTEMID]
　　' LPCTSTR Password //密码 char[MAX_SMEI_PASSWORD]
　　' );
　　'
　　Public Declare Function Login_R Lib "smeidll.dll" (ByVal SystemID As String, _
　　 ByVal Password As String) As Long
　　'BOOL WINAPI Logout();
　　Public Declare Function Logout Lib "smeidll.dll" () As Long
　　'
　　'int WINAPI SubmitSM(
　　' unsigned char OrgTON, //源地址号码类型
　　' unsigned char OrgNPI, //源地址编码方案
　　' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
　　' unsigned char DestTON, //目标地址号码类型
　　' unsigned char DestNPI, //目标地址编码方案
　　' LPCTSTR DestAddr, //目标地址 char[MAX_ADDR_LEN]
　　' unsigned char PRI, //SM优先级
　　' unsigned char DCS, //数据编码方案
　　' LPCTSTR Schedule, //定时 char[MAX_TIMESTAMP_LEN]
　　' LPCTSTR Expire, //超时时间 char[MAX_TIMESTAMP_LEN]
　　' unsigned long Default_ID, //缺省短消息
　　' unsigned char UDHI, //1表示UD为一个结构，0表示缺省
　　' unsigned long UDLen, //表示UD的长度
　　' LPCTSTR UserData, //用户信息，短消息正文
　　' unsigned long* SM_ID, //返回：短消息ID
　　' unsigned char* FCS //返回：失败原因
　　' );
　　'
　　Public Declare Function SubmitSM Lib "smeidll.dll" (ByVal OrgTON As Byte, _
　　 ByVal OrgNPI As Byte, _
　　 ByVal OrgAddr As String, _
　　 ByVal DestTON As Byte, _
　　 ByVal DestNPI As Byte, _
　　 ByVal DestAddr As String, _
　　 ByVal PRI As Byte, _
　　 ByVal DCS As Byte, _
　　 ByVal Schedule As String, _
　　 ByVal Expire As String, _
　　 ByVal Default_ID As Long, _
　　 ByVal UDHI As Byte, _
　　 ByVal UDLen As Long, _
　　 ByVal UserData As String, _
　　 ByVal sm_id As Long, _
　　 ByVal FCS As String) As Long
　　
　　'int WINAPI VPSubmitSM(
　　' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
　　' LPCTSTR DestAddr, //目标地址 char[MAX_ADDR_LEN]
　　' LPCTSTR Schedule, //定时 char[MAX_TIMESTAMP_LEN]
　　' LPCTSTR Expire, //超时时间 char[MAX_TIMESTAMP_LEN]
　　' unsigned long Default_ID, //缺省短消息
　　' LPCTSTR UserData, //用户信息，短消息正文
　　' unsigned long* SM_ID //返回：短消息ID
　　' );
　　'
　　Public Declare Function VPSubmigSM Lib "smeidll.dll" (ByVal OrgAddr As String, _
　　 ByVal DestAddr As String, _
　　 ByVal Schedule As String, _
　　 ByVal Expire As String, _
　　 ByVal Default_ID As Long, _
　　 ByVal UserData As String, _
　　 ByVal sm_id As Long) As Long
　　
　　'int WINAPI QuerySMStatus(
　　' unsigned long SM_ID, //短消息ID
　　' unsigned char* OrgTON, //返回：源地址号码类型
　　' unsigned char* OrgNPI, //返回：源地址编码方案
　　' LPTSTR OrgAddr, //返回：源地址 char[MAX_ADDR_LEN]
　　' unsigned char* DestTON, //返回：目标地址号码类型
　　' unsigned char* DestNPI, //返回：目标地址编码方案
　　' LPTSTR DestAddr, //返回：目标地址 char[MAX_ADDR_LEN]
　　' LPTSTR Final_Date, //返回：最后时间 char[MAX_TIMESTAMP_LEN]
　　' unsigned char* SM_Status, //返回：短消息状态
　　' //0 : WAITING_FOR_DELIVER 表示等待发送
　　' //1 : DELIVER_SUCCESS 表示成功发送
　　' //2 : DELIVER_FAIL 表示发送失败
　　' unsigned char* Error_Code //返回：错误代码
　　' );
　　Public Declare Function QuerySMStatus Lib "smeidll.dll" (ByVal sm_id As Long, _
　　 ByVal OrgTON As String, _
　　 ByVal OrgNPI As String, _
　　 ByVal OrgAddr As String, _
　　 ByVal DestTON As String, _
　　 ByVal DestNPI As String, _
　　 ByVal DestAddr As String, _
　　 ByVal Final_Date As String, _
　　 ByVal SM_Status As Byte, _
　　 ByVal Error_Code As String) As Long
　　
　　
　　'
　　'int WINAPI QuerySMDetail(
　　' unsigned long SM_ID, //短消息ID
　　' unsigned char *OrgTON, //返回：源地址号码类型
　　' unsigned char *OrgNPI, //返回：源地址编码方案
　　' LPTSTR OrgAddr, //返回：源地址 char[MAX_ADDR_LEN]
　　' unsigned char* DestTON, //返回：目标地址号码类型
　　' unsigned char* DestNPI, //返回：目标地址编码方案
　　' LPTSTR DestAddr, //返回：目标地址 char[MAX_ADDR_LEN]
　　' unsigned char* PRI, //返回：SM优先级
　　' unsigned char* DCS, //返回：数据编码方案
　　' LPTSTR Schedule, //返回：定时 char[MAX_TIMESTAMP_LEN]
　　' LPTSTR Expire, //返回：超时时间 char[MAX_TIMESTAMP_LEN]
　　' LPTSTR Final, //返回：最后时间 char[MAX_TIMESTAMP_LEN]
　　' unsigned char* SM_Status, //返回：短消息状态, 返回值定义同QuerySMStatus.
　　' unsigned char* Error_Code, //返回：错误代码
　　' unsigned long Len, //接收短消息长度，User_Data的大小不能小于此数
　　' LPTSTR User_Data //返回：短消息文本
　　' );
　　Public Declare Function QuerySMDetail Lib "smeidll.dll" (ByVal sm_id As Long, _
　　 ByVal OrgTON As String, _
　　 ByVal OrgNPI As String, _
　　 ByVal OrgAddr As String, _
　　 ByVal DestTON As String, _
　　 ByVal DestNPI As String, _
　　 ByVal DestAddr As String, _
　　 ByVal PRI As Byte, _
　　 ByVal DCS As Byte, _
　　 ByVal Schedule As String, _
　　 ByVal Expire As String, _
　　 ByVal Final As String, _
　　 ByVal SM_Status As String, _
　　 ByVal Error_Code As String, _
　　 ByVal Leng As Long, _
　　 ByVal User_Data As String) As Long
　　'
　　'int WINAPI CancelSM(
　　' unsigned long SM_ID //短消息ID
　　' );
　　Public Declare Function CancelSM Lib "smeidll.dll" (ByVal sm_id As Long) As Long
　　'
　　'int WINAPI ReplaceSM(
　　' unsigned long SM_ID, //短消息ID
　　' unsigned char OrgTON, //源地址号码类型
　　' unsigned char OrgNPI, //源地址编码方案
　　' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
　　' LPCTSTR Schedule, //定时 char[MAX_TIMESTAMP_LEN]
　　' LPCTSTR Expire, //超时时间 char[MAX_TIMESTAMP_LEN]
　　' unsigned char DCS, //数据编码方案
　　' unsigned long Default_ID, //缺省短消息
　　' unsigned long UDL,
　　' LPCTSTR UserData //用户信息，短消息正文
　　' );
　　'
　　Public Declare Function ReplaceSM Lib "smeidll.dll" (ByVal sm_id As Long, _
　　 ByVal OrgTON As Byte, _
　　 ByVal OrgNPI As Byte, _
　　 ByVal OrgAddr As String, _
　　 ByVal Schedule As String, _
　　 ByVal Expire As String, _
　　 ByVal DCS As Byte, _
　　 ByVal Default_ID As Long, _
　　 ByVal UDL As Long, _
　　 ByVal User_Data As String) As Long
　　
　　'int WINAPI QuerySMS(
　　' unsigned char Dir, //0:按源地址 1:按目标地址
　　' unsigned char TON,
　　' unsigned char NPI,
　　' LPCTSTR Addr,
　　' LPCTSTR DateTime, //开始时间
　　' LPCTSTR FinaTime, //结束时间
　　' unsigned char* Number, //要查询的条数
　　' unsigned char* status,
　　' unsigned long* sm_id
　　' );
　　'
　　Public Declare Function QuerySMS Lib "smeidll.dll" (ByVal Dir As Byte, _
　　 ByVal TON As Byte, _
　　 ByVal NPI As Byte, _
　　 ByVal Addr As String, _
　　 ByVal DateTime As String, _
　　 ByVal FinalTime As String, _
　　 ByVal Number As String, _
　　 ByVal status As String, _
　　 ByVal sm_id As Long) As Long
　　'int WINAPI AddSubscriber(
　　' unsigned char TON, //号码类型
　　' unsigned char NPI, //编码方案
　　' LPCTSTR SubID, //用户标识 char[MAX_ADDR_LEN]
　　' LPCTSTR SubName, //用户姓名 char[MAX_ADDR_LEN]
　　' LPCTSTR SubAddress, //用户（通讯）地址 char[MAX_SUB_ADDRESS]
　　' unsigned char MsType, //手机类型
　　' unsigned long Service, //服务级别（未定义）
　　' unsigned char bSM, //是否提供短消息服务
　　' unsigned long OCOS, //最大下发数
　　' unsigned long TCOS, //最大提交数
　　' unsigned short Reserve, //保留
　　' LPCTSTR Password //密码 char [MAX_PASSWORD]
　　' );
　　'
　　'int WINAPI DeleteSubscriber(
　　' LPCTSTR SubID //用户标识 char[MAX_ADDR_LEN]
　　' );
　　'
　　'int WINAPI ModifySubscriber(
　　' unsigned char TON, //号码类型
　　' unsigned char NPI, //编码方案
　　' LPCTSTR SubID, //用户标识 char[MAX_ADDR_LEN]
　　' LPCTSTR SubName, //用户姓名 char[MAX_ADDR_LEN]
　　' LPCTSTR SubAddress, //用户地址 char[MAX_SUB_ADDRESS]
　　' unsigned char MsType, //手机类型
　　' unsigned long Service, //服务级别
　　' unsigned char bSM, //是否提供短消息服务
　　' unsigned long OCOS, //最大下发数
　　' unsigned long TCOS, //最大提交数
　　' LPCTSTR Password //密码 char [MAX_PASSWORD]
　　' );
　　'
　　'int WINAPI EnquireSubscriber(
　　' LPCTSTR SubID, //用户标识
　　' unsigned char* TON, //返回：号码类型
　　' unsigned char* NPI, //返回：编码方案
　　' LPTSTR SubName, //返回：用户姓名 char[MAX_ADDR_LEN]
　　' LPTSTR SubAddress, //返回：用户地址 char[MAX_SUB_ADDRESS]
　　' unsigned long* Service, //返回：服务级别
　　' unsigned char* bSM, //返回：是否提供短消息服务
　　' unsigned long* OCOS, //返回：最大下发数
　　' unsigned long* TCOS, //返回：最大提交数
　　' LPTSTR Password //返回：密码 char [MAX_PASSWORD]
　　' );
　　'
　　'int WINAPI EnquireLink();
　　'
　　'int WINAPI HasDeliverMessage(
　　' DWORD dwTimeOut //超时时间，单位毫秒
　　' );
　　'
　　'int WINAPI GetDeliverSM(
　　' ULONG* sm_ID, //返回：短讯ID
　　' unsigned char* DestTON, //返回：目标地址号码类型
　　' unsigned char* DestNPI, //返回：目标地址编码方案
　　' char* DestAddr, //返回：目标地址
　　' unsigned char* OrgTON, //返回：源地址号码类型
　　' unsigned char* OrgNPI, //返回：源地址编码方案
　　' char* OrgAddr, //返回：源地址
　　' unsigned char* PRI, //返回：优先权
　　' unsigned char* PID, //返回：协议类型
　　' unsigned char* DCS, //返回：编码方案
　　' char* TimeStamp, //返回：下发时间
　　' char* UserData //返回：用户数据
　　' );
　　'
　　'int WINAPI VPModifySubPassword(
　　' LPCTSTR SubID, //用户标识 char[MAX_ADDR_LEN]
　　' LPCTSTR Password //密码 char [MAX_PASSWORD]
　　' );
　　'
　　'int WINAPI GetErrorString(
　　' int iErrorNum, //错误代码
　　' int iBuffSize, //缓冲区大小
　　' char* lpszBuff //缓冲区指针
　　' );
　　'
　　'int WINAPI GetSMStatusString(
　　' DWORD dwStatus, // 状态值
　　' int iBuffLen, // 缓冲区大小
　　' char* lpszBuff // 缓冲区指针
　　' );
　　'
　　'int WINAPI SubmitA(
　　' unsigned char OrgTON, //源地址号码类型
　　' unsigned char OrgNPI, //源地址编码方案
　　' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
　　' unsigned char DestTON, //目标地址号码类型
　　' unsigned char DestNPI, //目标地址编码方案
　　' LPCTSTR DestAddr, //目标地址 char[MAX_ADDR_LEN]
　　' unsigned char PRI, //SM优先级
　　' unsigned char RD, //当源地址和目的地址相同时，是否替换存在的短消息。
　　' unsigned char RP, //回应路径
　　' unsigned char SRR, //是否需要状态报告
　　' unsigned char MR, //消息索引
　　' unsigned char DCS, //数据编码方案
　　' unsigned char PID, //协议类型
　　' LPCTSTR Schedule, //定时 char[MAX_TIMESTAMP_LEN]
　　' LPCTSTR Expire, //超时时间 char[MAX_TIMESTAMP_LEN]
　　' unsigned long Default_ID, //缺省短消息
　　' unsigned char UDHI, //1表示UD为一个结构，0表示缺省
　　' unsigned long UDLen, //表示UD的长度
　　' LPCTSTR UserData, //用户信息，短消息正文
　　' unsigned long* SM_ID, //返回：短消息ID
　　' unsigned char* FCS //返回：失败原因
　　' );
　　'
　　'int WINAPI VPSubmitA(
　　' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
　　' LPCTSTR DestAddr, //目标地址 char[MAX_ADDR_LEN]
　　' unsigned char PID, //协议类型
　　' unsigned char DCS, //编码方案
　　' LPCTSTR Schedule, //定时 char[MAX_TIMESTAMP_LEN]
　　' LPCTSTR Expire, //超时时间 char[MAX_TIMESTAMP_LEN]
　　' unsigned long Default_ID, //缺省短消息
　　' LPCTSTR UserData, //用户信息，短消息正文
　　' unsigned long* SM_ID //返回：短消息ID
　　' );
　　'
　　'int WINAPI GSMConvertTextToData(
　　' LPCSTR pString, //需要变换的源字符串指针
　　' unsigned char nDCS, //指定变换的编码方案
　　' unsigned char* pData, //接收缓冲区指针
　　' unsigned long* nLen //用户数据的大小的指针，此是SUBMIT中UDL字段的长度，不是字节长度
　　' );
　　'
　　'int WINAPI GSMConvertDataToText(
　　' unsigned char* pData, //编码后的数据
　　' unsigned long nLen, //编码数据的实际大小，此项为协议的UDL项。
　　' unsigned char nDCS, //编码数据的编码方案
　　' unsigned char nUDHI, //协议的UDHI项，是否有结构头。
　　' char* pString //解码的字符串缓冲区指针
　　' );
　　'
　　'int WINAPI QuerySubscriber(
　　' LPCTSTR SubID, //用户标识
　　' unsigned char* TON, //返回：号码类型
　　' unsigned char* NPI, //返回：编码方案
　　' LPTSTR SubName, //返回：用户姓名 char[MAX_ADDR_LEN]
　　' LPTSTR SubAddress, //返回：用户地址 char[MAX_SUB_ADDRESS]
　　' unsigned char* MsType, //返回：手机类型
　　' unsigned long* Service, //返回：服务级别
　　' unsigned char* bSM, //返回：是否提供短消息服务
　　' unsigned long* OCOS, //返回：最大下发数
　　' unsigned long* TCOS, //返回：最大提交数
　　' LPTSTR Password, //返回：密码 char [MAX_PASSWORD]
　　' LPTSTR RegTime //返回：注册时间 char[20]
　　' );
　　'
　　'int WINAPI QuerySMStatusA(
　　' unsigned long SM_ID, //短消息ID
　　' unsigned char OrgTON, //源地址号码类型
　　' unsigned char OrgNPI, //源地址编码方案
　　' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
　　' unsigned char* DestTON, //返回：目标地址号码类型
　　' unsigned char* DestNPI, //返回：目标地址编码方案
　　' LPTSTR DestAddr, //返回：目标地址 char[MAX_ADDR_LEN]
　　' LPTSTR Final_date, //返回：最后时间 char[MAX_TIMESTAMP_LEN]
　　' unsigned char* SM_Status, //返回：短消息状态
　　' //0 : WAITING_FOR_DELIVER 表示等待发送
　　' //1 : DELIVER_SUCCESS 表示成功发送
　　' //2 : DELIVER_FAIL 表示发送失败
　　' unsigned char* Error_Code //返回：错误代码
　　' );
　　'
　　'int WINAPI CancelSMA(
　　' char cService_type, //参见GSM3.39说明
　　' unsigned long SM_ID, //短消息ID
　　' unsigned char OrgTON, //源地址号码类型
　　' unsigned char OrgNPI, //源地址编码方案
　　' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
　　' unsigned char DestTON, //目标地址号码类型
　　' unsigned char DestNPI, //目标地址编码方案
　　' LPCTSTR DestAddr //目标地址 char[MAX_ADDR_LEN]
　　' );
　　'
　　'int WINAPI ReplaceSMEx(
　　' unsigned long SM_ID,
　　' unsigned char OrgTON,
　　' unsigned char OrgNPI,
　　' LPCTSTR OrgAddr,
　　' LPCTSTR Schedule,
　　' LPCTSTR Expire,
　　' unsigned char SRR,
　　' unsigned char DCS,
　　' unsigned char UDHI,
　　' unsigned long Default_ID,
　　' unsigned long UDLen,
　　' LPCTSTR UserData
　　' );
　　'
　　'int WINAPI QuerySMDetailEx(
　　' unsigned long SM_ID,
　　' unsigned char* OrgTON,
　　' unsigned char* OrgNPI,
　　' LPTSTR OrgAddr,
　　' unsigned char* DestTON,
　　' unsigned char* DestNPI,
　　' LPTSTR DestAddr,
　　' unsigned char* PRI,
　　' unsigned char* RD,
　　' unsigned char* RP,
　　' unsigned char* UDHI,
　　' unsigned char* SRR,
　　' unsigned char* MR,
　　' unsigned char* PID,
　　' unsigned char* DCS,
　　' LPTSTR Schedule,
　　' LPTSTR Expire,
　　' LPTSTR Final,
　　' unsigned char* SM_Status,
　　' unsigned char* Error_Code,
　　' unsigned long* Len,
　　' LPTSTR User_Data
　　' );
　　'
　　'int WINAPI GetDeliverSMEx(
　　' ULONG* sm_ID, //返回：短讯ID
　　' unsigned char* DestTON, //返回：目标地址号码类型
　　' unsigned char* DestNPI, //返回：目标地址编码方案
　　' char* DestAddr, //返回：目标地址
　　' unsigned char* OrgTON, //返回：源地址号码类型
　　' unsigned char* OrgNPI, //返回：源地址编码方案
　　' char* OrgAddr, //返回：源地址
　　' unsigned char* PRI, //返回：优先权
　　' unsigned char* RP,
　　' unsigned char* UDHI,
　　' unsigned char* PID, //返回：协议类型
　　' unsigned char* DCS, //返回：编码方案
　　' char* TimeStamp, //返回：下发时间
　　' unsigned long * UDLen,
　　' char* UserData //返回：用户数据
　　' );
　　'//2000.12.12 钟CD 增加状态功能
　　'int WINAPI GetDeliverSMExEx(
　　' ULONG* sm_ID, //返回：短讯ID
　　' unsigned char* DestTON, //返回：目标地址号码类型
　　' unsigned char* DestNPI, //返回：目标地址编码方案
　　' char* DestAddr, //返回：目标地址
　　' unsigned char* OrgTON, //返回：源地址号码类型
　　' unsigned char* OrgNPI, //返回：源地址编码方案
　　' char* OrgAddr, //返回：源地址
　　' unsigned char* PRI, //返回：优先权
　　' unsigned char* RP,
　　' unsigned char* UDHI,
　　' unsigned char* PID, //返回：协议类型
　　' unsigned char* DCS, //返回：编码方案
　　' char* TimeStamp, //返回：下发时间
　　' unsigned long * UDLen,
　　' char* UserData, //返回：用户数据
　　' unsigned char* StatusReport //返回：状态报告标志，0表示不是状态报告，1：表示为状态报告
　　' );
　　'
　　'
　　'#End If