SMS GATEWAY dengan VB

Sms Gateway Dengan VB

29 07 2009

Sekedar Sharing Info tentang SMS Gateway ajah…..

Ini di dapat dari blog temen nyari di Google (hee..he..hee..)

Mungkin sebagian orang ga ngerti maksudnya sms gateway itu apa….

SMS gateway adalah sebuah aplikasi yang dijalankan melalui komputer dan terhubung dengan handset (HP) GSM (berhubung yang akan di bahas adalah SMS gateway untuk GSM) untuk dapat mengangani SMS yang masuk maupun yang keluar.

Ada beberapa kelengkapan yang diperlukan untuk membuat SMS gateway menggunakan visual basic 6, antara lain:

1. Komputer (So pasti @_@)
2. Handphone (Handset)
3. Kabel data Serial (kalo mau beli nama pasarnya biasanya kabel 5 in 1)
4. File MFBUS15.ocx

File MFBUS15.ocx berfungsi sebagai component untuk melakukan koneksi dengan komputer ketika handphone dihubungkan dengan komputer. Untuk jenis HP yang dapat digunakan dan File MFBUS15.ocx dapat di download disini

Lakukan instalasi MFBUS15.ocx, caranya dapat mengikuti perintah yang ada dalam file yang sampean download. Setelah itu ketikan code ini untuk melakukan koneksi :

‘koneksi

Me.fbus.Connect “COM1”
If Me.fbus.Connected = True Then
Msgbox “Koneksi Berhasil”
Else
Msgbox “Koneksi Gagal”
End If

Perintah me.fbus.connect adalah perintah untuk koneksi ke modem GSM,lalu “COM1” adalah nomor Port yang digunakan.
Tanda petik jangan dihilangkan, karena harus berupa string. Setelah koneksi terjadi, sekarang kamu bisa melakukan apa saja yang kamu inginkan misalnya membaca SMS ataupun mengirim SMS.

Untuk mengambil SMS gunakan perintah sms.refresh

Me.fbus.SMS.Refresh

Gunakan perintah ini untuk mengambil semua SMS yang ada di handphone, kemudian gunakan perintah Me.fbus.SMS.Inbox(nosms).text untuk membaca SMS di kotak inbox dan Me.fbus.SMS.Outbox(nosms).text untuk SMS di kotak Outbox…

DonLot Di Sini :

SMS GateWay

Ide awalnya saya dapat ketika ingin membuat sebuah aplikasi untuk mengecek apakah komputer dirumah dalam keadaan mati atau menyala?karena saya sering lupa mematikan komputer ketika akan berangkat kerja.Sehingga apabila masih dalam keadaan menyala,saya tinggal sms ke server di rumah dan komputer akan Shutdown secara otomatis.
Lalu muncullah ide membuat aplikasi sms gateway untuk mematikan komputer dari jarak jauh.Pake Vb aja deh. Setelah bertapa berminggu-minggu, dan bertanya-tanya sama Mbah sakti mandra guna “GOOGLE”, lalu ketemulah dengan MFBUS15.ocx .Awalnya sih pingin cari yang murni Source code,tapi setelah dipikir-pikir jika ada yang lebih mudah, kenapa cari yang susah???

Oke cukup basa-basi langsung aja.

Seperti yang saya bilang tadi, kita butuh yang namanya MFBUS15.ocx bisa tanya-tanya sama mbah google atau sedot disini… : ) hehehe.

Bagaimana cara penggunaannya?

Sebelumnya kamu harus tahu nomor COM berapa modem GSM atau Handphone kamu terpasang. Saya nyoba pake hp nokia 3310 yang terpasang di COM1.
Masukkan MFBUS15.ocx tadi ke program kamu dan beri nama fbus.
Kemudian lakukan koneksi dengan perintah:

Me.fbus.Connect “COM1”
If Me.fbus.Connected = True Then
Msgbox “Koneksi Berhasil”
Else
Msgbox “Koneksi Gagal”
End If

Nah, perintah me.fbus.connect adalah perintah untuk koneksi ke modem GSM,lalu “COM1” adalah nomor Port yang saya gunakan.
Tanda petik jangan dihilangkan, karena harus berupa string. Setelah koneksi terjadi, sekarang kamu bisa melakukan apa saja yang kamu inginkan misalnya membaca SMS ataupun mengirim SMS.

Untuk mengambil SMS gunakan perintah sms.refresh

Me.fbus.SMS.Refresh

Gunakan perintah ini untuk mengambil semua SMS yang ada di handphone, kemudian gunakan perintah Me.fbus.SMS.Inbox(nosms).text untuk membaca SMS di kotak inbox dan Me.fbus.SMS.Outbox(nosms).text untuk SMS di kotak Outbox…

Rul, trus nosms itu apa??? Begini… Apabila didalam kotak masuk atau Inbox atau pun di Outbox kita ada 5 SMS, trus kamu ingin membaca SMS yang ke 3, maka nosms kamu isi dengan 3 dst… trus klo mau baca semua??? Ya tinggal masukkan aja dalam perulangan

Contoh:

For i = 1 To Me.fbus.SMS.Inbox.Count
Msgbox Me.fbus.SMS.Outbox(i)
Next I

Untuk mengirim SMS kamu bisa gunakan perintah :

Me.fbus.SendSMSMessage notujuan, teks

Notujuan dan teks harus berupa string.

Didalam file yang kamu sedot tadi sudah ada the fucking manual file, silahkan membaca file tersebut namun saya tetap menerima pertanyaan dari kamu-kamu semua.
Selamat mencoba…

PS: Bagian berikutnya mungkin akan membahas mengenai SMS Gateway menggunakan GAMMU.
bagi yang ingin membuat program sejenis ini, saya juga melayani pemesanan Program sejenis (SMS Gateway) atau program-program lainnya. Web juga bisa kok portfolio saya bisa dilihat dihalaman portfolio…

Baca Juga:

1. Sms Gateway menggunakan VB 6.0 dan At-Command Siemens C55
2. VISUAL BASIC 6.0 PORTABLE
3. Visual Basic 6.0 Windows XP Looks
4. Shutdown, Restart, dan logoff dengan Visual Basic 6.0
5. Converting Hexadecimal to String / Text with Visual Basic 6.0

Sumber : www.fahrul.co.cc