ems_phs_api.bas

连接短信网关,嵌入式系统Boot Loader 技术内幕

Attribute VB_Name = "EsmPHS_API"
Option Explicit
Public Const yxtAddRecord = ""
Public Const yxtDeleteRecord = ""
Public TaskID, LogSuccess As Integer

Public yxtUserID As String
Public yxtPassword As String
Public yxtSQL As String
Public yxtConnection As New ADODB.Connection
Public rsPHS As New ADODB.Recordset
Public rsESM As New ADODB.Recordset
Public rsMessage As New ADODB.Recordset


' 与网关建立MT连接
' 返回值：>0 则返回该连接conn_id     ,<0 发生错误
Public Declare Function InitializeEsm Lib "c:\winsock\EsmApi.dll" _
   (ByVal Esmser As String, _
    ByVal Webser As String, _
    ByVal SocksPxyas As String, _
    ByVal AgentServer As String, _
    ByVal AgentPort As String, _
    ByVal AgentUser As String, _
    ByVal AgentPwd As String, _
    ByVal SetTcp As Integer, _
    ByVal Deliver As Integer) As Integer
    
Public Declare Function LogintoEsm Lib "c:\winsock\EsmApi.dll" _
    (ByVal CorpId As String, _
     ByVal UserId As String, _
     ByVal Password As String) As Integer


' 向网关批量提交消息
Public Declare Function SubmittoEsm Lib "c:\winsock\EsmApi.dll" _
    (ByVal TaskID As Integer, _
     ByVal MsgID As Integer, _
     ByVal SendType As Byte, _
     ByVal ScheduleTime As String, _
     ByVal Called As String, _
     ByVal MsgContent As String) As Integer


'TaskID,MsgID:integer;SendType:byte;ScheduleTime,Called, MsgContent:pchar
'function DeliverfromEsm(Smtype, Content, Caller: pchar)as integer

' 与网关断开连接
' 返回值：0 成功 <0 失败
Public Declare Function LogoffEsm Lib "c:\winsock\EsmApi.dll" () As Integer

'function InitializeEsm(Esmser,Webser,SocksPxy,AgentServer,AgentPort,AgentUser,AgentPwd:pchar;SetTcp, Deliver:integer):integer;
'function LogintoEsm(CorpId,UserId,Password:pchar):integer;stdcall;External'EsmApi.dll';
'function SubmittoEsm(TaskID, MsgID: Integer;SendType:byte;ScheduleTime,Called,MsgContent:pchar):integer;
'function DeliverfromEsm(Smtype,Content,Caller:pchar):integer
'function DeliverfromEsm1(var BufCount: Integer; var Buffer: PChar): Integer;
'function LogoffEsm():integer


'说明:请在运行此程序以前，把本程序附带的 shortmessage.dll 复制到您机器的
'WINDOWS目录下(一般为C:\WINNT),或者确认当前目录中存在这个文件
Public Type ShakeHandAnswer
   byProtocolType As Byte
   byPhoneType As Byte
   chFactoryCode(0 To 10) As Byte
   chVersion(0 To 4) As Byte
   byPhoneFunc As Byte
End Type

Public Type RecvSmsData
    bNew As Long
    bEmergency As Long
    chSendCode(0 To 16) As Byte
    chSendDt(0 To 19) As Byte
    byData(0 To 239) As Byte
    nLen As Long
End Type

Public Declare Function SystemInit Lib "shortmessage.dll" (ByVal nBaudRate As Long, ByVal nPorts As Long, _
                             ByRef data As ShakeHandAnswer, Optional ByVal nTimeout As Long = 1500) As Long
Public Declare Function SysRelease Lib "shortmessage.dll" () As Long
Public Declare Function ReadMsgData Lib "shortmessage.dll" (ByVal byWhichBox As Byte, ByVal bFirst As Long, _
                            ByVal bOnlyNew As Long, ByRef data As RecvSmsData, Optional ByVal nTimeout As Long = 1500, _
                            Optional ByVal bForbidSend As Long = 0) As Long
Public Declare Function SendOneSMSChar Lib "shortmessage.dll" (ByVal nSendBox As Integer, ByVal chRecvNum As String, _
                            ByVal chSendData As String, Optional ByVal nTimeout As Long = 28000, _
                            Optional ByVal bForbidSend As Long = 0) As Long
Public Declare Function SetMsgBoxPara Lib "shortmessage.dll" (ByVal bySetType As Byte, ByVal chParaChar As String, _
                            Optional ByVal lPara As Long = 0, Optional ByVal nTimeout As Integer = 1500, _
                            Optional ByVal bForbidSend As Long = 0) As Long
Public Declare Function ReadMsgBoxPara Lib "shortmessage.dll" (ByVal bySetType As Byte, ByVal chParaChar As String, _
                            ByRef lPara As Long, Optional ByVal nTimeout As Integer = 1500, _
                            Optional ByVal bForbidSend As Long = 0) As Long