تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] جلب رابط من موقع
#1
السلام عليكم
اريد طريقة لجلب رابط من الصفحة هذه : http://app.live-plus.info/api/channels
هناك عدة روابط في هذه الصفحة كيف بامكاني جلب رابط واحد منهم من يملك الفكرة يرسلها لي وانا سوف افهم من الفكرة وانفذها
الرد
تم الشكر بواسطة: سعود
#2
(23-12-20, 01:58 AM)MaxXx كتب : السلام عليكم
اريد طريقة لجلب رابط من الصفحة هذه : http://app.live-plus.info/api/channels
هناك عدة روابط في هذه الصفحة كيف بامكاني جلب رابط واحد منهم من يملك الفكرة يرسلها لي وانا سوف افهم من الفكرة وانفذها


الرد
#3
(23-12-20, 08:57 AM)alfaiz678 كتب :
(23-12-20, 01:58 AM)MaxXx كتب : السلام عليكم
اريد طريقة لجلب رابط من الصفحة هذه : http://app.live-plus.info/api/channels
هناك عدة روابط في هذه الصفحة كيف بامكاني جلب رابط واحد منهم من يملك الفكرة يرسلها لي وانا سوف افهم من الفكرة وانفذها


شكرا لك ولكني اريد الطريقة بدون استعمال webbrowser
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو
#4
up up up up
الرد
تم الشكر بواسطة:
#5
(25-12-20, 02:07 PM)MaxXx كتب : up up up up

اظن هذه ستفي بالغرض


كود :
Public Function ExtractLinks(ByVal url As String) As DataTable
       Dim dt As New DataTable
       dt.Columns.Add("LinkText")
       dt.Columns.Add("LinkUrl")

       Dim wc As New WebClient
       Dim html As String = wc.DownloadString(url)

       Dim links As MatchCollection = Regex.Matches(html, "<a.*?href=""(.*?)"".*?>(.*?)</a>")

       For Each match As Match In links
           Dim dr As DataRow = dt.NewRow
           Dim matchUrl As String = match.Groups(1).Value
           'Ignore all anchor links
           If matchUrl.StartsWith("#") Then
               Continue For
           End If
           'Ignore all javascript calls
           If matchUrl.ToLower.StartsWith("javascript:") Then
               Continue For
           End If
           'Ignore all email links
           If matchUrl.ToLower.StartsWith("mailto:") Then
               Continue For
           End If
           'For internal links, build the url mapped to the base address
           If Not matchUrl.StartsWith("http://") And Not matchUrl.StartsWith("https://") Then
               matchUrl = MapUrl(url, matchUrl)
           End If
           'Add the link data to datatable
           dr("LinkUrl") = matchUrl
           dr("LinkText") = match.Groups(2).Value
           dt.Rows.Add(dr)
       Next

       Return dt
   End Function

   Public Function MapUrl(ByVal baseAddress As String, ByVal relativePath As String) As String

       Dim u As New System.Uri(baseAddress)

       If relativePath = "./" Then
           relativePath = "/"
       End If

       If relativePath.StartsWith("/") Then
           Return u.Scheme + Uri.SchemeDelimiter + u.Authority + relativePath
       Else
           Dim pathAndQuery As String = u.AbsolutePath
           ' If the baseAddress contains a file name, like ..../Something.aspx
           ' Trim off the file name
           pathAndQuery = pathAndQuery.Split("?")(0).TrimEnd("/")
           If pathAndQuery.Split("/")(pathAndQuery.Split("/").Count - 1).Contains(".") Then
               pathAndQuery = pathAndQuery.Substring(0, pathAndQuery.LastIndexOf("/"))
           End If
           baseAddress = u.Scheme + Uri.SchemeDelimiter + u.Authority + pathAndQuery

           'If the relativePath contains ../ then
           ' adjust the baseAddress accordingly

           While relativePath.StartsWith("../")
               relativePath = relativePath.Substring(3)
               If baseAddress.LastIndexOf("/") > baseAddress.IndexOf("//" + 2) Then
                   baseAddress = baseAddress.Substring(0, baseAddress.LastIndexOf("/")).TrimEnd("/")
               End If
           End While

           Return baseAddress + "/" + relativePath
       End If

   End Function
الرد
تم الشكر بواسطة: MaxXx
#6
(25-12-20, 03:04 PM)alfaiz678 كتب :
(25-12-20, 02:07 PM)MaxXx كتب : up up up up

