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 > >
------------------------------------ ----------------------------------------------- IndoPB - Indonesia PB User Group http://groups.yahoo.com/group/indopbYahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indopb/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/indopb/join (Yahoo! ID required) <*> To change settings via email: [email protected] [email protected] <*> To unsubscribe from this group, send an email to: [email protected] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
