Kirim SMS ke banyak Nomor dengan VB 6

Sudah lama tidak melakukan posting dan ternyata sekarang sudah hampir masuk ke akhir bulan November 2011, 1 hari kemarin kita merayakan Hari Sumpah Pemuda yang ke 83, salah satu hari yang bersejarah dalam perjalanan hidup bangsa Indonesia dalam mempersatukan bahasa, tanah air dan bangsa menjadi satu dalam istilah lainya Bhineka Tunggal Ika tapi buktinya tidak Ika (baca:satu).

Maaf jadi melantur kemana-mana, untuk postingan kali ini saya akan sedikit memberikan gambaran tentang SMS Gateway, terutama fokusnya "Cara Mengirim SMS ke Banyak Nomor" dengan bahasa program yang akan kita pakai adalah Visual Basic Classic dan Software Database MySQL sebagai media penyimpanan datanya serta tools gammu sebagai gateway Handphone ke MySQL.


Dan bahan-bahan yang harus kita persiapkan selain komputer kesayangan kita, bisa anda pelajari dulu tutorial yang sudah saya sampaikan sebelumnya yaitu Pengantar Membuat Aplikasi SMS. Kalau sudah memahami silahkan dilanjutkan kepaparan berikut di bawah ini.



1. Desain Interface dengan visual basic percis seperti gambar dibawah ini  dan saya harap anda sudah terbiasa dengan bahasa yang satu ini :D

Gambar 1. Desain Interface

 2. Coding program,

'/--------------------------------------------------------------\
' Nama Program : FarrahaSMS                                     '
' Pembuat      : Eka Riana                                      '
' Sifat        : Open Source                                    '
' Email        : ngoprex.eka@gmail.com                          '
' Website      : ngopre-x.blogspot.com                          '
' Phone        : 02199530400                                    '
'\--------------------------------------------------------------/

Option Explicit

Private Sub cmdKirim_Click()
    Dim xNumber As String
    Dim i As Integer
    For i = 0 To List1.ListCount
        xNumber = List1.List(i)
        StrSQL = ""
        StrSQL = "Insert Into outbox (DestinationNumber," _
                & " TextDecoded)" _
                & " values ('" & xNumber & "'," _
                & "'" & TxtIsiPesan.Text & "')"
        Conn.Execute StrSQL
    Next i
    List1.Clear
    TxtIsiPesan.Text = ""
End Sub

Private Sub cmdTambah_Click()
    List1.AddItem txtNoTujuan.Text
    txtNoTujuan.Text = ""
End Sub


Private Sub Form_Activate()
    txtNoTujuan.SetFocus
End Sub

Private Sub Form_Load()
    Call KoneksiMySQL
    TxtIsiPesan.MaxLength = 160
    TxtIsiPesan.Text = ""
End Sub


Private Sub TxtIsiPesan_Change()
    Label6.Caption = Len(TxtIsiPesan.Text)
    If Label6.Caption = 160 Then
        MsgBox "Batas Max SMS hanya 160", vbInformation, _
        "FarrahaSOfT"
        Exit Sub
    End If
End Sub

Private Sub txtNoTujuan_KeyPress(KeyAscii As Integer)
    'Tidak dipakai
    If KeyAscii = 27 Then frmPhoneList.Show
End Sub

Jangan lupa untuk membuat prosedur KoneksiMySQL pada modul, coding programnya bisa dilihat dibawah ini :

Public Conn         As New ADODB.Connection
Public RsKirim      As New ADODB.Recordset

Public Sub KoneksiMySQL()

    On Error GoTo salah
    
    If Conn.State <> 0 Then Conn.Close
    
    Set Conn = New ADODB.Connection
    
    Conn.CursorLocation = adUseClient
    
    Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                        & "SERVER=localhost;" _
                        & "DATABASE=sms;" _
                        & "UID=root;PWD="
    Conn.Open
    
    Exit Sub
    
salah:
    MsgBox Err.Description, vbCritical, "ERROR!"
    
End Sub

3. Silahkan test dengan cara running program yang sudah kita buat, kemudian masukkan beberapa nomor, jangan lupa masukkan isi pesan yang mau dikirim, Klik Tombol Kirim SMS, lihat hasilnya apakah SMS yang kita kirim sudah sampai di nomor tujuan atau belum.

Tambahan :
Jangan lupa untuk menjalankan Daemon SMSD nya.

Demikian paparan yang saya sampaikan ini, paparan ini hanyalah sebuah dokumentasi pribadi semata, bila ada yang ingin disampaikan silahkan berikan komentar dibawah ini.

Untuk source codenya silahkan unduh di ----> BulkSMS