(16-11-19, 09:15 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته

كود :

Dim divs = WebBrowser1.Document.Body.GetElementsByTagName("div")
       For Each d As HtmlElement In divs
           If d.GetAttribute("className") = "epg-number" Then
               MsgBox(d.InnerText)
           End If
       Next

(16-11-19, 10:15 PM)3booody كتب : المفروض ممكن عن طريق  WebRequest او   WebClient
لكن لا ادري ما مشكلة الصفحة لايتم جلب البيانات النصية منها  !!

(17-11-19, 04:51 PM)ابو روضة كتب :

الحل لمن يريده هنا بال Selenium 

أضف 3 تكست بوكس + 1 بوتون " زر "

ثم أضف هذا الكود داخل الزر

PHP كود :

Dim dr As IWebDriver
       Button1.Enabled = False
       Dim service As ChromeDriverService = ChromeDriverService.CreateDefaultService
       service.HideCommandPromptWindow = True
       Dim options As New ChromeOptions
       dr = New ChromeDriver(service, options) 'service, options
       dr.Navigate.GoToUrl("https://www.wavo.com/channel/osn-yahala-al-oula")
       dr.Manage().Timeouts().ImplicitWait = TimeSpan.FromSeconds(100)
       Dim links = dr.FindElements(By.TagName("div"))
       For Each item In links
           If item.GetAttribute("className") = ("epg-name") Then
               TextBox1.Text = (item.Text.ToString)
           End If
       Next item
       Dim ee = dr.FindElements(By.TagName("div"))
       For Each item In ee
           If item.GetAttribute("className") = ("epg-number") Then
               TextBox2.Text = (item.Text.ToString)
           End If
       Next item
       Dim eee = dr.FindElements(By.TagName("div"))
       For Each item In eee
           If item.GetAttribute("className") = ("epg-time") Then
               TextBox3.Text = (item.Text.ToString)
           End If
       Next item 


وأضف فوق ال Public Class Form1

هذا

Imports System.Text

Imports OpenQA.Selenium

Imports OpenQA.Selenium.Chrome

Imports OpenQA.Selenium.Support.UI

Imports System.Text.RegularExpressions

Imports System.Net

Imports System.IO

وطبعا ستحتاج الملفات المطلوبة لتشغيل مكتبة ال Selenium