تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] المتواجدون الان في datagridview من صفحة منتدى
#1

مثال بسيط جدا
PHP كود :
Imports System.Net
Imports System
.Text

Public Class Form1
    Dim link 
As String My.Computer.FileSystem.ReadAllText("link.txt")
 
   Private Sub getusers()
 
       dg.Rows.Clear()
 
       Dim html As String ""
 
       Dim wc As New WebClient
        wc
.Encoding Encoding.UTF8
        Dim url 
As String link.Trim
        html 
wc.DownloadString(url)
 
       Dim doc As New HtmlAgilityPack.HtmlDocument
        doc
.LoadHtml(html)
 
       For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//table[@class='tborder']")
 
           If nod.InnerText.Contains("المتواجدون الآن"Then
                Dim nod2 
As New HtmlAgilityPack.HtmlDocument
                nod2
.LoadHtml(nod.InnerHtml)
 
               Dim un As New List(Of String)
 
               Dim loca As New List(Of String)
 
               For Each n As HtmlAgilityPack.HtmlNode In nod2.DocumentNode.SelectNodes("//tr/td[1]/a/span/strong")
 
                   If n.InnerText.Contains("إسم المستخدم") = False Then
                        un
.Add(n.InnerText)
 
                   End If
 
               Next
                For Each n 
As HtmlAgilityPack.HtmlNode In nod2.DocumentNode.SelectNodes("//tr/td[3]/a[2]")
 
                   If n.InnerText.Contains("المكان") = False Then
                        loca
.Add(n.InnerText)
 
                   End If
 
               Next
                For r 
0 To un.Count 1
                    dg
.Rows.Add(WebUtility.HtmlDecode(un(r)), WebUtility.HtmlDecode(loca(r)))
 
               Next
            End 
If
 
       Next
    End Sub
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        getusers
()
 
   End Sub


    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        getusers
()
 
   End Sub
End 
Class 

عدلت غلط بسيط تركت الاول لمعرفة الفرق


الملفات المرفقة
.zip   GetOnLineUsers.zip (الحجم : 134.5 ك ب / التحميلات : 66)
.zip   GetOnLineUsers.zip (الحجم : 135.21 ك ب / التحميلات : 82)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: الوادي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  RE: مشروع للتعامل مع قاعدة بيانات DataGridView باللغتين VB و#C مهموم 9 3,008 17-03-16, 06:22 PM
آخر رد: dubai.eig
Lightbulb [مثال] تصفية DataGridView shwehdi4pc 1 849 06-09-14, 06:51 AM
آخر رد: العزابي
  [مشروع] الان ! المشروعين بملف مضغوط واحد (نسخ منتديات mybb-vbulletin) سعود 5 1,299 20-08-14, 01:04 AM
آخر رد: سعود
  [مشروع] مثال نسخ صفحة من المنتدى بكاملها سعود 5 2,062 21-10-13, 03:40 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم