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
لكن لا ينجح دائما
فهل يوجد كود افضل منه
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير