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 -----
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."
-------------------------------------------------------------------------------------------------------------------------
