Dear all,
Mo nanya nih sy mo ngirim sms menggunakan GsmComm. Setelah saya coba, tidak
terjadi kesalahan dalam coding yang saya buat (sub succedSMS() dijalankan).
Akan tetapi, sms yg sy kirim tidak sampai ke telepon seluler tujuan.
Ada yg tahu sebabnya???
Makasih
Script pengiriman sms yg sy buat:
Sub sendSMS()
Dim gsm As New GsmCommunication.GsmComm
Dim pdu As New PduConverter.SmsSubmitPdu
Dim pNumber As String
Dim message As String
'send sms
Try
pNumber = txtPhoneNumber.Text
message = txtMessage.Text
gsm.SendMessage(New PduConverter.SmsSubmitPdu(message, pNumber,
String.Empty), False)
succedSMS()
Catch ex As Exception
failedSMS()
End Try
End Sub
n.b: sy coba mengganti String.Empty dengan no smsc yg sy pergunakan akan tetapi
hasilnya sama saja. succedSMS() dan failedSMS() hanya menampilkan messageBox
saja.
Sementara script koneksi ke telepon seluler yg sy buat adl sbb:
Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnConnect.Click
Dim mors232 As New RS232.Rs232
Try
'connect to cell phone
mors232.BaudRate = cmbBaudRate.SelectedItem
mors232.Port = cmbPort.SelectedItem
mors232.Timeout = cmbTimeOut.SelectedItem
mors232.Open() 'open connection
'connection succed
succed()
Catch ex As Exception
failed() 'connection failed
End Try
End Sub
Everything has its beauty, but not everyone sees it
Click for the hottest blog
---------------------------------
Don't be flakey. Get Yahoo! Mail for Mobile and
always stay connected to friends.
