السلام عليكم اخوتى..
اريد التأكد لو كنت مسجل بموقع ما أم لا فلو كنت مسجل مسبقا
يغلق فورم الدخول ويفتح الفورم الاخر لآنى عامل 2 فورم واحد للدخول والاخر للتصفح العادى
انا جربت هذا فى حدث WebBrowser1_DocumentCompleted بتاع الويب براوزر لكن لو مش مسجل بسجل لكن بعد التسجيل مش بيغلق الفورم بل لابد وان اغلقه وافتحه مرة اخرى وانا اريده لو تم التسجيل يغلق هذا ويفتح الاخر
كود :
If WebBrowser1.DocumentText.Contains("تسجيل الخروج") Then
Form2.Show()
Me.Close()
Else
Me.Text = ("يجب تسجيل الدخول")
End If
او حتى ممكن شرح بالتفصيل لهذا الكود أول سطر تحديدا
كود :
If WebBrowser1.Document.GetElementById("mbasic_logout_button") IsNot Nothing Then
Form1.Show()
Me.Close()
Else
Me.Text = ("يجب تسجيل الدخول")
End
وخصوصا هذه الجملة IsNot Nothing
If WebBrowser1.Document.GetElementById("mbasic_logout_button") IsNot Nothing Then
هنا نحنا نسال البرنامج ونقول له اذا كان نص الـhtml لصفحة الويب لا يحتوي على زر قيمة الـid له = mbasic_logout_button
Form1.Show()
Me.Close()
اذا لم يتحقق الشرط ولم يجد البرنامج الاي دي في صفحة الويب يفتح الفورم الاول ويغلق الفورم الحالي
اعطيني رابط الموقع
ولكن غالبا عليك البحث عن شيء اكثر تميزا في صفحة الويب
مثل صندوق ادخال اسم المستخدم وكلمة المرور اذا كانن موجودات يعني انه لم يتم تسجيل الدخول والعكس
(21-07-19, 04:51 AM)Basil Abdallah كتب : [ -> ]If WebBrowser1.Document.GetElementById("mbasic_logout_button") IsNot Nothing Then
هنا نحنا نسال البرنامج ونقول له اذا كان نص الـhtml لصفحة الويب لا يحتوي على زر قيمة الـid له = mbasic_logout_button
Form1.Show()
Me.Close()
اذا لم يتحقق الشرط ولم يجد البرنامج الاي دي في صفحة الويب يفتح الفورم الاول ويغلق الفورم الحالي
اعطيني رابط الموقع
ولكن غالبا عليك البحث عن شيء اكثر تميزا في صفحة الويب
مثل صندوق ادخال اسم المستخدم وكلمة المرور اذا كانن موجودات يعني انه لم يتم تسجيل الدخول والعكس
كل الشكر والتقدير لك أخى الكريم فعلا انا كنت ناسييها والله " لا تحتوى " هذا فعلا معناها
وهذا فقط ما كنت اريد معرفته وجزاك الله كل الخير أخى.
لكن نفترض بدلا من كلمة لا تحتوى اريد كتابة نفس الكود بيحتوى فكيف يكون هذا ؟
يعنى اذا كانت هذه الصفحة تحتوى على نص معين
لآنى لما حذفت كلمة IsNot Nothing حدث خطأ فى الكود
اعتقد هكذا يصبح الكود
If WebBrowser1.Document.GetElementById("mbasic_logout_button").OuterHtml Then
End If
(21-07-19, 01:43 PM)Basil Abdallah كتب : [ -> ]اعتقد هكذا يصبح الكود
If WebBrowser1.Document.GetElementById("mbasic_logout_button").OuterHtml Then
End If
وماذا تعنى هذه OuterHtml ؟
اعتقد والله اعلى وأعلم ستكون هكذا
كود :
If WebBrowser1.DocumentText.Contains("تسجيل الدخول") Then
OuterHtml معناها في نص الـhtml الخاص بالصفحة
If WebBrowser1.DocumentText.Contains("تسجيل الدخول") Then
حقيقتا لا اعلم فالكود يبنى على معطيات عدة ..
ولكن انا لا انصح باستعمال هذه الطريقة فهنا البرنامج رح يصيبه ثغرة خطأ برمجي
فاي شخص يستطيع ان ينشر موضوع او مقال في الموقع المطلوب بعنوان ("تسجيل الدخول") مثلا والعضو قام اساسا بتسجيل الدخول
فيشق على البرنامج تحديد الامر المناسب
لذلك انصح بـID صندوق تسحيل الدخول او لزر تسجيل الدخول
(21-07-19, 02:02 PM)Basil Abdallah كتب : [ -> ]OuterHtml معناها في نص الـhtml الخاص بالصفحة
If WebBrowser1.DocumentText.Contains("تسجيل الدخول") Then
حقيقتا لا اعلم فالكود يبنى على معطيات عدة ..
ولكن انا لا انصح باستعمال هذه الطريقة فهنا البرنامج رح يصيبه ثغرة خطأ برمجي
فاي شخص يستطيع ان ينشر موضوع او مقال في الموقع المطلوب بعنوان ("تسجيل الدخول") مثلا والعضو قام اساسا بتسجيل الدخول
فيشق على البرنامج تحديد الامر المناسب
لذلك انصح بـID صندوق تسحيل الدخول او لزر تسجيل الدخول
كلامك صحيح أخى وموزون بارك الله فيك