3- جلب العناصر

بسم الله الرحمن الرحيم 

السلام عليكم ورحمة الله وبركانه

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الحكيم

 ====>Internet Explorer (Web-Browser Control)<====

1- لجلب جميع العناصر الموجودة في الصفحة يمكنك أن تستخدم الخاصية All

WebBrowser.Document.All

VB.Net

'تعريف عن متغير من نوع HtmlElementCollection وتحديد قيمته بقيمة الخاصية All Dim AllOfTheElements As HtmlElementCollection = YourWebBrowserName.Document.All

C Sharp

//تعريف عن متغير من نوع HtmlElementCollection وتحديد قيمته بقيمة الخاصية All HtmlElementCollection AllOfTheElements = YourWebBrowserName.Document.All;

=======================================================

2- لجلب العناصر التي تشترك في الوسم يمكنك أن تستخدم الدالة GetElementsByTagName

 المعاملات (Parameters) :

TagName : وهو الوسم الخاص بالعنصر

الناتج : تعيد HtmlElementCollection وهو مجموعة عناصر من نوع HtmlElement

VB.Net

REM قم باستبدال Tag name بالوسم الخاص بالعنصر الذي تريده REM قم باستبدال YourWebBrowserName بإسم أداة WebBrowser الموجودة في مشروعك REM --------------------------------------------------------------------------- ' التعريف عن متغير من نوع HtmlElementCollection وتحديد قيمته بناتج الدالة GetElementsByTagName Dim ElementsCollection As HtmlElementCollection = YourWebBrowserName.Document.GetElementsByTagName("Tag name")

C Sharp

/* *قم باستبدال Tag name بالوسم الخاص بالعنصر الذي تريده *قم باستبدال YourWebBrowserName بإسم أداة WebBrowser الموجودة في مشروعك *-------------------------------------------------------------------------- */ //التعريف عن متغير من نوع HtmlElementCollection وتحديد قيمته بناتج الدالة GetElementsByTagName HtmlElementCollection ElementsCollection = YourWebBrowserName.Document.GetElementsByTagName("Tag name");

=======================================================

3- لجلب عنصر محدد يتم جلبه بعدة طرق

1- باستخدام دالة GetelementById ولاستخدام هذه الدالة يجب ان يكون للعنصر معرف(ID)

المعاملات (Parameters) :
id : قيمة الخاصية ID
الناتج : تعيد HtmlElement ولا تعيد شيء إن لم يوجد عنصر يحتوي على معرف بهذه القيمة

الإستخدام

VB.Net

REM إستبدل Element ID بقيمة الخاصية ID للعنصر الذي تريده REM إستبدال YourWebBrowserName بإسم أداة WebBrowser الموجودة في مشروعك 'التعريف عن متغير من نوع HtmlElement وتحديد قيمته بناتج الدالة GetElementsById Dim Element As HtmlElement = YourWebBrowserName.Document.GetElementById("Element ID")

C Sharp

/* * قم باستبدال Your_Web_Browser_Name بإسم أداة WebBrowser الموجودة في مشروعك * استبدل Element ID بقيمة الخاصية ID للعنصر الذي تريده */ //التعريف عن متغير من نوع HtmlElement وتحديد قيمته بناتج الدالة GetElementsById HtmlElement element = Your_Web_Browser_Name.Document.GetElementById("Element ID")

***********************************************************************************

2- لجلب العنصر الفعال (الذي يركز عليه أو يستخدمه المستخدم حالياً) يمكنك ان تستخدم الخاصية ActiveElement 

WebBrowser.Document.ActiveElement

VB.Net

'التعريف عن متغير من نوع HtmlElement وتحديد قيمته بقيمة الخاصية ActiveElement Dim ActiveOne As HtmlElement = YourWebBrowserName.Document.ActiveElement

C Sharp

//التعريف عن متغير من نوع HtmlElementوتحديد قيمته بقيمة الخاصية ActiveElement HtmlElement ActiveOne = YourWebBrowserName.Document.ActiveElement

**************************************************************************************

