[ابو روضة]

(18-10-18, 08:27 AM)rnmr كتب : جرب هذا

كود :

Dim url As String = "https://www.tvquran.com/ar/scholar/224/profile/%D8%B1%D8%B9%D8%AF-%D8%A7%D9%84%D9%83%D8%B1%D8%AF%D9%8A"
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(url)
Dim r = Regex.Matches(html, "<div class=""share-box"" id="".*?</a>", RegexOptions.Singleline)
For Each t As Match In r
  ListBox1.Items.Add(Regex.Match(t.Value, "(?<=data-title="").*?(?="")").Value)
  lst.Add("https://" & Regex.Match(t.Value, "(?<=href="").*?(?="")").Value)
Next

بارك الله فيك أخى الكريم وجزاك كل خير  فعلا نجح مائة بالمائة