منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود التحقق من وجود رابط بالانترنت ضروري

انا عندي رابط بالفور شير اريد ان اتحقق منة اذا كان موجود اظهر الفورم الثاني واذا لم يكون موجود

ووجد رابط اخر انا اضعة ايضا يغلق الفورم والبرنامج .

Http://www.4shared.com/get/MJzSS3Mi/__1.html

http://www.4shared.com/rar/ZtzyoUtP/___online.html

انا حاولت بكود ولكن لايتحقق من الملف بالفورشير ولكن يتحقق من الفور شير فقط وليس الملف الذي سبق وتم رفعة واخذ هذا الامتداد

/rar/ZtzyoUtP/___online.html

انا عندي ملفات كثيرة تم رفعها من قبلي اريد التحقق منها كل فترة بسهولة فحاولت اجرب
الموضوع دة وممكن استخدامة في عدة امور اخري

اذا كنت تريد التحقق من وجود الرابط فقط (يعني ممكن يكون الملف محذوف):

PHP كود :

Try
            Dim req As HttpWebRequest = HttpWebRequest.Create("http://www.4shared.com/get/MJzSS3Mi/__1.html")
            Dim res As HttpWebResponse = req.GetResponse

            MsgBox("موجود")

            res.Close()
        Catch ex As Exception
            MsgBox("غير موجود")
        End Try 

(03-10-13, 08:16 PM)Abdullah0991 كتب : [ -> ]اذا كنت تريد التحقق من وجود الرابط فقط (يعني ممكن يكون الملف محذوف):

PHP كود :

Try Dim req As HttpWebRequest = HttpWebRequest.Create("http://www.4shared.com/get/MJzSS3Mi/__1.html") Dim res As HttpWebResponse = req.GetResponse MsgBox("موجود") res.Close() Catch ex As Exception MsgBox("غير موجود") End Try

احسنت استاذي

احب اضيف هذا الكود ليقوم بفحص الملف (موجود - او غير موجود)

^ صالح لموقع 4shared فقط

PHP كود :

Try
            Dim hWeb As New HtmlAgilityPack.HtmlWeb()
            Dim doc As HtmlAgilityPack.HtmlDocument = hWeb.Load(TextBox1.Text)

            Dim node As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//a[@id='btnLink']")

            If node IsNot Nothing Then
                Panellabel.Text = "File Founded!!"
                Panel1.BackColor = Color.Green
            Else
                Panellabel.Text = "File Not Found!!"
                Panel1.BackColor = Color.Red
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub 

اانا مش عارف اقول اية قمة في الروعة اخواني الشاكي للة وعبداللة

انا حبيت اضع الحديث حثا علي المنفعة والتذكر دائما بان هناك مقابل لكل خير ليس دنيوي وانما للا خرة

عن ابن عمر ـ رضي الله عنهما:

أن رجلاً جاء إلى النبي صلى الله عليه وسلم فقال يا رسول الله: أي الناس أحب إلى الله؟ وأي الأعمال أحب إلى الله؟ فقال رسول الله صلى الله عليه وسلم: أحب الناس إلى الله تعالى أنفعهم للناس، وأحب الأعمال إلى الله تعالى سرور تدخله على مسلم، أو تكشف عنه كربة، أو تقضي عنه ديناً، أو تطرد عنه جوعاً، ولأن أمشي مع أخ في حاجة أحب إلي من أن أعتكف في هذا المسجد - يعني مسجد المدينة - شهراً، ومن كف غضبه ستر الله عورته، ومن كظم غيظه ـ ولو شاء أن يمضيه أمضاه ـ ملأ الله قلبه رجاء يوم القيامة، ومن مشى مع أخيه في حاجة ـ حتى يثبتها له ـ أثبت الله قدمه يوم تزول الأقدام.

رواه ابن أبي الدنيا في كتاب: قضاء الحوائج، والطبراني وغيرهما، وحسنه الألباني.

سؤال صغير
منين اجيب السوري دة
"//a[@id='btnLink']" وهو اية ولو مديا فاير اغير الطريقة اذاي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mazen55

Abdullah0991

الشاكي لله

mazen55