اظن هذه ستفي بالغرض


كود :
Public Function ExtractLinks(ByVal url As String) As DataTable
       Dim dt As New DataTable
       dt.Columns.Add("LinkText")
       dt.Columns.Add("LinkUrl")

       Dim wc As New WebClient
       Dim html As String = wc.DownloadString(url)

       Dim links As MatchCollection = Regex.Matches(html, "<a.*?href=""(.*?)"".*?>(.*?)</a>")

       For Each match As Match In links
           Dim dr As DataRow = dt.NewRow
           Dim matchUrl As String = match.Groups(1).Value
           'Ignore all anchor links
           If matchUrl.StartsWith("#") Then
               Continue For
           End If
           'Ignore all javascript calls
           If matchUrl.ToLower.StartsWith("javascript:") Then
               Continue For
           End If
           'Ignore all email links
           If matchUrl.ToLower.StartsWith("mailto:") Then
               Continue For
           End If
           'For internal links, build the url mapped to the base address
           If Not matchUrl.StartsWith("http://") And Not matchUrl.StartsWith("https://") Then
               matchUrl = MapUrl(url, matchUrl)
           End If
           'Add the link data to datatable
           dr("LinkUrl") = matchUrl
           dr("LinkText") = match.Groups(2).Value
           dt.Rows.Add(dr)
       Next

       Return dt
   End Function

   Public Function MapUrl(ByVal baseAddress As String, ByVal relativePath As String) As String

       Dim u As New System.Uri(baseAddress)

       If relativePath = "./" Then
           relativePath = "/"
       End If

       If relativePath.StartsWith("/") Then
           Return u.Scheme + Uri.SchemeDelimiter + u.Authority + relativePath
       Else
           Dim pathAndQuery As String = u.AbsolutePath
           ' If the baseAddress contains a file name, like ..../Something.aspx
           ' Trim off the file name
           pathAndQuery = pathAndQuery.Split("?")(0).TrimEnd("/")
           If pathAndQuery.Split("/")(pathAndQuery.Split("/").Count - 1).Contains(".") Then
               pathAndQuery = pathAndQuery.Substring(0, pathAndQuery.LastIndexOf("/"))
           End If
           baseAddress = u.Scheme + Uri.SchemeDelimiter + u.Authority + pathAndQuery

           'If the relativePath contains ../ then
           ' adjust the baseAddress accordingly

           While relativePath.StartsWith("../")
               relativePath = relativePath.Substring(3)
               If baseAddress.LastIndexOf("/") > baseAddress.IndexOf("//" + 2) Then
                   baseAddress = baseAddress.Substring(0, baseAddress.LastIndexOf("/")).TrimEnd("/")
               End If
           End While

           Return baseAddress + "/" + relativePath
       End If

   End Function

شكرا لك ولكني لم استطع استخدامه انت اعطيتني function فقط كيف استعمله هل ممكن ولو مشروع بسيط اخي من فضلك

واللي فهمته من الكود انه يقوم باستخراج جميع الروابط انا اريد استخراج رابط واحد فقط
لقد وجدت هذا الموضوع http://vb4arb.com/vb/showthread.php?tid=36742
ولكني للاسف لم استطع تطبيقه انا اريد مثل هذه الفكرة
هل بالامكان ذلك
الرد
تم الشكر بواسطة:
#7
up up up up
الرد
تم الشكر بواسطة:
#8
up up up up
الرد
تم الشكر بواسطة:
#9
up up up up
الرد
تم الشكر بواسطة:
#10
وعليك السلام ورحمة الله وبركاته
با اخي العزيز.
القيت نظرة على الكود الذي اعطاك اياه اخونا alfaiz678 جزاه الله خير 
ورغم اني لم اقم بتجربته لكني اجزم انه هو ماتريد بالضبط
لكن اين المشكلة هنا؟
المشكلة انك لم تجرب الكود بل ايضا  يبدو انك لاتعرف طريقة استخدامه  . 
لذا خذ مني نصيحة هي ان تحاول تبسط الاشياء يعني انت تريد كود يجلب الروابط من الانترنت
واشترطت انك لاتريد سوى رابط واحد 
الان كل ماعليك فعله في الكود هو ان تخرج من الحلقة اذا استخرجت الرابط الذي تريده

