Berikut ini saya akan memberikan contoh. Bagaimana? cara kirim 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_num As String
Private mess As String
Private com_port As String

Private Sub Command1_Click()
'Menentukan Port Pada PC yang dipakai Oleh HP
com_port = "COM1"

'Connecting the Port untuk mengirimkan SMS
sms.Connect com_port

'Tampilkan Status pada saat connect
statbar.Panels(1) = "Connected To Phone On COM1"

'Assining No HP
m_num = txtMobNum.Text

'Assining Pesan yang dikirim
mess = txtmess.Text

'Setting Pesan yang dikirim
sms.SMSClass = fbSmsClassFlash

'Kirim Pesan
sms.SendSMSMessage m_num, mess

'Tampilkan Pesan Pada Status Bar
statbar.Panels(1) = "Message Sent to"
statbar.Panels(2) = m_num

'Disconnecting the port
sms.Disconnect

End Sub

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

Source Code plus komponen. Silahkan anda Download

Setelah download tolong beri Komentar.

Semoga Bermanfaat.