تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود التحقق من وجود رابط بالانترنت ضروري
#1
انا عندي رابط بالفور شير اريد ان اتحقق منة اذا كان موجود اظهر الفورم الثاني واذا لم يكون موجود

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

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


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

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

/rar/ZtzyoUtP/___online.html

انا عندي ملفات كثيرة تم رفعها من قبلي اريد التحقق منها كل فترة بسهولة فحاولت اجرب
الموضوع دة وممكن استخدامة في عدة امور اخري
الرد }}}}
تم الشكر بواسطة:
#2
اذا كنت تريد التحقق من وجود الرابط فقط (يعني ممكن يكون الملف محذوف):

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 
سبحان الله وبحمده سبحان الله العظيم

الرد }}}}
تم الشكر بواسطة: مالكـ , sooriaty03
#3
(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 




الملفات المرفقة
.zip   4share FileCheck.zip (الحجم : 423.62 ك ب / التحميلات : 114)
الرد }}}}
تم الشكر بواسطة: Abdullah0991 , kslawy , مالكـ , sooriaty03
#4
اانا مش عارف اقول اية قمة في الروعة اخواني الشاكي للة وعبداللة

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


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

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

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

سؤال صغير
منين اجيب السوري دة
"//a[@id='btnLink']" وهو اية ولو مديا فاير اغير الطريقة اذاي
الرد }}}}
تم الشكر بواسطة: sooriaty03 , Abdullah0991


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] خطا بالكود عند اجراء عملية حذف لاحد العملاء في البنك بسبب وجود علاقة بين الحقول في ال Asmaa adel 2 61 منذ 6 ساعة مضت
آخر رد: Asmaa adel
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 182 29-11-16, 07:26 AM
آخر رد: amgad525
  مطلوب رابط لأداة عرض التاريخ الهجري Alshaf3y 0 70 29-09-16, 11:29 PM
آخر رد: Alshaf3y
  التحقق من عدد السجلات abdulla2 5 171 08-09-16, 06:06 PM
آخر رد: abdulla2
  ضروري يا اخوان لازم اسلم المشروع , فيجوال بيسك مع الواقع mudz 1 103 06-09-16, 06:06 AM
آخر رد: %Eman%
  [VB.NET] طلب كود رابط بين الجهاز الخاص بي وجهاز اي شخص ثاني عند فتح البرنامج mostfa1995 6 280 01-09-16, 08:06 PM
آخر رد: mostfa1995
Photo البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors Mohamedsamy21 7 191 01-09-16, 03:53 AM
آخر رد: adooolah2011
  [سؤال] اريد كود لفتح رابط في المتصفح الافتراضي bidaya 16 330 27-08-16, 08:22 PM
آخر رد: bidaya
  [سؤال] وضع رابط الرفع داخل تكست بوكس ابو روضة 0 89 25-08-16, 10:51 PM
آخر رد: ابو روضة
Sad [سؤال] سؤال ضروري anasmoner 12 232 21-08-16, 03:25 AM
آخر رد: anasmoner

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم