smsreader.frm

SMS sender Source to nokia

VERSION 5.00
Object = "{997F88E9-8CA8-4FD7-A3C6-F411CF22CD7C}#43.0#0"; "MFBUS15.OCX"
Begin VB.Form Reader 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "SMS Reader"
   ClientHeight    =   5820
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5850
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5820
   ScaleWidth      =   5850
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtISI 
      BackColor       =   &H00FFC0C0&
      Height          =   1695
      Left            =   1680
      MultiLine       =   -1  'True
      TabIndex        =   4
      Top             =   3960
      Width           =   3975
   End
   Begin VB.ListBox List1 
      BackColor       =   &H00FFC0C0&
      Height          =   3765
      Left            =   1680
      TabIndex        =   3
      Top             =   120
      Width           =   3975
   End
   Begin VB.CommandButton cmdambil 
      Caption         =   "Simpan Inbox"
      Height          =   495
      Left            =   240
      TabIndex        =   2
      Top             =   480
      Width           =   1215
   End
   Begin VB.ComboBox cmbBox 
      Height          =   315
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   1335
   End
   Begin MFBUS15.MFBUS15Control bus 
      Height          =   480
      Left            =   480
      TabIndex        =   0
      Top             =   1200
      Width           =   480
      _ExtentX        =   847
      _ExtentY        =   847
   End
End
Attribute VB_Name = "Reader"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private mSmsBox As FBSmsBox

Private Sub cmbBox_click()
On Error GoTo pesan
bus.Connect cmbBox.Text
If bus.Connected = True Then
 MsgBox "Connected"
End If
Screen.MousePointer = vbHourglass
bus.SMS.Refresh
Screen.MousePointer = vbDefault

pesan:
If Err <> 0 Then
 MsgBox "Gagal di connect"
End If
End Sub

Private Sub cmdambil_Click()

 Dim i As Integer, sMsg As String
  List1.Clear
  
 With bus
 Set mSmsBox = .SMS.Inbox
  
  For i = 1 To mSmsBox.Count
    With mSmsBox(i)
        If .Sender <> "" Then
             sMsg = .DateTime & " dari : " & .Sender
        End If
    End With
    List1.AddItem sMsg
  Next i
  End With
  Set m_SmsBox = Nothing
End Sub


Private Sub Form_Load()

With cmbBox
 .AddItem "COM1"
 .AddItem "COM2"
 .AddItem "COM3"
End With

End Sub

Private Sub List1_Click()
txtISI.Text = ""
If List1.ListIndex >= 0 Then
    txtISI.Text = mSmsBox(List1.ListIndex + 1).Text
  End If
End Sub