3- باستخدام الدالة GetElementsByTagName ثم نقوم بفلترة نتيجة حتى نحصل على العنصر المراد

لإستخدام هذه الطريقة يجب ان تكون هناك خاصية مميزة للعنصر مثل الإسم او النص (حتى نميزه عن بقية العناصر التي تشترك معه بالوسم)

للفلترة نقوم بعمل تكرار للتحقق إذا كان أي من العناصريحتوي على الخاصية التي نريدها وبنفس القيمة

الإستخدام 

VB.Net

REM قم باستبدال Tag name بالوسم الخاص بالعنصر الذي تريده REM قم باستبدال YourWebBrowserName بإسم أداة WebBrowser الموجودة في مشروعك REM --------------------------------------------------------------------------- ' التعريف عن متغير من نوع HtmlElementCollection وتحديد قيمته بناتج الدالة GetElementsByTagName Dim ElementsCollection As HtmlElementCollection = YourWebBrowserName.Document.GetElementsByTagName("Tag name") 'التعريف عن متغير من نوع HtmlElement Dim Wanted As HtmlElement 'عمل تكرار على جميع العناصر في المجموعة ElementsCollection For Each Element As HtmlElement In ElementsCollection 'التحقق إذا ما كانت قيمة الخاصية تساوي القيمة التي تريدها If Element.GetAttribute("Attribute name") = "Your Element Attribute value" Then 'إذا تحقق الشرط يتم نسخ المتغير Element إلى المتغير Wanted Wanted = Element 'الخروج من التكرار لاختصار الوقت Exit For End If Next

C Sharp

/* *قم باستبدال Tag name بالوسم الخاص بالعنصر الذي تريده *قم باستبدال YourWebBrowserName بإسم أداة WebBrowser الموجودة في مشروعك *-------------------------------------------------------------------------- */ // التعريف عن متغير من نوع HtmlElementCollection وتحديد قيمته بناتج الدالة GetElementsByTagName HtmlElementCollection ElementsCollection = YourWebBrowserName.Document.GetElementsByTagName("Tag name"); //التعريف عن متغير من نوع HtmlElement HtmlElement Wanted; //عمل تكرار على جميع العناصر في المجموعة ElementsCollection foreach (HtmlElement Element in ElementsCollection) { //التحقق إذا ما كانت قيمة الخاصية تساوي القيمة التي تريدها if (Element.GetAttribute("Attribute name") == "Your Element Attribute value") { // إذا تحقق الشرط يتم نسخ المتغير Element إلى المتغير Wanted Wanted = Element; // الخروج من التكرار لاختصار الوقت break; }

 ====>GeckoFX<====

في البداية يجب عليك إستدعاء الفضاء Gecko

1- لجلب جميع العناصر يمكنك أن تستخدم الدالة التالية

VB.Net

Function GetAllSons(Parent As GeckoNode) As List(Of GeckoElement) 'التعريف عن قائمة جديدة من نوع GeckoElement Dim Result As List(Of GeckoElement) = New List(Of GeckoElement) 'عمل تكرار على جميع العناصر في المجموعة Parent.ChildNodes For Each Son As GeckoNode In Parent.ChildNodes 'التحقق إذا ما كان نوع العنصر أو "الشيء" الحالي يساوي Element If Son.NodeType = NodeType.Element Then 'إذا تحقق الشرط تتم إضافة العنصر للقائمة Result Result.Add(CType(Son, GeckoElement)) End If 'إضافة ناتج الدالة GetAllSons إلى القائمة Result Result.AddRange(GetAllSons(Son)) Next Return Result End Function Function GetAllElements(ByVal Browser As GeckoWebBrowser) As GeckoElement() 'التعريف عن قائمة جديدة من نوع GeckoElement Dim AllElements As List(Of GeckoElement) = New List(Of GeckoElement) 'التعريف عن "عداد (IEnumerator)" من النوع GeckoNode وقيمته تساوي ناتج الدالة GetEnumerator Dim IEnum As IEnumerator(Of GeckoNode) = YourGeckoWebBrowserName.Document.DocumentElement.ChildNodes.GetEnumerator 'إستخدام التصريح While للقيام بتنفيذ الكود إذا كان ناتج الدالة MoveNext يساوي True While IEnum.MoveNext 'لتفادي توقف البرنامج عند حصول خطأ Try 'إضافة ناتج الدالة GetAllSons إلى القائمة AllElements AllElements.AddRange(GetAllSons(IEnum.Current)) 'التحقق إذا ما كان نوع العنصر أو "الشيء" الحالي يساوي Element If IEnum.Current.NodeType = NodeType.Element Then 'إذا تحقق الشرط تتم إضافة العنصر للقائمة AllElements AllElements.Add(IEnum.Current) End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Error") End Try End While Return AllElements.ToArray End Function

