Re: [indopb] Mohon Pencerahan Untuk Kirim SMS dengan MSCOMM32.ocx dan Metode FileOpen/FileWrite

[Hermawan Dephe]

Belum pernah nyoba yg ginian.. Kenapa gak pake gammu saja pak? lebih simpel Afrianto Dulbahri ST. wrote:   Resend: Mohon maaf, email sebelumnya ada kesalahan copas.   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) 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 __._,_.___ ----------------------------------------------- IndoPB - Indonesia PB User Group http://groups.yahoo.com/group/indopb Your email settings: Individual Email|Traditional Change settings via the Web (Yahoo! ID required) Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe __,_._,___