سلام من از یه سورس برای ارسال اس ام اس استفاده کردم و ارسال هم میکنه ولی اول اس ام اس تبلیغات میاره و نمی دونم این متن تبلیغات رو از کجا میاره این هم کدش :
If chkConcatenate.Value = 1 Then
objSMS.Concatenate = True
Else
objSMS.Concatenate = False
End If
objSMS.CharEncoding = cboCharacter.ItemData(cboCharacter.ListIndex)
objSMS.ValidityPeriod = txtValidityPeriod.Text & MidB$(cboValidity.Text, 1, 2)
If optUnicode.Value = True Then
objSMS.SendMessage txtUnicode, txtPhoneNo, chkDeliveryReport.Value, chkAlert.Value
End If
If optNormal.Value = True Then
objSMS.SendMessage txtMessage, txtPhoneNo, chkDeliveryReport.Value, chkAlert.Value
End If
If optWapPush.Value = True Then
'Set content created date
If chkCreatedOn.Value = 1 Then
objSMS.WapPushCreatedOn = True
Else
objSMS.WapPushCreatedOn = False
End If
objSMS.WapPushAction = cboAction.ListIndex
If chkExpiryTime.Value Then
objSMS.WapPushExpiryTime = txtExpiryTime.Text & Left$(cboExpiryTime.Text, 1)
End If
Call objSMS.WapPushEncode(txtPhoneNo.Text, txtMessage.Text, txtWapPushUrl.Text, chkDeliveryReport.Value)
If objSMS.WapPushCheckLength = False Then
MsgBox "Can not send the message since Wap Push message exceeds permissible length.", vbInformation
Exit Sub
End If
objSMS.WapPushSend
End If
If objSMS.ErrorNo = 0 Then
t.AddItem (txtPhoneNo.Text & " SENDED ")
'MsgBox "Message sent successfully.", vbInformation
Else
f.AddItem (txtPhoneNo.Text & " (X) ERROR ")
'MsgBox objSMS.ErrorDescription, vbCritical
End If
پاسخ با نقل قول
نوشته شده توسط Nima NT
نقل قول: حذف تکه کد تبلیغاتی از برنامه ارسال SMS
