تقييم الموضوع :
  • 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 ك ب / التحميلات : 143)
.zip   GetOnLineUsers.zip (الحجم : 135.21 ك ب / التحميلات : 190)
الرد }}}
تم الشكر بواسطة: الوادي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video طباعة تقرير صفحة شخصية ب VB.net من خلال Crystal report و access database ggtt17121985 0 355 11-08-23, 10:41 AM
آخر رد: ggtt17121985
  الان نفذ العمليات والدوال في مربع النص وكأنك تكتب في خلية اكسل Taha Okla 2 851 03-03-23, 03:17 PM
آخر رد: mrfenix93
  تخزين الملفات في قاعدة بيانات sql server مع عرضها في Datagridview ggtt17121985 0 1,410 14-05-22, 03:34 AM
آخر رد: ggtt17121985
  تعلم asp.net من خلال VB.net مع إضافة زر الاضافة والتعديل والحذف وتعبئة Datagridview ggtt17121985 0 1,344 10-02-22, 11:12 AM
آخر رد: ggtt17121985
  [كود] شرح كيفيه جمع صف في Datagridview ووضع مجموعة في عمود وفي نفس الصف al.shwea.bassam 0 1,103 25-01-22, 05:47 PM
آخر رد: al.shwea.bassam
Thumbs Up [VB.NET] تنسيق DataGridView baha 12 6,237 21-01-22, 07:38 AM
آخر رد: hajriss
  RE: مشروع للتعامل مع قاعدة بيانات DataGridView باللغتين VB و#C مهموم 15 15,882 04-01-22, 06:32 PM
آخر رد: رضوان الجماعي
Photo البحث بأي جزء في الكلمة باستخدام الحدث TextChanged لأداة Textbox في Datagridview ggtt17121985 5 2,967 14-12-21, 10:47 AM
آخر رد: E100
  تعليق الفاتوره datagridview ibra9009 20 5,816 11-12-21, 10:48 PM
آخر رد: ibra9009
  لا جديد [معرفة المكرر بشبيكة البيانات DataGridView No db] سعود 9 3,721 08-01-21, 11:38 PM
آخر رد: سعود

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


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