تکرار چند عملیات به دفعات نامحدود

[Mahdi-v]

با سلام خدمت اساتید محترم

نرم افزاری نوشتم با سورس زیر :
Dim WebService As WebClient = New WebClient()
WebService.Encoding = Encoding.UTF8
Dim DirOfDisk As String = WebService.DownloadString("site")
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("my mail", "my pass")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("mail")
mail.From = New MailAddress("my mail")
mail.Subject = "my subject)"
mail.Body = (DirOfDisk)
mail.IsBodyHtml = True
SmtpServer.Send(mail)

اساتید محترم با این چند خط سورس یه صفحه رو میگرم و بعد همونو ایمیل میدم به خودم
حالا سوالم اینجاست :
میخوام شرط تعیین کنم اگه سورس صفحه کلمه ی D بودعملیات رو ادامه بده و ایمیل کنه همون کلمه ی D رو
اما اگه حروف های دیگه یا کلمات دیگه بود (مثلاا گه C سورس کل سایت بود ) دیگه دستور ها رو ادامه نده و همون عملیات گرفتن سورس رو ادامه بده تا زمانی که سورس اون سایت به D تغییر کنه و بعد بیاد کارا رو ادامه بده و همون دی رو ایمیل کنه


با تشکر از اساتید همیشه در صحنه :لبخند:

[Mahdi-v]

مسلمانان مدد:لبخند: