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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  RE: مشروع للتعامل مع قاعدة بيانات DataGridView باللغتين VB و#C مهموم 16 5,827 03-08-17, 12:23 AM
آخر رد: samermb
  تعديل في جدول DataGridView ausamaxp 1 467 18-02-17, 06:30 PM
آخر رد: C0MNDS
Lightbulb [مثال] تصفية DataGridView shwehdi4pc 1 1,060 06-09-14, 06:51 AM
آخر رد: العزابي
  [مشروع] الان ! المشروعين بملف مضغوط واحد (نسخ منتديات mybb-vbulletin) سعود 5 1,641 20-08-14, 01:04 AM
آخر رد: سعود
  [مشروع] مثال نسخ صفحة من المنتدى بكاملها سعود 5 2,303 21-10-13, 03:40 AM
آخر رد: سعود

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


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