[سعود]

تحديث بسيط للمشروع وهو اضافة webservice لموقع بعيد لمعرفة عدد مستخدمي برنامجك.

اولا  الشرح

ثانيا المرفق

  AllApps.zip (الحجم : 288.79 ك ب / التحميلات : 105)

[dasktop]

اخي سعود كيف نجلب الجداول من هاذا الموقع https://up.top4top.net/downloadf-1276p4m8t1-rar.html

جدول عدد التحميلات

عن طريق web browser

بدون استخدام HtmlAgilityPack.dll

[سعود]

(01-07-19, 02:45 AM)dasktop كتب : اخي سعود كيف نجلب الجداول من هاذا الموقع  https://up.top4top.net/downloadf-1276p4m8t1-rar.html

جدول عدد التحميلات

عن طريق web browser

بدون استخدام  HtmlAgilityPack.dll

ان لم يسبقني احد اجهز مثال لذلك ان شاء الله

[سعود]

(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 


---

المثال مرفق

  WindowsApplication1.zip (الحجم : 37.71 ك ب / التحميلات : 13)