Kalaupaket sms sekarang ini mahal maka coba anda seru-seruan pakai SMS Group yang lebih murah. Adapun cara mendaftar atau membuat sebuah SMS Group Telkomsel sangat mudah, # Tinggal anda ketik *500*8118#. # Pilih no 1 (buat Group) # Lalu anda ikuti perintahnya sampai selesai. Sms ini dapat digunakan pada semua ponsel, baik ponsel biasa maupun
SMS Gateway adalah sebuah sistem yang memungkinkan Anda untuk mengirim dan menerima pesan SMS Short Message Service melalui jaringan telekomunikasi. SMS Gateway dapat diimplementasikan dalam berbagai bentuk, seperti aplikasi berbasis web, aplikasi pada server, atau perangkat hardware khusus yang terhubung ke jaringan telekomunikasi. SMS Gateway biasanya digunakan oleh perusahaan atau organisasi untuk mengirim pesan SMS ke pelanggan atau karyawan mereka secara massal, seperti mengirim pemberitahuan, promosi, atau informasi penting lainnya. SMS Gateway juga dapat digunakan oleh individu untuk mengirim pesan SMS ke nomor telepon lain secara cepat dan mudah. SMS Short Message Service atau layanan pesan pendek pertama kali diperkenalkan pada tahun 1992 oleh penyelenggara jasa telekomunikasi GSM Global System for Mobile Communications di Eropa. Pada awalnya, SMS hanya dapat digunakan untuk mengirim pesan teks sederhana antar pengguna telepon seluler yang terhubung ke jaringan GSM yang sama. Pengembangan SMS Gateway mulai dikembangkan pada tahun-tahun berikutnya, seiring dengan pertumbuhan dan popularitas SMS yang semakin meningkat. SMS Gateway pertama kali ditemukan pada tahun 1993 oleh penyelenggara jasa telekomunikasi SMPP Short Message Peer-to-Peer di Inggris. SMS Gateway memungkinkan pengguna untuk mengirim pesan SMS ke nomor telepon lain yang terhubung ke jaringan telekomunikasi lainnya, bukan hanya ke pengguna yang terhubung ke jaringan yang sama. SMS Gateway mulai digunakan secara luas pada akhir 1990-an, ketika pertumbuhan pengguna telepon seluler dan popularitas SMS semakin meningkat. Pada saat itu, SMS Gateway mulai dikembangkan oleh berbagai penyelenggara jasa telekomunikasi di seluruh dunia, dan mulai digunakan oleh perusahaan dan organisasi untuk mengirim pesan SMS ke pelanggan dan karyawan mereka secara massal. Cara Membuat Aplikasi SMS Gateway Berbasis WebPersiapkan Bahan Untuk Membuat Aplikasi SMS Gateway1. Web server yang mendukung PHP, seperti Apache atau Modem GSM atau Android smartphone yang mendukung fitur Koneksi Internet yang stabilLangkah-langkah membuat aplikasi SMS Gateway berbasis webAplikasi SMS Gateway Gratis di AndroidSMS Gateway MESMS Gateway HubGo SMS ProSMS Gateway App Cara Membuat Aplikasi SMS Gateway Berbasis Web Persiapkan Bahan Untuk Membuat Aplikasi SMS Gateway Untuk membuat aplikasi SMS Gateway berbasis web, pertama-tama Anda perlu mempersiapkan beberapa bahan yaitu 1. Web server yang mendukung PHP, seperti Apache atau Nginx. Apache dan Nginx adalah dua web server yang populer dan dapat mendukung PHP. Apache adalah web server yang paling banyak digunakan di dunia, dan menawarkan berbagai fitur, seperti kemampuan untuk menjalankan banyak modul ekstensi yang dapat menambahkan fitur tambahan ke web server. Nginx adalah web server yang lebih ringan dan cepat dibandingkan Apache, dan sering digunakan sebagai web server yang memperkerjakan PHP menggunakan FastCGI. Namun, Nginx tidak memiliki fitur yang sama dengan Apache, seperti kemampuan untuk menjalankan modul ekstensi. Kedua web server ini dapat digunakan untuk menjalankan PHP, dan pilihan terbaik tergantung pada kebutuhan dan preferensi Anda. 2. Modem GSM atau Android smartphone yang mendukung fitur tethering. Untuk menggunakan modem GSM atau smartphone Android sebagai sms gateway, pertama-tata Anda perlu memastikan bahwa perangkat tersebut mendukung fitur tethering atau hotspot personal. Fitur ini memungkinkan perangkat untuk berbagi koneksi internetnya dengan perangkat lain melalui Wi-Fi, Bluetooth, atau koneksi USB. Setelah mengaktifkan fitur tethering, Anda dapat menghubungkan komputer atau server ke perangkat tersebut sebagai client, dan menggunakannya sebagai sms gateway dengan mengirim dan menerima SMS melalui perangkat tersebut menggunakan aplikasi atau skrip yang sesuai. 3. Koneksi Internet yang stabil Untuk menggunakan sms gateway dengan efektif, koneksi internet yang stabil dan cepat sangat penting. Hal ini karena proses pengiriman dan penerimaan SMS melalui sms gateway biasanya melibatkan pertukaran data melalui internet. Untuk memastikan koneksi internet yang stabil, Anda dapat mempertimbangkan beberapa faktor seperti Kecepatan koneksi internet Pastikan bahwa kecepatan koneksi internet yang Anda gunakan cukup tinggi untuk mendukung proses pengiriman dan penerimaan SMS yang efektif. Ketahanan jaringan Pastikan bahwa jaringan internet yang Anda gunakan tidak mudah terputus atau terganggu oleh gangguan eksternal. Penggunaan sumber daya Jika Anda menggunakan server atau perangkat lain untuk menjalankan sms gateway, pastikan bahwa sumber daya yang tersedia cukup untuk mendukung proses pengiriman dan penerimaan SMS. Kestabilan provider internet Pilih provider internet yang memiliki reputasi baik dan menawarkan layanan yang handal untuk memastikan kestabilan koneksi internet Anda. Dengan memperhatikan faktor-faktor ini, Anda dapat memastikan bahwa sms gateway Anda dapat beroperasi dengan efektif dengan koneksi internet yang stabil. Langkah-langkah membuat aplikasi SMS Gateway berbasis web Instal dan konfigurasi web server yang mendukung PHP. Hubungkan modem GSM atau smartphone ke komputer Anda melalui USB atau koneksi WiFi. Pastikan modem GSM atau smartphone tersebut terdeteksi oleh sistem operasi Anda. Buat database dan tabel di database untuk menyimpan pesan SMS yang akan dikirim. Buat sebuah script PHP untuk mengirim pesan SMS melalui modem GSM atau smartphone. Buat halaman web yang menampilkan form untuk mengirim pesan SMS dan mengirim pesan SMS tersebut menggunakan script PHP yang telah Anda buat. Itu adalah langkah-langkah umum yang dapat Anda ikuti untuk membuat aplikasi SMS Gateway berbasis web. Selanjutnya, Anda dapat mengembangkan aplikasi tersebut sesuai dengan kebutuhan dan fitur yang diinginkan. Aplikasi SMS Gateway Gratis di Android Ada beberapa aplikasi SMS Gateway gratis yang tersedia untuk sistem operasi Android, di antaranya adalah SMS Gateway ME Aplikasi ini memungkinkan Anda untuk mengirim dan menerima pesan SMS melalui smartphone Android Anda. Anda dapat mengirim pesan SMS ke satu atau lebih nomor telepon, dan juga dapat mengatur program pengiriman pesan SMS secara otomatis. SMS Gateway Hub Aplikasi ini menyediakan layanan SMS Gateway yang dapat digunakan oleh perusahaan atau organisasi untuk mengirim pesan SMS ke pelanggan atau karyawan mereka secara massal. Aplikasi ini menyediakan fitur seperti pengelolaan kontak, pembuatan grup, dan laporan pengiriman pesan. Go SMS Pro Aplikasi ini merupakan aplikasi SMS yang berguna untuk mengirim dan menerima pesan SMS, namun juga menyediakan fitur SMS Gateway untuk mengirim pesan SMS ke banyak nomor telepon sekaligus. Aplikasi ini menyediakan fitur seperti pengelolaan kontak, tema, dan efek transisi yang dapat disesuaikan. SMS Gateway App Aplikasi ini menyediakan layanan SMS Gateway yang dapat digunakan untuk mengirim pesan SMS secara massal ke pelanggan atau karyawan Anda. Aplikasi ini menyediakan fitur seperti pembuatan grup, pengelolaan kontak, dan laporan pengiriman pesan. Itu adalah beberapa contoh aplikasi SMS Gateway gratis yang tersedia untuk Android. Anda dapat memilih aplikasi yang sesuai dengan kebutuhan dan fitur yang diinginkan.
Konfigurasiapplikasi SMS Gateway. Setelah applikasi pertama kali terinstall dan permissionnya sudah disetujui selanjutnya yang dilakukan adalah mengkonfigurasikan SMS gateway Anda dengan cara mengklik pada menu pojok kanan atas layar Android Anda. Setelah menu di klik pilih submenu Konfigurasi. Setelah klik submenu Konfigurasi, maka akanBagi para pengembang aplikasi, membuat sebuah aplikasi SMS gateway dapat menjadi sebuah tantangan yang menarik. Dengan aplikasi ini, Anda dapat mengirim dan menerima pesan teks melalui jaringan seluler. Namun, sebelum Anda memulai, pastikan bahwa Anda memahami langkah-langkah yang diperlukan untuk membuat aplikasi SMS gateway. Panduan Membuat Aplikasi SMS GatewayLangkah 1 Pilih PlatformLangkah 2 Pilih Bahasa PemrogramanLangkah 3 Buat Koneksi dengan Operator SelulerLangkah 4 Buat User InterfaceLangkah 5 Uji AplikasiLangkah 6 Rilis AplikasiYang sering ditanyakanKelebihan Membuat Aplikasi SMS GatewayTipsRingkasan Panduan Membuat Aplikasi SMS Gateway Langkah 1 Pilih Platform Sebelum Anda mulai membuat aplikasi SMS gateway, Anda perlu memutuskan di platform mana aplikasi ini akan dijalankan. Ada beberapa platform populer yang dapat Anda gunakan, termasuk Android, iOS, dan Windows. Pastikan Anda memilih platform yang sesuai dengan kebutuhan Anda. Langkah 2 Pilih Bahasa Pemrograman Setelah Anda memilih platform, langkah selanjutnya adalah memilih bahasa pemrograman yang akan digunakan. Beberapa bahasa pemrograman yang populer untuk membuat aplikasi SMS gateway termasuk Java, Python, dan PHP. Pastikan Anda memilih bahasa pemrograman yang Anda kuasai dengan baik. Langkah 3 Buat Koneksi dengan Operator Seluler Setelah Anda memilih platform dan bahasa pemrograman, langkah selanjutnya adalah membuat koneksi dengan operator seluler. Ini memungkinkan aplikasi Anda untuk mengirim dan menerima pesan teks melalui jaringan seluler. Untuk melakukan ini, Anda perlu memperoleh izin dari operator seluler dan mengikuti petunjuk yang diberikan. Langkah 4 Buat User Interface Setelah Anda membuat koneksi dengan operator seluler, langkah selanjutnya adalah membuat user interface untuk aplikasi Anda. Ini memungkinkan pengguna untuk mengakses aplikasi dan mengirim dan menerima pesan teks dengan mudah. Pastikan Anda membuat user interface yang intuitif dan mudah digunakan. Langkah 5 Uji Aplikasi Setelah Anda selesai membuat aplikasi SMS gateway, langkah terakhir adalah mengujinya. Pastikan Anda menguji aplikasi Anda secara menyeluruh untuk memastikan bahwa semuanya berfungsi dengan baik sebelum Anda merilisnya ke publik. Langkah 6 Rilis Aplikasi Setelah Anda menguji aplikasi Anda dan memastikan bahwa semuanya berfungsi dengan baik, langkah terakhir adalah merilis aplikasi Anda ke publik. Pastikan Anda mempromosikan aplikasi Anda dengan baik untuk meningkatkan jumlah pengguna. Yang sering ditanyakan Apakah sulit membuat aplikasi SMS gateway? Membuat aplikasi SMS gateway dapat menjadi tantangan yang menarik, tetapi memerlukan keterampilan dan pengetahuan yang cukup untuk berhasil. Saya harus menggunakan platform apa untuk membuat aplikasi SMS gateway? Ada beberapa platform yang dapat Anda gunakan, termasuk Android, iOS, dan Windows. Pilihlah platform yang sesuai dengan kebutuhan Anda. Bahasa pemrograman apa yang terbaik untuk membuat aplikasi SMS gateway? Ada beberapa bahasa pemrograman yang dapat Anda gunakan, termasuk Java, Python, dan PHP. Pilihlah bahasa pemrograman yang Anda kuasai dengan baik. Apa yang harus saya lakukan jika aplikasi SMS gateway saya tidak berfungsi dengan baik? Pastikan Anda menguji aplikasi Anda secara menyeluruh dan mencari bantuan dari ahli jika perlu. Apakah saya harus memperoleh izin dari operator seluler untuk membuat aplikasi SMS gateway? Ya, Anda perlu memperoleh izin dari operator seluler untuk membuat aplikasi SMS gateway. Berapa biaya yang saya perlu keluarkan untuk membuat aplikasi SMS gateway? Biaya untuk membuat aplikasi SMS gateway dapat bervariasi tergantung pada platform yang Anda gunakan dan sumber daya yang Anda butuhkan. Apakah saya dapat menghasilkan uang dengan membuat aplikasi SMS gateway? Ya, Anda dapat menghasilkan uang dengan membuat aplikasi SMS gateway dan memasarkannya dengan baik. Apakah saya perlu memiliki pengetahuan teknis yang tinggi untuk membuat aplikasi SMS gateway? Ya, Anda perlu memiliki pengetahuan teknis yang tinggi untuk membuat aplikasi SMS gateway yang sukses. Kelebihan Membuat Aplikasi SMS Gateway Membuat aplikasi SMS gateway dapat memberikan banyak manfaat, termasuk Memungkinkan pengguna untuk mengirim dan menerima pesan teks melalui jaringan seluler. Memungkinkan pengguna untuk mengakses aplikasi dengan mudah dan mengirim dan menerima pesan teks dengan mudah. Bisa menghasilkan uang dengan memasarkan aplikasi Anda dengan baik. Tips Berikut adalah beberapa tips untuk membuat aplikasi SMS gateway yang sukses Pilih platform yang sesuai dengan kebutuhan Anda. Pilih bahasa pemrograman yang Anda kuasai dengan baik. Membuat user interface yang intuitif dan mudah digunakan. Menguji aplikasi Anda secara menyeluruh sebelum merilisnya ke publik. Mempromosikan aplikasi Anda dengan baik untuk meningkatkan jumlah pengguna. Ringkasan Membuat aplikasi SMS gateway dapat menjadi tantangan yang menarik, tetapi memerlukan keterampilan dan pengetahuan yang cukup untuk berhasil. Pastikan Anda memilih platform yang sesuai dengan kebutuhan Anda, memilih bahasa pemrograman yang Anda kuasai dengan baik, membuat koneksi dengan operator seluler, membuat user interface yang intuitif dan mudah digunakan, menguji aplikasi Anda secara menyeluruh, dan mempromosikan aplikasi Anda dengan baik untuk meningkatkan jumlah pengguna. Aplikasi cara membuat12Export sms ke excel untuk print out dll 13.Bisa kirim sms dengan menyebutkan nama, dari masing-masing member. Dan juga aplikasi ini memiliki banyak Multi Modem, Multi Fungsi danSatu Harga Selain dari itu Software sms massal, sms marketing aretasoft juga berfungsi sebagai: 1 Import data no HP dari excel 2 Kirim sms massal dari data excel SMS Gateway Adalah satu platform yang menyediakan mekanisme untuk menghantar dan menerima SMS dan Merupakan pintu gerbang bagi penyebaran Informasi dengan menggunakan SMS, sehingga memudahkan dalam menyebarkan pesan ke ratusan nomor secara otomatis dan cepat yang langsung terhubung dengan database nomor-nomor ponsel. Sms sekarang bisa jadi sudah mulai di tinggalkan karena sudah banyak aplikasi yang dapat mengirimkan yang lebih baik mulai dari BBM, Whatsapp, chat On dan masih banyak lagi fasilitas untuk mengirim pesan pada smartphone pada saat ini, walaupun sms ketinggalan jaman tapi tetap bisa menjadi salah satu alat mengirim pesan sederhana yang memiliki pusa terbatas, kali ini saya coba shering cara membangun SMS Gateway atau Sebutan yang kerennya saat ini SMS Center, pasti pada penasaran yup untuk alat dan bahan sederhana yakni Alat dan Bahan yang Digunakan PC/Laptop Minimal Dengan Sistem Operasi Windows XP Sp 3 Modem GSM/CDMA Kartu operator GSM/CDMA dan tentunya jangan lupa kartunya di isi pulsa Download Software yang Akan Digunakan Kalkun program opensource untuk mengatur sms yang keluar dan masuk Gammu Engine untuk penghubungnya dengan modem dan Kalkun agar sms yang masuk lansung di transfer ke Inbox Aplikasi Kalkun, dengan Alat dan bahan yang dipersiapkan adalah Modem GSM. XAMPP sebagai webserver dan database server. Untuk lebih lengkapnya tutorial SMS Gateway dapat di Download disini. Saat ini fungsi sms tidak sekedar untuk berkirim pesan kepada kerabat saja, tapi sudah beralih ke fungsi yang lain misalnya quiz sms, polling sms, layanan Info On Demand, dan sebagainya. Semua aplikasi tersebut membutuhkan suatu aplikasi yang disebut sms gateway. Aplikasi SMS gateway bisa diterapkan pada Café, Toko, Rumah sakit, Sekolah, maupun instansi pemerintah. Contoh aplikasi Info On Demand untuk Sekolah misalnya -> Info nilai ujian siswa. cara kerja client mengirim siswa diikuti mata pelajaran ke nomor server lalu server akan mengirim nilai ujian secara otomatis -> Info jadwal ujian, pendaftaran siswa baru dsb. Sebenarnya untuk membuat SMS gateway tidak terlalu sulit. Bahkan bagi yang awam coding sekalipun. Cukup sedikit pengetahuan tentang Visual Basic dan MsAccess, anda bisa membuat apikasi SMS Gateway sendiri. Yang diperlukan untuk membuat aplikasi SMS Gateway Hardware – Computer – GSM Modem atau HP Nokia series sebagai sms gateway – Kabel Data USB /serial Software – Visual Basic – FBus Activex sebagai komponen Visual Basic – MsAccess sebagai database Dengan SMS Activex, kita sudah bisa menerima sms, membaca inbox, maupun mengirim sms melalui PC. Lalu gimana caranya agar kita bisa membuat sms gateway yang bisa memberikan layanan Info On demand? Berikut langkah-langkahnya 1. Koneksikan database MsAccess dengan Visual Basic 2. Isi database MsAccess dengan database Buku Telepon 3. Memodifikasi script dari smsactivex. Sehingga setiap ada pesan masuk, program akan membalas secara otomatis. Source Codenya plus Componentnya. Silahkan anda Download TUTORIAL Oke jadi kasusnya apa nih, kita ambil aja sample sederhana yaitu “pembuatan sms gateway untuk request nilai siswa” dan untuk menyederhanakan pembahasan keywordnya kita batasi saja yaitu request nilai tugas dan ulangan. Apa yang harus di persiapkan, pertama kita rancang dulu databasenya dan berhubung artikelsaya yang membahas tentang database SQLite masih hangat jadi untuk databasenya kita menggunakan SQLite saja. SQLite adalah database standalone yang kecil, mungil dan gratis. Bagaimana cara membuat database di SQLite sudah saya bahas disini kemudian bagaimana mengaksesnya dari aplikasi juga sudah saya bahasa disini. Berikut adalah rancangan sederhana database sms yang akan kita buat Ada banyak cara untuk membaca sms masuk dan membalasanya, salah satunya adalah menggunakan perintah AT COMMAND dan Microsoft sendiri sudah menyediakan komponenyang bisa mengeksekusi perintah-perintah tersebut. Tentunya cara ini menggunakan AT COMMAND bukan cara yang favorit dikalangan programmer instan seperti Anda dan Saya , jadi diartikel ini saya menggunakan komponenpihak ketiga. Ingat komponen ini adalah shareware, segala resiko kemudahan dalam membuat aplikasi sms gateway ditanggung sendiri , saya disini hanya share dan tidak terikat kerja sama dengan pihak ketiga tersebut. Halah pernyataan ngawur Berikut adalah cuplikan source code untuk membaca dan mengirim sms menggunakan komponen ActiveXpert SMS 1. Membaca SMS Masuk Private Sub cmdBacaSMS_Click Dim objGsmIn As Set objGsmIn = New With objGsmIn .Activate "XXX-XXXX-XXXX-XXXXX" 'diisi serial number yg Anda dapatkan secara ilegal .Device = "COM1" 'disesuaikan dengan port COM yang digunakan .DeviceSpeed = 19200 'default = 0 .Storage = 2 '0=sim 1=device 2=any .DeleteAfterReceive = True .Receive If .LastError = 0 Or .LastError = 23140 Then ' Success .GetFirstMessage While .LastError = 0 "Pengirim " & .MessageSender "Isi SMS " & .MessageData 'TODO INSERT KE TABEL SMS_IN .GetNextMessage Wend End If End With Set objGsmIn = Nothing End Sub 2. Mengirim sms Private Sub cmdKirimSMS_Click Dim objGsmOut As Dim objConstants As Set objGsmOut = New Set objConstants = New With objGsmOut .Activate "XXX-XXXX-XXXX-XXXXX" 'diisi serial number yg Anda dapatkan secara ilegal .Device = "COM1" 'disesuaikan dengan port COM yang digunakan .DeviceSpeed = 19200 'default = 0 .RequestStatusReport = False .MessageType = 'mengirim pesan maksimal 160 karakter '.MessageType = 'jika lebih dari 160 karakter gunakan opsi ini .MessageRecipient = "nomor tujuan" 'biasanya menggunakan prefix +62 .MessageData = "isi pesan" .Send 'kirim End With Set objConstants = Nothing Set objGsmOut = Nothing End Sub Jadi cukup dengan bermodalkan 2 cuplikan kode diatas kita akan menyelesaikan aplikasi yg dibahas pada artikel kali ini. Adapun untuk keyword yang akan digunakan sebagai berikut 1. Request nilai tugas keyword tgsnis contoh tgs9941224165 balasan Nilai tugas NAMA SISWA BI=95, IPA=75, IPS=80, MTK=85 2. Request nilai ulangan harian keyword uhnis contoh uh9941224165 balasan Nilai ulangan NAMA SISWA BI=95, IPA=75, IPS=80, MTK=85 Berikut penjelasan ringkas beberapa cuplikan source code yang digunakan dalam pembuatan aplikasi sms gateway ini. Private Function connectToDeviceByVal device As String As Boolean Dim objGsm As Dim manufaktur As String On Error GoTo errHandle Set objGsm = New With objGsm .Activate SERIAL_NUMBER .device = device manufaktur = .SendCommand"AT+CGMI", 500 'menampilkan informasi manufactur manufaktur = Replace$manufaktur, vbCrLf, "" manufaktur = Replace$manufaktur, "OK", "" manufaktur = Replace$manufaktur, "ERROR", "" manufaktur = Replace$manufaktur, "AT+CGMI", "" End With Set objGsm = Nothing If Lenmanufaktur > 0 Then = manufaktur connectToDevice = True End If Exit Function errHandle connectToDevice = False End Function Sesuai namanya fungsi connectToDevice digunakan untuk mengecek status modem sms yang terpasang, salah satu caranya adalah dengan mengirimkan AT COMMAND “AT+CGM”, AT COMMAND ini berfungsi untuk mendapatkan informasi manufaktur. Sebagai contoh jika modem sms yg digunakan adalah hp siemens maka nilai yg dihasilkan dari perintah ini adalah “SIEMENS” dan tentunya hp yg bersangkutan juga harus mendukung AT COMMAND. Private Sub readSMS Dim objGsmIn As Dim objConstants As Dim cmd As cCommand Dim keyword As String Dim phoneNumber As String Dim i As Integer On Error GoTo errHandle = vbHourglass = False = False DoEvents Set objGsmIn = New Set objConstants = New With objGsmIn .Activate SERIAL_NUMBER .device = .DeviceSpeed = 0 .Storage = .DeleteAfterReceive = True 'hapus sms jika sudah dibaca .Receive If .LastError = 0 Or .LastError = 23140 Then 'baca sms sukses .GetFirstMessage strSql = "INSERT INTO sms_in phone_number, sms_keyword, date_in, time_in VALUES ?, ?, ?, ?" Set cmd = i = 1 While .LastError = 0 phoneNumber = rep0to62.MessageSender keyword = .MessageData 1, phoneNumber 2, keyword 3, FormatNow, "yyyy/MM/dd" 4, FormatNow, "hhmmss" If i Mod 10 = 0 Then DoEvents End If i = i + 1 .GetNextMessage Wend Set cmd = Nothing End If End With Set objGsmIn = Nothing If cekSMSIn Then Call sendSMS Else Call Wait5000 End If = True = vbDefault = True Exit Sub errHandle = True End Sub Prosedur readSMS digunakan untuk membaca sms masuk dan menyimpannya ke tabel sms_in, berhubung komponen ActiveXpert SMS tidak mempunyai event yg menandai adanya sms masuk maka sebagai gantinya kita menggunakan timer untuk memanggil prosedur readSMS. Salah satu properties penting yang dimiliki oleh ActiveXpert SMS adalah DeleteAfterReceive, jika nilainya diset true maka sms yg masuk akan otomatis dihapus dan tentunya setelah smsnya dibaca. Private Function cekSMSIn As Boolean Dim ret As Integer strSql = "SELECT COUNT* FROM sms_in WHERE status = 0" 'jika status = 0 berarti sms masuk belum di proses ret = CIntdbGetValuestrSql, 0 If ret > 0 Then 'ada sms yg belum diproses cekSMSIn = True End If End Function Prosedur cekSMSIn dibutuhkan oleh prosedur readSMS, jadi dengan adanya prosedur cekSMSIn ini program akan mengetahui kapan waktu yg tepat untuk memanggil prosedur sendSMS. Private Sub sendSMS Dim rsSend As cRecordset Dim cmd As cCommand Dim objGsmOut As Dim objConstants As Dim phoneNumber As String Dim keyword As String Dim smsBalasan As String On Error GoTo errHandle 'cek sms yang belum di proses, ditandai dg status = 0 strSql = "SELECT id, phone_number, sms_keyword " & _ "FROM sms_in " & _ "WHERE status = 0 " & _ "ORDER BY id" Set rsSend = If Not Then Set objGsmOut = New Set objConstants = New SERIAL_NUMBER = = 0 = False = Do While Not 'ganti prefix nomor hp 0 -> +62 phoneNumber = rep0to62"" & rsSend"phone_number".Value keyword = rsSend"sms_keyword".Value smsBalasan = getBalasanSmskeyword, phoneNumber = phoneNumber = smsBalasan If = 0 Or = 23140 Then 'sms sukses dikirim 'update status sms -> 1 strSql = "UPDATE sms_in SET status = ?, no_ref = ? " & _ "WHERE id = ?" Set cmd = With cmd .SetInt32 1, 1 .SetInt32 2, .SetInt32 3, rsSend"id".Value .Execute End With Set cmd = Nothing 'insert ke tabel sms_out, untuk histori sms keluar strSql = "INSERT INTO sms_out phone_number, replay_msg, date_out, time_out VALUES ?, ?, ?, ?" Set cmd = With cmd .SetText 1, phoneNumber .SetText 2, smsBalasan .SetDate 3, FormatNow, "yyyy/MM/dd" .SetTime 4, FormatNow, "hhmmss" .Execute End With Set cmd = Nothing Else 'sms gagal dikirim 'update status sms -> 1 'ini masih bisa dikembangkan lagi dengan menambah kolom max_jumlah_kirim di tabel sms_in 'jadi bisa diberi aturan sms yg gagal dikirim > 3x baru status smsnya diupdate menjadi 1 strSql = "UPDATE sms_in SET status = ?, no_ref = ? " & _ "WHERE id = ?" Set cmd = With cmd .SetInt32 1, 1 .SetInt32 2, .SetInt32 3, rsSend"id".Value .Execute End With Set cmd = Nothing End If Call Wait5000 Loop Set objConstants = Nothing Set objGsmOut = Nothing End If Exit Sub errHandle Resume Next End Sub Prosedur sendSMS akan mengolah sms masuk yg belum di proses ditandai dengan status = 0, mengupdate statusnya menjadi 1 jika berhasil mengirimkan sms, kemudian menyimpannya ke tabel sms_out sebagai histori pengiriman sms. Public Function rep0to62ByVal phoneNumber As String As String 'fungsi untuk mengganti prefix 0 -> +62 rep0to62 = phoneNumber If LeftphoneNumber, 1 = "0" Then rep0to62 = "+62" & RightphoneNumber, LenphoneNumber - 1 End Function Sesuai namanya fungsi ini berguna untuk mengganti prefix nomor hp 0 menjadi +62 kode indonesia. Terakhir fungsi untuk memproses keyword sms yang masuk dan sekaligus sebagai balasan untuk sms keluar. Public Function getBalasanSmsByVal keywordSms As String, ByVal phoneNumber As String As String Dim rs As cRecordset Dim param1 As String Dim arrKeyword As String Dim prefix As String Dim nilai As String Dim nama As String Dim tha As String Dim semester As String If LenkeywordSms > 0 Then If InStr1, keywordSms, "" > 0 Then 'karakter -> separator keyword arrKeyword = SplitkeywordSms, "" If Not LenarrKeyword0 > 0 Then getBalasanSms = "Keyword sms salah" Exit Function Else 'do nothing End If Else ReDim arrKeyword0 arrKeyword0 = keywordSms End If Else getBalasanSms = "Keyword sms salah" Exit Function End If prefix = arrKeyword0 prefix = UCase$prefix If UBoundarrKeyword > 0 Then param1 = arrKeyword1 'untuk contoh disini param1 bernilai nomor induk siswa 'untuk pengembangan lebih lanjut tahun ajaran dan semester dibuat settingan tersendiri tha = "2009/2010" semester = 2 Select Case prefix Case "TGS" 'validasi nis siswa If Not isValidNISparam1 Then getBalasanSms = ReplaceNIS_SALAH, "", param1 Exit Function 'validasi no hp siswa 'nama sekolah sebaiknya disimpan didalam variabel If Not isValidHPSiswaparam1, phoneNumber Then getBalasanSms = ReplaceHP_UNREG, "", "SMA Negeri Yogyakarta" getBalasanSms = ReplacegetBalasanSms, "", phoneNumber Exit Function End If strSql = "SELECT UPPERnama FROM siswa WHERE nis = '" & param1 & "'" nama = CStrdbGetValuestrSql, "" 'mulai proses pencarian nilai strSql = "SELECT matapelajaran_kode, nilai " & _ "FROM nilai_tugas " & _ "WHERE siswa_nis = '" & param1 & "' AND tahun_ajaran = '" & tha & "' AND semester = " & semester & " " & _ "ORDER BY matapelajaran_kode" Set rs = If Not Then Do While Not nilai = nilai & rs"matapelajaran_kode".Value & "=" & rs"nilai".Value & ", " Loop End If If Lennilai > 0 Then nilai = Leftnilai, Lennilai - 2 getBalasanSms = "Nilai tugas " & nama & " " & nilai Else getBalasanSms = "Nilai tugas " & nama & " sedang dalam proses pendataan" End If Case "UH" 'validasi nis siswa If Not isValidNISparam1 Then getBalasanSms = ReplaceNIS_SALAH, "", param1 Exit Function 'validasi no hp siswa 'nama sekolah sebaiknya disimpan didalam variabel If Not isValidHPSiswaparam1, phoneNumber Then getBalasanSms = ReplaceHP_UNREG, "", "SMA Negeri Yogyakarta" getBalasanSms = ReplacegetBalasanSms, "", phoneNumber Exit Function End If strSql = "SELECT UPPERnama FROM siswa WHERE nis = '" & param1 & "'" nama = CStrdbGetValuestrSql, "" 'mulai proses pencarian nilai strSql = "SELECT matapelajaran_kode, nilai " & _ "FROM nilai_ulangan " & _ "WHERE siswa_nis = '" & param1 & "' AND tahun_ajaran = '" & tha & "' AND semester = " & semester & " " & _ "ORDER BY matapelajaran_kode" Set rs = If Not Then Do While Not nilai = nilai & rs"matapelajaran_kode".Value & "=" & rs"nilai".Value & ", " Loop End If If Lennilai > 0 Then nilai = Leftnilai, Lennilai - 2 getBalasanSms = "Nilai ulangan " & nama & " " & nilai Else getBalasanSms = "Nilai ulangan " & nama & " sedang dalam proses pendataan" End If Case Else getBalasanSms = "Keyword sms salah" End Select End Function Untuk mengetahui daftar hp/modem apa saja yang didukung, jangan sungkan dan malu-malu
Smsblast gratis. masuk atau pesan keluar. Sebelum mengeksekusi rencana anda untuk melakukan sms marketing, ada baiknya anda melakukan peninjauan yang mendasar dan komprehensif terlebih dahulu. Tips melakukan sms blast atau sms marketing. Just follow the steps carefully.
wVVzNf.