Re: [Programmer-VB] [Ask] SMS Programming

[Toto Sugiarto]

Bung Deddy bisa coba pakai AT Command. Karena sudah standar ITU, jadi (seharusnya) apapun pabrikannya command-nya sama. Kecuali kalau produsennya sengaja tidak mendukungnya, seperti Nokia yang hanya menyediakan FBUS :-p   Kalau mau googling (kira2) keyword-nya: ITU-T V.25ter   Langkah2-nya: 1. Pastikan HP atau GSM modem sudah terkoneksi dgn PC.     Pasang kabel serialnya ke port Com1, atau mana saja yang kosong.     Coba di HyperTerminal ketik AT, kalau dijawab OK berarti sip. Tapi kalau ga ada apa2 berarti ga sip.   2. Coba kirim SMS di HyperTerminal.     Ketik: AT+CMGS="+62811109949",145<enter>     Setelah direspon > ketik: Halo Pak SBY apa kabar?<Ctrl-Z><enter>     Kalau muncul OK berarti sip, kalau yang muncul ERROR berarti ga sip.   3. Setelah kirim SMS berhasil, selanjutnya salin perintah2 tadi ke VB.     Di form tambahkan komponen MSComm. Contohnya sbb:         MSComm1.CommPort = 1     MSComm1.Handshaking = comRTS     MSComm1.Settings = "9600,N,8,1"     MSComm1.PortOpen = True            MSComm1.Output = "AT+CMGS=" & Chr(34) & ="+62811109949" & Chr(34) & ",145" & Chr(13)          Isi = ""          Do Until InStr(1, Isi, ">") <> 0             DoEvents             Isi = Isi & MSComm1.Input          Loop            MSComm1.Output = "Halo Pak SBY apa kabar?" & Chr(26) & Chr(13)          Isi = ""          Do Until InStr(1, Isi, "OK") <> 0             DoEvents             Isi = Isi & MSComm1.Input          Loop     MSComm1.PortOpen = False     MsgBox "Hore..." & vbLf & "Tapi kalo dia ngereply gimana ya?"   Kira2 seperti itu.   Salam CMIIW Toto Sugiarto   ----- Original Message ----- From: Dedy To: Programmer-VB@yahoogroups.com Sent: Thursday, July 21, 2005 11:08 AM Subject: [Programmer-VB] [Ask] SMS Programming guys, ada yang udah pernah coba buat sms programming pake vb6 blom...?, konsepnya seperti apa sih..?, dan ada ga ya contoh programmnya... saya masih bingung dan blom pernah coba..., sepertinya menarik nih.... ada yang bisa bantu?   thanx ------------------------------------------------------------------------------------------------------------------------- "Transmisi ini mungkin berisi informasi yang bersifat pribadi, rahasia dan tertutup untuk dipublikasikan berdasarkan Hukum dan Peraturan Perundang-undangan yang berlaku di wilayah Republik Indonesia. Jika Anda bukanlah penerima yang dituju, bersama ini Anda diperingatkan bahwa semua publikasi, penggandaan, pendistribusian, atau penggunaan informasi yang ada disini (berikut semua informasi yang terkait) adalah SANGAT TERLARANG. Jika Anda menerima transmisi ini tanpa disengaja, harap segera hubungi pengirim dan hapus material ini seluruhnya, baik dalam bentuk elektronik maupun dokumen cetak. Terima kasih." ------------------------------------------------------------------------------------------------------------------------- Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.