+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] مشاركة بسيطة [مشاهدة احصائية الموقع من برنامجك] (/showthread.php?tid=25290)
الصفحات:
1
2
RE: مشاركة بسيطة [مشاهدة احصائية الموقع من برنامجك] - سعود - 16-06-18
تحديث بسيط للمشروع وهو اضافة webservice لموقع بعيد لمعرفة عدد مستخدمي برنامجك.
اولا الشرح
ثانيا المرفق
[attachment=18542]
RE: مشاركة بسيطة [مشاهدة احصائية الموقع من برنامجك] - dasktop - 01-07-19
اخي سعود كيف نجلب الجداول من هاذا الموقع https://up.top4top.net/downloadf-1276p4m8t1-rar.html
جدول عدد التحميلات
عن طريق web browser
بدون استخدام HtmlAgilityPack.dll
RE: مشاركة بسيطة [مشاهدة احصائية الموقع من برنامجك] - سعود - 01-07-19
(01-07-19, 02:45 AM)dasktop كتب : اخي سعود كيف نجلب الجداول من هاذا الموقع https://up.top4top.net/downloadf-1276p4m8t1-rar.html
جدول عدد التحميلات
عن طريق web browser
بدون استخدام HtmlAgilityPack.dll
ان لم يسبقني احد اجهز مثال لذلك ان شاء الله
RE: مشاركة بسيطة [مشاهدة احصائية الموقع من برنامجك] - سعود - 03-07-19
(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
المثال مرفق
[attachment=21924]