He.he.he..... sori nih guenya rada bolot, kagak pernah pake Ole .:p MSCOMM32.ocx di copy ke windows\system32 kan ? Ada contoh simple ngk ya biar bisa konek ke mscomm32 nya ? bener-2 kagak ngerti nih .he.he.he...
Terima kasih ya :) Bdh ----- Original Message ----- From: "Afrianto Dulbahri ST." <[email protected]> To: <[email protected]> Sent: Wednesday, June 08, 2011 10:38 AM Subject: Re: [indopb] Mohon Pencerahan Untuk Kirim SMSdenganMSCOMM32.ocxdan Metode FileOpen/FileWrite > Pak Budhi, > > Menggunakan MSCOMM32.ocx Pak. > > Salam, > Afri > >>>> "budhi" <[email protected]> 6/8/2011 11:29 AM >>> > > Wah .... boleh juga nih buat coba-2 bikin tools sms di pb > Cuma waktu saya coba script ya kok ngk jalan ya, ada errornya. > Waktu saya debug, ternyata > untuk baris > > mySMS.ConnectToNewObject("MSCOMMLib.MSComm.1") > > returnnya Class name not found > > Musti ada tambah apa lagi ya ? > > thanks > Bdh > > ----- Original Message ----- > From: "Afrianto Dulbahri ST." <[email protected]> > To: <[email protected]> > Sent: Tuesday, June 07, 2011 1:54 PM > Subject: Re: [indopb] Mohon Pencerahan Untuk Kirim SMS > denganMSCOMM32.ocxdan > Metode FileOpen/FileWrite > >> 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 >> >> >> >>>>> Hermawan Dephe <[email protected]> 6/6/2011 3:25 PM >>> >> >> 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 >> >> >> > > ---------------------------------------------------------- > >> 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 >> >> >> >>>>> Hermawan Dephe <[email protected]> 6/6/2011 3:25 PM >>> >> >> 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 >> >> >> > > > -------------------------------------------------------------------------------- > Pak Budhi, > > Menggunakan MSCOMM32.ocx Pak. > > Salam, > Afri > >>>> "budhi" <[email protected]> 6/8/2011 11:29 AM >>> > > Wah .... boleh juga nih buat coba-2 bikin tools sms di pb > Cuma waktu saya coba script ya kok ngk jalan ya, ada errornya. > Waktu saya debug, ternyata > untuk baris > > mySMS.ConnectToNewObject("MSCOMMLib.MSComm.1") > > returnnya Class name not found > > Musti ada tambah apa lagi ya ? > > thanks > Bdh > > ----- Original Message ----- > From: "Afrianto Dulbahri ST." <[email protected]> > To: <[email protected]> > Sent: Tuesday, June 07, 2011 1:54 PM > Subject: Re: [indopb] Mohon Pencerahan Untuk Kirim SMS > denganMSCOMM32.ocxdan > Metode FileOpen/FileWrite > >> 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 >> >> >> >>>>> Hermawan Dephe <[email protected]> 6/6/2011 3:25 PM >>> >> >> 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 >> >> >> > > ---------------------------------------------------------- > >> 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 >> >> >> >>>>> Hermawan Dephe <[email protected]> 6/6/2011 3:25 PM >>> >> >> 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/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/
