16-06-18, 09:35 AM
الصفحات : 1 2
01-07-19, 02:45 AM
01-07-19, 04:19 AM
03-07-19, 07:54 PM
(01-07-19, 02:45 AM)dasktop كتب : [ -> ]اخي سعود كيف نجلب الجداول من هاذا الموقع https://up.top4top.net/downloadf-1276p4m8t1-rar.html
جدول عدد التحميلات
عن طريق web browser
بدون استخدام HtmlAgilityPack.dll
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'https://up.top4top.net/downloadf-7498pxcv1-rar.html
Button1.Enabled = False
Dim html As String = ""
Using wc As New WebClient
html = wc.DownloadString(TextBox1.Text)
Dim str As String = "<td class=""tddata"">([0-9]{1,})</td>"
Dim reg As New Regex(str)
Dim mc As MatchCollection = reg.Matches(html)
For Each h As Match In mc
If h.Success Then
TextBox2.Text = h.Groups(1).Value
Exit For
Exit Sub
End If
Next
End Using
Button1.Enabled = True
End Sub
المثال مرفق
الصفحات : 1 2