[سؤال] الحصول على اسماء المستخدمين

[سؤال] الحصول على اسماء المستخدمين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] الحصول على اسماء المستخدمين (/showthread.php?tid=21958)

الحصول على اسماء المستخدمين - Mohamed20 - 01-10-17

اريد الحصول على اسماء المستخدمين من موقع لاكن لا يوجد بيانات تكفى

كود :

<td class="name column-name" data-colname="Name">test</td>

جربت استخدام مثل هذا الكود

كود :

           Dim allelements As HtmlElementCollection = Login.Document.All

            For Each webpageelement As HtmlElement In allelements

                If webpageelement.GetAttribute("className").Contains("name column-name") Then

                    ListView1.Items.Add(webpageelement.GetAttribute("data-colname"))

                End If

            Next

لاكن الناتج كان فارغ

RE: الحصول على اسماء المستخدمين - سعود - 02-10-17

لو تعطينا رابط الموقع حتى اجرب فيه واكتب مثال عليه.

RE: الحصول على اسماء المستخدمين - Basil Abdallah - 27-01-18

افتح قائمة الاعضاء و قم باستخراج الid الخاص بالقائمة و باستخدام htmlelement قم باستخراج القائمة على هيئة نص و اضفها لليست بوكس

RE: الحصول على اسماء المستخدمين - عبدالله الدوسري - 27-01-18

أنت تبحث عن Attribute بالأسم ( className )
اولاً لا يوجد Attribute بالأسم ( className ) في عنصر الـ HTML الذي كتبة انت

<td class="name column-name" data-colname="Name">test</td>

الـAttribute الموجود هو
class + data-colname

المفترض أن تبحث عن كل العناصر بواسطة الـ Tag Name والذي هو td
ثم تبحث عن الـAttribute بالأسم : class
class="name column-name"
إذا كانت قيمة الـAttribute تساوي name column-name
إذا تجلب محتوى العنصر td والذي هو test
<td class="name column-name" data-colname="Name">test</td>

PHP كود :

           For Each webpageelement As HtmlElement In Login.Document.GetElementsByTagName("td")
                Dim ClassAttr As String = webpageelement.GetAttribute("Class")
                If ClassAttr.Trim = "name column-name" Then
                    ListView1.Items.Add(webpageelement.InnerText)
                End If
            Next 