ولنفترض انك تريد هذا الرابط :http://www.microsoft.com/vs2020download

 ولكي تحصل عليه لابد ان تقوم بمراجعة الروابط ثم فرزها بحسب الشروط التي تريدها
والكود يحتوي على حلقة دوران for تدور على كل الروابط وهنا يجب عليك ان تتاكد من كل رابط في الحلقة
هل هو نفس الرابط الذي تريده ؟ اذا نعم احفظ الرابط في متغير واخرج من الحلقة واذا لا استمر في الدوران على بقية الروابط
وهكذا اذا كان الموقع فعلا يحتوي على الرابط الذي تريده فسوف تجده حتما اثناء دوران الحلقة

اليك هذا المثال البسيط
افتح مشروع جديد وضع على الفورم صندوق نص وسمه rtxt وضع ايضا زر
الان افتح محرر الكود والصق الكود التالي

PHP كود :
Imports System.Net
Imports System
.Text.RegularExpressions

Public Class Form1
    Dim WithEvents wc 
As New WebClient


    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Dim url 
As String "https://marketplace.visualstudio.com/"
        wc.DownloadStringAsync(New Uri(url))
    End Sub


    
Private Sub wc_DownloadStringCompleted(sender As ObjectAs System.Net.DownloadStringCompletedEventArgsHandles wc.DownloadStringCompleted
        Dim pattern 
As String "(?:(?:https?|ftp):\/\/|\b(?:[a-z\d]+\.))(?:(?:[^\s()<>]+|\((?:[^\s()<>]+|(?:\([^\s()<>]+\)))?\))+(?:\((?:[^\s()<>]+|(?:\(?:[^\s()<>]+\)))?\)|[^\s`!()\[\]{};:'"".,<>?«»""‘’]))?"

        Dim mx As Match
        
For Each mx In Regex.Matches(e.ResultpatternRegexOptions.Multiline RegexOptions.Compiled)

            rtxt.AppendText(mx.Value vbNewLine)

        Next
    End Sub

End 
Class 

عند الضغط على الزر تقوم الاداة wc وهي من فئة webclient بتحميل شفرة الموقع
وعند اكتمال تحميل الشفرة وضعت حلقة دوران تتحقق او تبحث عن الروابط ضمن شفرة الموقع
التي تم تحميلها وكل رابط يوجد في شفرة الموقع سيتم اضافته الى صندوق النص rtxt

يبقى عليك فقط ان تتحقق من كل رابط فيما اذا كان هو الرابط المطلوب

وسلااااام عليك خيووو

بالتوفيق

الرد
تم الشكر بواسطة: MaxXx


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information عمل برنامج لأوقات الصلاة لجميع المدن مستخرجة من موقع معين b4getws 5 315 01-04-21, 02:09 AM
آخر رد: عبد الهادي بهاب
  ربط برنامج المبيعات بتطبيق اندرويد او موقع ويب ابو انس 2 161 20-03-21, 11:54 PM
آخر رد: ابو انس
  ممكن مساعده فى رفع نص معين على موقع باستبين ahmed112001 0 185 07-02-21, 05:30 PM
آخر رد: ahmed112001
Exclamation تسجيل الدخول الى موقع يحتوي على Captcha باستخدام WebBrowser Basil Abdallah 4 303 01-02-21, 11:16 PM
آخر رد: Basil Abdallah
  [SQL] استفسار : موقع لاستضافة قواعد البيانات mmaalmesry 2 313 28-01-21, 06:41 PM
آخر رد: mmaalmesry
Question [سؤال] اضافه رابط الى الزر 3booy201 9 6,149 30-12-20, 10:10 PM
آخر رد: asmarsou
  كيف يمكنني رفع برنامج فيجول بيسيك على موقع اسضافة mohamedgadain61 2 437 28-10-20, 08:19 PM
آخر رد: Anas Mahmoud
  [VB.NET] جلب رابط معين من موقع ميدو الفنان 5 842 26-10-20, 01:44 AM
آخر رد: ميدو الفنان
  [سؤال] ممكن كود فتح موقع على انترنت عند فتح الاداة تلقائي jam3h 2 379 24-09-20, 08:01 PM
آخر رد: jam3h
  من فظلكم رابط تحميل مباشر لبرنامج visual studio 2017 sofiane-phy 13 1,596 08-08-20, 12:43 PM
آخر رد: sofiane-phy

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


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