![]() ![]() SMSPort.Read(RXBuffer, 0, SMSPort.ReadBufferSize) ReadThread = New Thread( AddressOf ReadPort)Įnd Sub Public Function SendSMS( ByVal CellNumber As String, ByVal SMSMessage As String) As Boolean Dim MyMessage As String = Nothing ' Check if Message Length 0) And (SMSPort.IsOpen = True) Then While SMSPort.BytesToRead 0 ![]() Public Sub New( ByRef COMMPORT As String) Public Event DataReceived( ByVal Message As String) Shared _Continue As Boolean = False Shared _ContSMS As Boolean = False Private _Wait As Boolean = False Shared _ReadPort As Boolean = False Public Event Sending( ByVal Done As Boolean)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |