mdldefine.bas

这是一个通过手机串口实现短信发送的实例

Attribute VB_Name = "mdlDefine"
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