Jalan Pak... Sudah di test di PB7/8/9/10 dan 11.5 di Windows XP. Kalo di Vista atau 7, saya belum coba karena belum punya mscomm32.ocx atau setara untuk Win Vista / 7.
Salam, Afri Salam, Afri -----Original Message----- From: asep supratman <[email protected]> Sender: [email protected] Date: Fri, 10 Jun 2011 18:29:41 To: <[email protected]> Reply-To: [email protected] Subject: Re: [indopb] Mohon Pencerahan Untuk Kirim SMS dengan MSCOMM32.ocxdan Metode FileOpen/FileWrite bos script ini jalan di PB.7? Pada 7 Juni 2011 13:54, Afrianto Dulbahri ST. <[email protected]> menulis: > Dear All, > > Buat yang membutuhkan skrip untuk kirim / terima sms. Syaratnya modem yang > digunakan bisa kirim / terima sms lewat hyper terminal. Awalnya saya pakai > Nokia 2730 / E63 / N900 untuk dijadikan modem, selalu gagal untuk terima > sms, berhasil untuk kirim sms. Ternyata penyebabnya handset NOKIA tidak > support perintah AT+CMGR / AT+ CMGL. Jadi sms tidak bisa dibaca dengan > handset nokia yang dijadikan modem GSM.... :( > > Setelah ganti dengan GSM modem (Erricson G36e), atau NOKIA 30, atau > HUAWEI.... perintahnya jalan dengan mulus. > > Untuk kirim sms: > *************************************************************** > OLEObject mySMS > boolean lblPortOpen > mySMS = create oleobject > mySMS.ConnectToNewObject("MSCOMMLib.MSComm.1") > > mySMS.CommPort = 11 > mySMS.Settings = '115200,N,8,1' > mySMS.InputLen = 0 > mySMS.RTSEnable = true > > integer linReturn, linReturn1 > any lanout > string lstPortSetting, lstOutput, lstResult > > mySMS.PortOpen = true > mySMS.Output = 'AT+CMGF=1'+'~r~n' > mySMS.Output = 'AT+CMGS="0811xxxxxxx"'+'~r' > mySMS.Output = 'TEST DARI PB ' + char(26) > MESSAGEBOX("INFO",STRING(mySMS.CommEvent)) > DO > lstResult = lstResult + STRING(mySMS.Input) > LOOP UNTIL MATCH( lstResult, "OK") > messagebox("info", lstResult) > > mySMS.PortOpen =false > ***************************************************************** > > > Untuk terima SMS: > > ***************************************************************** > OLEObject mySMS > > boolean lblPortOpen > mySMS = create oleobject > mySMS.CommPort = 4 > mySMS.Settings = '115200,N,8,1' > mySMS.InputLen = 0 > mySMS.RTSEnable = true > > integer linReturn, linReturn1 > any lanout > string lstPortSetting, lstOutput, lstResult > > > mySMS.PortOpen = true > mySMS.Output = 'AT+CMGL="ALL"'+'~r' > MESSAGEBOX("INFO",STRING(mySMS.CommEvent)) > DO > lstResult = lstResult + STRING(mySMS.Input) > LOOP UNTIL MATCH( lstResult, "OK") > messagebox("info", lstResult) > > mySMS.PortOpen =false > *************************************************** > > Selamat memodifikasi sesuai kebutuhan... :) > > Salam, > Afri > >
