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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=30402)

اريد التأكد من تسجيل الدخول لموقع ما - ابو روضة - 19-07-19

السلام عليكم اخوتى..
اريد التأكد لو كنت مسجل بموقع ما أم لا فلو كنت مسجل مسبقا
يغلق فورم الدخول ويفتح الفورم الاخر لآنى عامل 2 فورم واحد للدخول والاخر للتصفح العادى
انا جربت هذا فى حدث   WebBrowser1_DocumentCompleted بتاع الويب براوزر لكن لو مش مسجل بسجل لكن بعد التسجيل مش بيغلق الفورم  بل لابد وان اغلقه وافتحه مرة اخرى وانا اريده لو تم التسجيل يغلق هذا ويفتح الاخر
كود :
If WebBrowser1.DocumentText.Contains("تسجيل الخروج") Then
           Form2.Show()
           Me.Close()
       Else
           Me.Text = ("يجب تسجيل الدخول")
       End If


RE: اريد التأكد من تسجيل الدخول لموقع ما - ابو روضة - 21-07-19

او حتى ممكن شرح بالتفصيل لهذا الكود أول سطر تحديدا

كود :
If WebBrowser1.Document.GetElementById("mbasic_logout_button") IsNot Nothing Then

           Form1.Show()

           Me.Close()

       Else

           Me.Text = ("يجب تسجيل الدخول")

       End


وخصوصا هذه الجملة IsNot Nothing


RE: اريد التأكد من تسجيل الدخول لموقع ما - Basil Abdallah - 21-07-19

If WebBrowser1.Document.GetElementById("mbasic_logout_button") IsNot Nothing Then

هنا نحنا نسال البرنامج ونقول له اذا كان نص الـhtml لصفحة الويب لا يحتوي على زر قيمة الـid له = mbasic_logout_button

Form1.Show()

Me.Close()
اذا لم يتحقق الشرط ولم يجد البرنامج الاي دي في صفحة الويب يفتح الفورم الاول ويغلق الفورم الحالي
اعطيني رابط الموقع

ولكن غالبا عليك البحث عن شيء اكثر تميزا في صفحة الويب
مثل صندوق ادخال اسم المستخدم وكلمة المرور اذا كانن موجودات يعني انه لم يتم تسجيل الدخول والعكس

RE: اريد التأكد من تسجيل الدخول لموقع ما - ابو روضة - 21-07-19

(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 حدث خطأ فى الكود


RE: اريد التأكد من تسجيل الدخول لموقع ما - Basil Abdallah - 21-07-19

اعتقد هكذا يصبح الكود
If WebBrowser1.Document.GetElementById("mbasic_logout_button").OuterHtml Then


End If

RE: اريد التأكد من تسجيل الدخول لموقع ما - ابو روضة - 21-07-19

(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


RE: اريد التأكد من تسجيل الدخول لموقع ما - Basil Abdallah - 21-07-19

OuterHtml معناها في نص الـhtml الخاص بالصفحة

If WebBrowser1.DocumentText.Contains("تسجيل الدخول") Then
حقيقتا لا اعلم فالكود يبنى على معطيات عدة ..
ولكن انا لا انصح باستعمال هذه الطريقة فهنا البرنامج رح يصيبه ثغرة خطأ برمجي
فاي شخص يستطيع ان ينشر موضوع او مقال في الموقع المطلوب بعنوان ("تسجيل الدخول") مثلا والعضو قام اساسا بتسجيل الدخول
فيشق على البرنامج تحديد الامر المناسب

لذلك انصح بـID صندوق تسحيل الدخول او لزر تسجيل الدخول

RE: اريد التأكد من تسجيل الدخول لموقع ما - ابو روضة - 21-07-19

(21-07-19, 02:02 PM)Basil Abdallah كتب : OuterHtml معناها في نص الـhtml الخاص بالصفحة

If WebBrowser1.DocumentText.Contains("تسجيل الدخول") Then
حقيقتا لا اعلم فالكود يبنى على معطيات عدة ..
ولكن انا لا انصح باستعمال هذه الطريقة فهنا البرنامج رح يصيبه ثغرة خطأ برمجي
فاي شخص يستطيع ان ينشر موضوع او مقال في الموقع المطلوب بعنوان ("تسجيل الدخول") مثلا والعضو قام اساسا بتسجيل الدخول
فيشق على البرنامج تحديد الامر المناسب

لذلك انصح بـID صندوق تسحيل الدخول او لزر تسجيل الدخول

كلامك صحيح أخى وموزون بارك الله فيك