حذف تکه کد تبلیغاتی از برنامه ارسال SMS

[fazelm]

سلام من از یه سورس برای ارسال اس ام اس استفاده کردم و ارسال هم میکنه ولی اول اس ام اس تبلیغات میاره و نمی دونم این متن تبلیغات رو از کجا میاره این هم کدش :

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