smsreaderdb.frm

SMS sender Source to nokia

VERSION 5.00
Object = "{997F88E9-8CA8-4FD7-A3C6-F411CF22CD7C}#43.0#0"; "MFBUS15.OCX"
Begin VB.Form Reader 
   Caption         =   "SMS Reader"
   ClientHeight    =   5820
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5850
   LinkTopic       =   "Form1"
   ScaleHeight     =   5820
   ScaleWidth      =   5850
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text1 
      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
bus.SMS.Refresh
pesan:
If Err <> 0 Then
 MsgBox "Gagal di connect"
End If
End Sub

Private Sub cmdambil_Click()
 List1.Clear
 Dim db As Connection
 Set db = New Connection
 db.CursorLocation = adUseClient
 db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sms.mdb"
 Set ambilrs = New Recordset
 ambilrs.Open "select * from terima", db, adOpenStatic, adLockOptimistic

 Dim i As Integer, sMsg As String
  
  
 With bus
 Set mSmsBox = .SMS.Inbox
  
  For i = 1 To mSmsBox.Count
    With mSmsBox(i)
        If .Sender <> "" Then
             sMsg = .Sender
             ambilrs.AddNew
             ambilrs("nomor") = sMsg
             ambilrs("isi") = mSmsBox(i).Text
             ambilrs.Update
             
        End If
    End With
        
  Next i
  End With
  Set mSmsBox = Nothing
End Sub

Private Sub Combo1_Click()

End Sub

Private Sub Form_Load()

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

End Sub

Private Sub List1_Click()
Text1.Text = ""
If List1.ListIndex >= 0 Then
    On Error Resume Next ' in case m_SmsBox is invalid
    Text1.Text = mSmsBox(List1.ListIndex + 1).Text
  End If
End Sub