keratan aturcara penhantaran sms

Protected Sub ctlSendMessage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctlSendMessage.Click
' Device settings
objGsmOut.Device = ctlDevices.SelectedItem.ToString()
If (ctlDeviceSpeed.SelectedIndex = 0) Then
objGsmOut.DeviceSpeed = 0
Else
objGsmOut.DeviceSpeed = System.Int32.Parse(ctlDeviceSpeed.SelectedItem.ToString())
End If

' Message Settings
objGsmOut.MessageRecipient = ddlREsipent.DataSource

objGsmOut.MessageData = ctlMSG.Text
' If (ctlUnicode.Checked) Then
'objGsmOut.MessageType = objConstants.asMESSAGETYPE_UNICODE
' Else
' objGsmOut.MessageType = objConstants.asMESSAGETYPE_TEXT()
' End If

' Enter PIN - if necessary
If ctlPinCode.Text <> "" Then
objGsmOut.EnterPin(ctlPinCode.Text)
UpdateResult(objGsmOut.LastError)
If (objGsmOut.LastError <> 0) Then
Exit Sub
End If
End If

' Send the message !
objGsmOut.Send()
UpdateResult(objGsmOut.LastError)
End Sub