home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
- Object = "{B5A35CF1-F3F2-419B-B489-710924065829}#1.0#0"; "ActiveSMSClient.dll"
- Begin VB.Form frmActiveSMS
- Caption = "ActiveSMS"
- ClientHeight = 5400
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 5520
- LinkTopic = "Form1"
- ScaleHeight = 5400
- ScaleWidth = 5520
- StartUpPosition = 3 'Windows Default
- Begin VB.Frame Frame2
- Caption = "Outgoing Message"
- Height = 2415
- Left = 120
- TabIndex = 2
- Top = 120
- Width = 5295
- Begin VB.CommandButton SendMessage
- Caption = "Send Message"
- Height = 375
- Left = 1560
- TabIndex = 7
- Top = 1920
- Width = 1455
- End
- Begin VB.TextBox tbMessage
- Height = 975
- Left = 1560
- TabIndex = 6
- Top = 840
- Width = 3495
- End
- Begin VB.TextBox tbNumber
- Height = 285
- Left = 1560
- TabIndex = 4
- Text = "44"
- Top = 310
- Width = 2415
- End
- Begin VB.Label Label2
- Alignment = 1 'Right Justify
- Caption = "Text:"
- Height = 255
- Left = 960
- TabIndex = 5
- Top = 840
- Width = 495
- End
- Begin VB.Label Label1
- Alignment = 1 'Right Justify
- Caption = "Phone Number:"
- Height = 255
- Left = 240
- TabIndex = 3
- Top = 360
- Width = 1215
- End
- Begin ACTIVESMSCLIENTLibCtl.ActiveSMSListener MsgListener
- Left = 4440
- OleObjectBlob = "frmActiveSMS.frx":0000
- Top = 240
- End
- End
- Begin VB.Frame Frame1
- Caption = "Incoming Messages"
- Height = 2655
- Left = 120
- TabIndex = 0
- Top = 2640
- Width = 5295
- Begin ComctlLib.ListView lvIncomingMsgs
- Height = 2295
- Left = 120
- TabIndex = 1
- Top = 240
- Width = 5055
- _ExtentX = 8916
- _ExtentY = 4048
- View = 3
- LabelWrap = -1 'True
- HideSelection = -1 'True
- _Version = 327682
- ForeColor = -2147483640
- BackColor = -2147483643
- BorderStyle = 1
- Appearance = 1
- NumItems = 3
- BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
- Key = ""
- Object.Tag = ""
- Text = "Phone Number"
- Object.Width = 2540
- EndProperty
- BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
- SubItemIndex = 1
- Key = ""
- Object.Tag = ""
- Text = "Text"
- Object.Width = 2540
- EndProperty
- BeginProperty ColumnHeader(3) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
- SubItemIndex = 2
- Key = ""
- Object.Tag = ""
- Text = "Handset"
- Object.Width = 1764
- EndProperty
- End
- End
- Attribute VB_Name = "frmActiveSMS"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Dim ActiveSMS As New ACTIVESMSCLIENTLib.ActiveSMS
- Private Sub Form_Load()
- 'Listener should be enabled after form load to
- 'prevent loss of messages
- MsgListener.Enabled = True
- End Sub
- Private Sub SendMessage_Click()
- Dim MessageId As Integer
- MessageId = ActiveSMS.SendMessage(tbNumber, tbMessage, 20000) '20000 = 20secs
- Dim Status As ACTIVESMSCLIENTLib.EnumJobStatus
- Status = ActiveSMS.GetSendStatus(MessageId)
- Select Case Status
- Case ACTIVESMSCLIENTLib.jsSent
- MsgBox "Message has been sent"
- Case ACTIVESMSCLIENTLib.jsErrTimeout
- MsgBox "Message not sent, Server too busy [Non-Queued Mode]"
- Case ACTIVESMSCLIENTLib.jsErrNumberInvalid
- MsgBox "Message not sent, Invalid Number"
- Case ACTIVESMSCLIENTLib.jsPending, ACTIVESMSCLIENTLib.jsProcessing
- MsgBox "Message has been queued"
- Case ACTIVESMSCLIENTLib.jsErrNetworkFailure
- MsgBox "Message not sent, Failure reported by phone network"
- Case ACTIVESMSCLIENTLib.jsErrPhoneCommsError
- MsgBox "Message not sent, Error communicating with handset"
- Case Else
- MsgBox "Message not sent, Internal error occured (see EventLog)"
- End Select
- End Sub
- Private Sub MsgListener_OnMessageReceived(ByVal PhoneNumber As String, ByVal Message As String, ByVal Handset As Long)
- Dim Item As ListItem
- Set Item = lvIncomingMsgs.ListItems.Add(, , PhoneNumber)
- Item.SubItems(1) = Message
- Item.SubItems(2) = Handset
- End Sub
-