محتاج كود بسيط و أتمنى مساعدتكم لى

اداة الـ WebBrowser تحتوى على الحدث DocumentCompleted و الذى يتم استدعائه بمجرد الإنتهاء من تحميل الصفحة الموجوده عنوانها داخل الأداه.

للبحث عن نص داخل الأداه لابد اولا انت تفصل النص عن اكواد الـ HTML ولحسن الحظ الأداه تقدم لك هذه الخاصيه بشكل جاهز، النص الموجود بالأداه موجود يمكنك الحصول عليه بالكود التالى

Dim value As String = WebBrowser1.Document.Body.InnerText

سيتم وضع المحتويات النصيه للصفحه داخل المتغير value.

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

Dim Index As String = IndexOf("find me")

if Index = -1 then
    ' search value not found
else
    ' search value founded
end if

المتغير value المستخدم فى الكود السابق هو الذى يحتوى على المحتويات النصيه للصفحه.

لإعادة تحميل نفس الصفحه فقط استدعى الداله Refresh الموجوده داخل اداة الـ WebBrowser و لتحميل صفحه اخرى استخدم الداله Navigate

و الله ولى التوفيق

أنا مبتدأ جدا بالبرمجة و أتمنى مساعدتى أكثر

بالنسبة ل DocumentCompleted

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

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

هذا الأمر الذى يحدث عند الضغط على زر إبدأ فى النموذج

Do Until i = 1

عند فتح الصفحة هنا أحتاج لشرط للحلقة للتنتظر حتى يكتمل تحميل الصفحة لتنتقل للأمر التالى

WebBrowser1.Navigate(www.google.com)

s = s + 1

Label1.Text = s (عدد مرات البحث )

هنا أحتاج كود البحث إذا وجد الكلمة المراد البحث عنها يعطى ل i

القيمة واحد و إذا لم يجد يتركها 0

Loop

إذا كانت i

تحمل القيمة 1 هنا الأمر الذى سيتم تنفيذه على ما اظن هذا ماكانه أتمنى التصحيح إذا كنت مخطأ

End Sub