Thx b4 bwt bung Gunawan tp bisa gk dibuat versi VBnya coz sy bikin script juga 
nyontek versi C#nya ;p

tengkyu

Gunawan doang <[EMAIL PROTECTED]> wrote:                                  
// Send an SMS message in C#

SmsSubmitPdu pdu;
pdu = new SmsSubmitPdu(txtMessage.Text, txtNumber.Text);


----- Original Message ----
From: Andi Setiadi <[EMAIL PROTECTED]>
To: [email protected]
Sent: Monday, March 26, 2007 2:07:39 PM
Subject: [Programmer-VB] [ask] mengirim sms menggunakan vb.net 2003 dengan 
gsmcomm

                         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.SelectedIte m
            mors232.Timeout = cmbTimeOut.Selected Item
            
            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.
     
      




  
---------------------------------
Now that's room service! Choose from over 150,000 hotels 
in 45,000 destinations on Yahoo! Travel to find your fit.
     
                       


Everything has its beauty, but not everyone sees it


Click for the hottest blog

 
---------------------------------
Food fight? Enjoy some healthy debate
in the Yahoo! Answers Food & Drink Q&A.

Kirim email ke