C Sharp

// إستدع الفضاء System.Collections.Generic public List GetAllSons(GeckoNode Parent) { //التعريف عن قائمة جديدة من نوع GeckoElement List Result = new List(); //عمل تكرار على جميع العناصر في المجموعة Parent.ChildNodes foreach (GeckoNode Son in Parent.ChildNodes) { //التحقق إذا ما كان نوع العنصر أو "الشيء" الحالي يساوي Element if (Son.NodeType == NodeType.Element) { //إذا تحقق الشرط تتم إضافة العنصر للقائمة Result.Add((GeckoElement)Son); } //إضافة ناتج الدالة GetAllSons إلى القائمة Result Result.AddRange(GetAllSons(Son)); } return Result; } public GeckoElement[] GetAllElements(GeckoWebBrowser Browser) { //التعريف عن قائمة جديدة من نوع GeckoElement List AllElements = new List(); //التعريف عن "عداد (IEnumerator)" من النوع GeckoNode وقيمته تساوي ناتج الدالة GetEnumerator IEnumerator IEnum = YourGeckoWebBrowserName.Document.DocumentElement.ChildNodes.GetEnumerator(); //إستخدام التصريح While للقيام بتنفيذ الكود إذا كان ناتج الدالة MoveNext يساوي True while (IEnum.MoveNext()) { //لتفادي توقف البرنامج عن حصول خطأ try { //إضافة ناتج الدالة GetAllSons إلى القائمة AllElements AllElements.AddRange(GetAllSons(IEnum.Current)); //التحقق إذا ما كان نوع العنصر أو "الشيء" الحالي يساوي Element if (IEnum.Current.NodeType == NodeType.Element) { //إذا تحقق الشرط تتم إضافة العنصر للقائمة AllElements AllElements.Add((GeckoElement)IEnum.Current); } } catch (Exception ex) { MessageBox.Show(ex.Message,"Error"); } } return AllElements.ToArray(); }

الإستخدام 

VB.NET

 Dim AllOfTheElements As GeckoElement() = GetAllElements(YourGeckoWebBrowserName)

C#

GeckoElement[] AllOfTheElements = GetAllElements(YourGeckoWebBrowserName);

<======================================================>

2- لجلب العناصر التي تشترك في الوسم يمكنك إستخدام الدالة  GetElementsByTagName

الإسم : Gecko.GeckoDocument.GetElementsByTagName

الناتج : تعيد GeckoElementCollection

الإستخدام

VB.Net

' استبدل Tag Name بالوسم ' استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك ' --------------------------------------------------------------------------- ' التعريف عن متغير من نوع GeckoElementCollection وتحديد قيمته بناتج الدالة GetElementsByTagName Dim ElementsCollection As GeckoElementCollection = YourGeckoWebBrowserName.Document.GetElementsByTagName("Tag Name")

C Sharp

//استبدل Tag Name بالوسم // استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك // -------------------------------------------------------------------------- // التعريف عن متغير من نوع GeckoElementCollection وتحديد قيمته بناتج الدالة GetElementsByTagName GeckoElementCollection ElementsCollection = YourGeckoWebBrowserName.Document.GetElementsByTagName("Tag Name");

<======================================================>

