مشکل با چک کردن سرویس

[محمدی 95]

سلام دوستان

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

Dim PhoneSms1 As PhoneSms
PhoneSms1.Send(0939******,"WelCome")
End Sub 

بعدم یه کد نوشتم که هر 5 دقیقه بیاد و سرویس رو چک کنه اگه فعال نبود فعالش کنه

خب هر 5 دقیقه یک بار میاد و اس ام اس میده!!

چیکار کنم که فقط یک بار اول اس ام فرستاده بشه؟

[پژمان نیکروان 6,055]

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

 If File.Exists(File.DirInternal,"save")=False Then
 	Dim PhoneSms1 As PhoneSms
	PhoneSms1.Send(0939******,"WelCome")
	File.WriteString(File.DirInternal,"save","")
End If

[محمدی 95]

مرسی اما این کد چیکار میکنه

یه کم توصیح میدید؟

[پژمان نیکروان 6,055]

مرسی اما این کد چیکار میکنه

یه کم توصیح میدید؟

میاد چک میکنه اگه فایل تکستی با نام save وجود نداشت ، پیامک رو میفرسته و اون فایل تکست رو خودش ایجاد میکنه تا در دفعه های بعدی دوباره نیاد بفرسته.