تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف نتحقق ان ملف موجود على رابط معين؟؟
#1
كيف نتحقق ان ملف موجود على رابط معين؟؟
لو استخدم جملة Try لا اعرف نوع الخطا لان ممكن يكون الخطا باسم الملف بترميز غير مفهوم ممكن يكون اسم الملف يحتوي فراغات لكونه نتيجة بحث بالـ regex
جربت الكود التالي وبرضو! نفس خطا 404
كود :
Dim request As WebRequest = HttpWebRequest.Create(mybb_forum_furl & avatar_url.Trim.Replace(" ", "") & amatch.Value)
                        request.Method = "HEAD"
                        ' Just get the document headers, not the data.
                        'request.Credentials = System.Net.CredentialCache.DefaultCredentials
                        request.Headers.Add("cookie", fillmybbcookie)
                        ' This may throw a WebException:
                        Using response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
                            If response.StatusCode = HttpStatusCode.OK Then
                                wc.DownloadFile(mybb_forum_furl & avatar_url.Trim.Replace(" ", "") & amatch.Value, mybb_forum_lbldir & "uploads\avatars\" & amatch.Value)
                            End If

                        End Using
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
أظن أني فقدت من يسمع صوتي ويلبي طلبي ويسمع شكواي في المنتدى
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#2
تفضل
PHP كود :
''' <summary>
''' 
التحقق من وجود ملف على رابط معين 
''' اذا كان قيمة غير صحيحة فيعني ذلك
''' 
404 not found
''' </summary>
''' 
<param name="url"></param>
''' <returns></returns>
Public Shared Function IsFileAlive(url As String) As Boolean

    If Not url.ToLower().StartsWith("http://") Then
        Throw New Exception("Schemeيجب ان يبدأ الرابط ب")
    End If
    Try
        Dim rq As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        rq.Method = WebRequestMethods.Http.Head
        Using rs As HttpWebResponse = DirectCast(rq.GetResponse(), HttpWebResponse)
            If rs.StatusCode = HttpStatusCode.OK Then
                Return True
            Else
                Return False
            End If
        End Using
    Catch ex As Exception
        If ex.Message = "The remote server returned an error: (404) Not Found." Then
            Return False
        Else
            Throw New Exception(ex.Message)
        End If
    End Try
End Function 

الاستعمال

PHP كود :
Try
    
Dim s As Boolean IsFileOnServer("http://www.google.com/kwskwqkdqw")
Catch 
ex As Exception
    MessageBox
.Show(ex.Message)
End Try 
الرد }}}}
تم الشكر بواسطة: Sajad , سعود , kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد رابط تحميل فيجوال بيسك 2015 كود برمجي 3 150 19-04-17, 07:10 PM
آخر رد: كود برمجي
  كيفية ربط البرنامج مع الاكسس اللي موجود علي ال Share point khaled12345 0 27 17-04-17, 05:55 PM
آخر رد: khaled12345
  كيفية فتح البرنامج ب resolution معين OakenShield 1 69 05-04-17, 12:01 PM
آخر رد: OakenShield
  [VB.NET] عايز رابط تحميل فيجوال ستديو 2017 برابط واحد ويدعم الاستكمال اهم شئ تنصيب اوف لاين الماجيك مسعد 2 145 28-03-17, 05:47 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية نقل حقل معين من Datagridview1 الى Datagridview2 Crazy_Vb.NeT 3 148 28-02-17, 08:34 PM
آخر رد: مساعدة
Thumbs Up [سؤال] كود تخطي فتح رابط معين لتشغيل البرنامج Mk 22353 2 120 24-02-17, 12:56 PM
آخر رد: Master Hacker
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 218 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  تثبيت الفورم على امر معين anes 8 221 12-02-17, 02:07 AM
آخر رد: مساعدة
  جعل الجريد ترقيم تلقائي بورمات معين abdulla2 4 190 06-02-17, 05:55 PM
آخر رد: abdulla2
  طلب كود معين MOSTAFA.KAMEL 3 201 25-01-17, 05:24 PM
آخر رد: MOSTAFA.KAMEL

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


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