Dear Para Suhu PB,
Ini terdengar sangat klasik... namun saya ada kesulitan untuk mengirim sms via
mscomm32.ocx dan PB 8.0 / 10.0.
Sudah pernah ada pembahasan, tapi pas saya coba belum berhasil.
Skenarionya:
Ole_1 adalah object mscomm32.ocx, dengan setting COM PORT = 10
Perintah berikut ini ada di cb_1:
STRING ls_back
ole_1.object.commport=10
ole_1.object.settings="9600,n,8,1"
ole_1.object.rthreshold= 10
ole_1.object.inputlen=1
ole_1.object.inputmode=0
ole_1.object.portopen=true
ole_1.Object.Output = 'AT+CMGF = 1'
st_1.Text = ole_1.object.input
ole_1.object.Output = 'AT+CMGS = "+62xxxxxxxxxxxx"'
st_2.Text = ole_1.object.input
ole_1.object.output = 'HOREE UDAH BISA' + char(26)
CMSS=1'+char(13)
ls_back = ole_1.object.input
st_3.Text = '*' + ls_back + '*'
ole_1.object.portopen=False
Setelah program dijalankan, st_1.Text, st_2.Text dan st_3.Text hasilnya adalah
blank dan pesan sms tidak terkirim.
Saya juga sudah mencoba dengan metode FileOpen/FileWrite
integer li_FileNum, li_hasil
string mobileNumber
string Smsmessage
string comPort
string szEnd
string szCommand
mobilenumber = sle_mobile_no.text
Smsmessage = sle_pesan.text
comPort = sle_commport.text
li_FileNum = FileOpen(comPort, StreamMode!, Write!, LockWrite!, Append!)
if li_FileNum <> 1 then
MessageBox(" Sms Application" , "Unable to open com port....")
else
st_status.Text = 'Mulai KIRIM'
li_hasil = FileWrite( li_FileNum, 'atz ~n~r' )
li_hasil = FileWrite( li_FileNum, "AT+CMGF=1 ~n~r")
st_1.Text = string(li_hasil, "#,##0")
li_hasil = FileWrite( li_FileNum,"AT+CMGS= ~"+62xxxxxxxxx~" ~r")
st_2.Text = string(li_hasil, "#,##0")
li_hasil = FileWrite(li_FileNum, "HALO APA KABAR " )
st_3.Text = string(li_hasil, "#,##0")
li_hasil = FileWrite(li_FileNum, char(26))
FileClose(li_FileNum)
FileClose(li_FileNum)
end if
Namun hasilnya sama saja, pesan tidak terkirim... :(
Apakah ada di antara para suhu PB yang bisa memberikan pencerahan?
Salam,
Afri
