cphone.vb

实现Text模式下短信的发送接收。有些较老的手机不支持PDU模式

Public Class CPhone
    Protected Phone As New Rs232
    Public Function Init(ByVal Port As Integer) As Boolean  '初始化手机,成功返回Ture,错误返回False
        With Phone
            .Port = Port
            .Open()
            .Write("AT" & vbCrLf)
            .Read()
            Dim ss As String = .InputStreamString
            If InStr(ss, "OK") Then Return True Else Return False
        End With
    End Function
    Public Function Disconnect() As Boolean
        If Phone.IsOpen = True Then Phone.Close()
        If Phone.IsOpen = False Then Return True Else Return False
    End Function
End Class