modstruct.bas

手机短信开发

Attribute VB_Name = "Module2"
Option Explicit



Type SysStruct
    CommPort As Integer
    Baud As String
    ServiceNo As String
    DestNo As String
    CallMelody As Integer
    SMSMelody As Integer
    Clock As Boolean
    ClockSet As String
End Type

Type SMSDef
    
'+CMGL: 1,"REC UNREAD","[phone]",,"04/06/04,15:31:25+00"
'00480069002C4F60597D5417003F
    
    ListOrRead As Boolean       '是否用列举(List)方法读取
    SmsIndex As Long
    SourceNo As String
    ReachDate As String
    ReachTime As String
    SmsMain As String
    
End Type

Type SMSPDUStruct
    SMSCLen As String
    SMSCType As String
    SMSC As String
    MsgHead As String
    TPMR As String
    DestPhoneNumLen As String
    DestPhoneNumType As String
    DestPhoneNum As String
    TPPID As String
    TPDSC As String
    TPVP As String
    MSGLen As String
    MSGContent As String
    PDULen As Integer
    PDU As String
    
End Type

Type WAPPushPDUStruct
    SMSCLen As String
    SMSCType As String
    SMSC As String
    PROTOCOL As String
    TPMRBase As String
    RePhoneNumLen As String
    RePhoneNumType As String
    RePhoneNum As String
    
    TPPID As String
    TPDSC As String
    TPVP As String
    MSGLen As String
    
    WAPPUSHHeadLen As String
    WAPPUSHFlag As String
    DATALen As String
    WAPPUSHCOMBFlag As String
    Total As String
    MSGID As String
    WAPPUSHBegin As String
    WSP As String
    Flag As String
    DTDSIFlag As String
    UTF As String
    FlagBegin As String
    
    SIBegin As String
    IndicationBegin As String
    Action As String
    Href As String
    HrefBegin As String
    url As String
    HrefEnd As String
    Split As String
    TitleBegin As String
    title As String
    TitleEnd As String
    SIEnd As String
    IndicationEnd As String
    
    
    PDULen As Integer
    PDU As String
    
End Type