3- لجلب جميع العناصر التي تشترك بالإسم يمكنك ان تستخدم الدالة GetElementsByName

الإسم :  Gecko.GeckoDocument.GetElementsByName

الناتج : تعيد GeckoElementCollection

الإستخدام

VB.Net

' استبدل Name بالإسم ' استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك ' --------------------------------------------------------------------------- ' التعريف عن متغير من نوع GeckoElementCollection وتحديد قيمته بناتج الدالة GetElementsByName Dim ElementsCollection As GeckoElementCollection = YourGeckoWebBrowserName.Document.GetElementsByName("Name")

      

C Sharp

// استبدل Name بالإسم // استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك // --------------------------------------------------------------------------- // التعريف عن متغير من نوع GeckoElementCollection وتحديد قيمته بناتج الدالة GetElementsByName GeckoElementCollection ElementsCollection = YourGeckoWebBrowserName.Document.GetElementsByName("Name");

<=======================================================>

4- لجلب العناصر التي تشترك بإسم الفصيلة (Class Name) يمكنك أن تستخدم الدالة GetElementsByClassName 

الإسم :  Gecko.GeckoDocument.GetElementsByClassName

الناتج : تعيد GeckoNodeCollection

الإستخدام

VB.Net

' استبدل Class Name بإسم الفصيلة ' استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك ' --------------------------------------------------------------------------- ' التعريف عن متغير من نوع GeckoNodeCollection وتحديد قيمته بناتج الدالة GetElementsByClassName Dim NodesCollection As GeckoNodeCollection = YourGeckoWebBrowserName.Document.GetElementsByClassName("Class Name")

  

C Sharp

/* *استبدل Class Name بإسم الفصيلة *استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك *--------------------------------------------------------------------------- */ //التعريف عن متغير من نوع GeckoNodeCollection وتحديد قيمته بناتج الدالة GetElementsByClassName GeckoNodeCollection NodesCollection = YourGeckoWebBrowserName.Document.GetElementsByClassName("Class Name");

<=====================================================>

5- لجلب العناصر التي تشترك بالوسم والفضاء يمكنك استخدام الدالة GetElementsByTagNameNS

الإسم : Gecko.GeckoDocument.GetElementsByTagNameNS

الناتج : تعيد GeckoElementCollection

الإستخدام

VB.Net

' استبدل Tag Name بالوسم 'إستبدل Name Space بإسم الفضاء ' استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك ' --------------------------------------------------------------------------- ' التعريف عن متغير من نوعGeckoElementCollection وتحديد قيمته بناتج الدالة GetElementsByTagNameNS Dim ElementsCollection As GeckoElementCollection = YourGeckoWebBrowserName.Document.GetElementsByTagNameNS("Name Space", "Tag Name")

C Sharp

/* * استبدل Tag Name بالوسم *إستبدل Name Space بإسم الفضاء * استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك * --------------------------------------------------------------------------- */ // التعريف عن متغير من نوعGeckoElementCollection وتحديد قيمته بناتج الدالة GetElementsByTagNameNS GeckoElementCollection ElementsCollection = YourGeckoWebBrowserName.Document.GetElementsByTagNameNS("Name Space", "Tag Name");

<======================================================>

6- لجلب عنصر محدد يوجد عدة طرق

1- باستخدام دالة GetElementById

الإسم : Gecko.GeckoDocument.GetElementById

الناتج : تعيد Gecko.GeckoElement

الإستخدام

VB.Net

' استبدل Element ID بقيمة الخاصية ID ' استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك ' --------------------------------------------------------------------------- ' التعريف عن متغير من نوعGeckoElement وتحديد قيمته بناتج الدالة GetElementById Dim Element As GeckoElement = YourGeckoWebBrowserName.Document.GetElementById("Element ID")

C Sharp

/* * استبدل Element ID بقيمة الخاصية ID * استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك * --------------------------------------------------------------------------- */ // التعريف عن متغير من نوعGeckoElement وتحديد قيمته بناتج الدالة GetElementById GeckoElement Element = YourGeckoWebBrowserName.Document.GetElementById("Element ID");

