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/
