module1.bas

CMPP2.0 接口的VB 程序

Attribute VB_Name = "Module1"
Public gwconnid As Integer
Public moconnid As Integer
Public mycmpp As cmppatlLib.CMPP2


Public Type Msgid
        msg_id(7) As Byte
End Type
Public Type QueryRes
    mt_total_msg(3) As Byte
    mt_total_user(3) As Byte
    mt_succ(3) As Byte
    mt_wait(3) As Byte
    mt_fail(3) As Byte
    mo_succ(3) As Byte
    mo_wait(3) As Byte
    mo_fail(3) As Byte
End Type
Public Type Statusreport
    msg_id(7) As Byte
    stat(6) As Byte
    submit_time(9) As Byte
    done_time(9) As Byte
    destUser(20) As Byte
    smsc_seq(3) As Byte
End Type
Public Type MOmsg
        msg_id(7) As Byte
        dest_id(20) As Byte
        service_id(9) As Byte
        tp_pid As Byte
        tp_udhi As Byte
        msgFormat As Byte
        sourceUser(11) As Byte
        reg_deliver As Byte
        msgLen As Byte
        msg(160) As Byte
End Type
Public Type CancelRep_Msg
    res(3) As Byte
End Type