[سعود]

قبل اجراء هذا الكود اريد التحقق ان الموقع يعمل

كود :

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

لكن لا ينجح دائما
فهل يوجد كود افضل منه