Berikut ini saya akan memberikan contoh. Bagaimana? cara Terima SMS di PC dengan VB. menggunakan komponen bantuan Fbus.

'---------------------------------------------------------
'Programmer     : Tatang Sutarman
'Email          : tatangs2k0@yahoo.com, tatangs@cimahi-one.com
'Website        : http://cimahi-one.com
'---------------------------------------------------------
Private m_SmsBox As FBSmsBox

Private Sub Command1_Click()
On Error GoTo error

MFBUS15Control1.Connect "COM3"

If MFBUS15Control1.Connected = True Then
    StatusBar1.Panels(1).Text = "Konek"
    StatusBar1.Panels(2).Text = "Nama Provider = " & MFBUS15Control1.ProviderName
    Command2.Enabled = True
End If
   
error:
StatusBar1.Panels(1).Text = "Koneksi Gagal"
StatusBar1.Panels(2).Text = ""
Command2.Enabled = False

End Sub

Private Sub Command2_Click()
If MFBUS15Control1.Connected = False Then
    MsgBox "HP Tidak Konek!", vbCritical
    Exit Sub
End If

MFBUS15Control1.SMS.Refresh

Set m_SmsBox = MFBUS15Control1.SMS.Inbox
For i = 1 To m_SmsBox.Count
    With m_SmsBox(i)
      sMsg = CStr(.DateTime)
      If .Sender <> "" Then
        sMsg = sMsg & "  from:" & .Sender
      End If
      If .Destination <> "" Then
        sMsg = sMsg & "  to:" & .Destination
      End If
      If Not .SentRead Then
        sMsg = sMsg & " (unread)"
      End If
    End With
    lstMsg.AddItem sMsg
  Next i
  If lstMsg.ListCount > 0 Then
    lstMsg.ListIndex = 0
  Else
    lblMsgText.Caption = ""
  End If
  lstMsg.Visible = True

End Sub

Private Sub lstMsg_Click()
 If lstMsg.ListIndex >= 0 Then
    On Error Resume Next
    lblMsgText.Caption = m_SmsBox(lstMsg.ListIndex + 1).Text
  End If
End Sub

-------------------------------------------------------

Source Code plus komponen. Silahkan Anda Download

Setelah download tolong beri Komentar.

Semoga Bermanfaat.