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.
1-16-2009 at 4:14am
Kirim SMS dengan VB
2-10-2010 at 7:43pm
2-19-2010 at 8:10am
Thnk's
4-8-2010 at 7:01pm
Ingin Tau lebih jelas'a lg????