يمكنك أيضا أن تستخدم الدالة 
GetHtmlElementById 
بنفس الطريقة فقط تتختلف الدالتان بنوع الناتج

*****************************************************************************************

2- لجلب العنصر الفعال (الذي يركز عليه أو يستخدمه المستخدم حالياً) يمكنك إستخدام الخاصية  ActiveElement

الإسم : Gecko.Document.ActiveElement

القيمة : تعيد GeckoHtmlElement

الإستخدام

VB.Net

' استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك ' --------------------------------------------------------------------------- ' التعريف عن متغير من نوعGeckoElement وتحديد قيمته بقيمة الخاصية ActiveElement Dim Element As GeckoHtmlElement = YourGeckoWebBrowserName.Document.ActiveElement

C Sharp

/* * استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك * -------------------------------------------------------------------------- */ // التعريف عن متغير من نوعGeckoHtmlElement وتحديد قيمته بقيمة الخاصية ActiveElement GeckoHtmlElement Element = YourGeckoWebBrowserName.Document.ActiveElement;

**********************************************************************************

3- باستخدام دالة إحدى الدوال (GetElementsByTagName, GetElementsByName GetElementsByClassName, GetElementsByTagNameNS) ثم تقوم بفلترة النتيجة حتى تحصل على العنصر المراد

لإستخدام هذه الطريقة يجب ان تكون هناك خاصية مميزة للعنصر مثل النص

الإستخدام

VB.Net

' استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك ' --------------------------------------------------------------------------- 'التعريف عن متغير من نوع GeckoElementCollection وتحديد قيمته بناتج الدالة GetElementsByTagName Dim ElementsCollection As GeckoElementCollection = YourGeckoWebBrowserName.Document.GetElementsByTagName("Tag Name") 'التعريف عن متغير من نوع GeckoElement Dim Wanted As GeckoElement 'عمل تكرار على جميع العناصر الموجودة في المجموعة ElementsCollection For Each Element As GeckoElement In ElementsCollection 'التحقق إذا ما كانت قيمة الخاصية تساوي القيمة المطلوبة If Element.GetAttribute("Attribute") = "Distinctive Value" Then 'إذا تحقق الشرط يتم نسخ المتغير Element إلى Wanted Wanted = Element 'الخروج من التكرار لاختصار الوقت Exit For End If Next

C Sharp

// استبدل YourGeckoWebBrowserName بإسم أداة GeckoWebBrowser الموجودة في مشروعك // --------------------------------------------------------------------------- //التعريف عن متغير من نوع GeckoElementCollection وتحديد قيمته بناتج الدالة GetElementsByTagName GeckoElementCollection ElementsCollection = YourGeckoWebBrowserName.Document.GetElementsByTagName("Tag Name"); //التعريف عن متغير من نوع GeckoElement GeckoElement Wanted; //عمل تكرار على جميع العناصر الموجودة في المجموعة ElementsCollection foreach (GeckoElement Element in ElementsCollection) { //التحقق إذا ما كانت قيمة الخاصية القيمة تساوي المطلوبة if (Element.GetAttribute("Attribute") == "Distinctive Value") { //إذا تحقق الشرط يتم نسخ المتغير Element إلى Wanted Wanted = Element; //الخروج من التكرار لاختصار الوقت break; } }

=========================================================

لجلب المعرف (ID) أو (Tag Name) الخاص بــــأي عنصر
انقر على الزر الأيمن للفأرة ثم اختر Inspect Element

ثم قم بتفعيل Mouse inspector

Internet Explorer : Ctrl + B

Mozilla Firefox, Nightly :

Google Chrome :

الآن اختر العنصر الذي تريده ثم إنسخ قيمة الخاصية أو الوسم

=========================================================
يمكنك التطبيق على الأزرار التالية

VB.Net C#.Net C++

إن أصبت فمن الله ، وإن اخطئت فمني ومن الشيطان 

اترككم في امان الله ورعايته 

والسلام عليكم ورحمة الله وبركاته

DoneByA