12-04-14, 07:44 PM
قبل اجراء هذا الكود اريد التحقق ان الموقع يعمل
كتبت قبله الكود التالي:
لكن لا ينجح دائما
فهل يوجد كود افضل منه
كود :
Dim res As HttpWebResponse = req.GetResponse
كتبت قبله الكود التالي:
كود :
tt:
If bb.CancellationPending = True Then
Exit For
Exit Sub
End If
If My.Computer.Network.Ping(justdo) = False Then
fil_lblstate("تم فقد الاتصال .. جاري اعادة المحاولة")
GoTo tt
End If
لكن لا ينجح دائما
فهل يوجد كود افضل منه