بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة

[ياسر خليل أبو البراء]

السلام عليكم
إخواني الكرام ..

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

الشكر موصول للأخ الفاضل شوقي ربيع ، والذي له الفضل بعد الله عزوجل في إلهامي بهذا الموضوع

إلى مدخلي البيانات في موقع وزارة التربية والتعليم .. بشرى !!
هل عانيت من تكرار كتابة اسم المستخدم والرقم المسلسل وكلمة السر .. والموقع أحيانا لا يقبل بالبيانات وتضطر إلى إعادة الكرة من جديد .. وبعد العمل على الموقع لبعض الوقت تجد نفسك خارج الموقع مرة أخرى ...
الآن أصبح بمقدورك الدخول على الموقع عن طريق الإكسيل .. بضغطة زر واحدة .. نعم بنقرة واحدة فقط تدخل الموقع ...
ومش بس كدا هيقفلك صفحة الدخول (إغلاق الصفحة) ومش بس كدا هيضغطلك على (تعديل بيانات التلميذ) لتجد نفسك أمام القائمة الأولى للصف الأول ... كل ذلك بنقرة واحدة

   

إلى العمل :
أولا قم بتحميل البرنامج المرفق في الرابط أسفل الموضوع
ثانيا قم بتنصيب البرنامج ...
بعد الانتهاء من التنصيب قم بالدخول على محرر الأكواد بالفيجوال بيسك ومن قائمة Tools قم بإضافة المكتبات :

SeleniumWrapper Type Library
 

قم بإدراج موديول جديد ثم أضف الكود التالي :
كل ما عليك عمله أن تضع بيانات مدرستك في الخلايا B1 لاسم المستخدم ، وC1 للرقم المسلسل ، و D1 لكلمة السر ..
يمكنك أن تسبتدل الجزء في الكود

 Range("B1")

مثلا لكتابة اسم المستخدم مباشرة في الكود ، ولكن لا تنسى أقواس التنصيص...

بعد تنفيذ الكود سيقوم الكود بفتح الفايرفوكس نيابة عنك وإدخال بياناتك نيابة عنك والضغط على إغلاق الصفحة نيابة عنك والضغط على تعديل بيانات التلميذ نيابة عنك ...

 

رابط البرنامج

اضغط هنا للتحميل

لا تنسونا من صالح دعائكم

Test.rar

تم تعديل نوفمبر 5, 2014 بواسطه YasserKhalil

[الـعيدروس]

السلام عليكم

 

جزاك الله خير اخي ياسر خليل

والشكر ايضا للاخ شوقي ربيع

 

تقبل مروري

[ناصر سعيد]

جزاك الله كل خير وبارك فيكم جميعا

اخي الكريم لو تم اضافة بيانات التلاميذ اوتوماتيكيا في هذا الملف سيكون معجزة

[ياسر خليل أبو البراء]

السلام عليكم

 

جزاك الله خير اخي ياسر خليل

والشكر ايضا للاخ شوقي ربيع

 

تقبل مروري

لكم يسعدني أن تكون أستاذي وحبيبي في الله أول من يمر على موضوعي المتواضع

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

[ياسر خليل أبو البراء]

 

جزاك الله كل خير وبارك فيكم جميعا

اخي الكريم لو تم اضافة بيانات التلاميذ اوتوماتيكيا في هذا الملف سيكون معجزة

 

وجزيت أخي ناصر سعيد

بالنسبة لطلبك بحاول فعلا فيه لأن دا هيكون بمثابة طفرة للتعامل مع الموقع ، لأن اللي بيتعاملوا مع الموقع بيحتاجوا منه بيانات عشان شغل المدرسة

عموما أعتقد الموضوع ده بداية قوية إن شاء الله

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

إلى الأخ شوقي ربيع همتك معانا في النقطة دي ...

لو نقدر عن طريق Web Query  نعمل تسجيل دخول للموقع أعتقد إن شاء الله هيكون عملية استيراد الجداول سهل

[ابو الآء]

بارك الله فيك

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

[ياسر خليل أبو البراء]

بارك الله فيك

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

جاري المحاولات إن شاء الله في هذا الصدد ربنا ييسر الأمور

[عاشق الاسلام]

برنامج رائع ومبدع

[ياسر خليل أبو البراء]

أخي عاشق الإسلام

مشكور على مرورك العطر .. بارك الله فيك

[أسامة عطاالله]

شكرا جزيلا على المجهود المبذول

لو تكرمتوا هل ممكن نغير فى الويب نفسة بدل الفايرفوكس يبقى Internet Explorer

[وائل احمد المصري]

 

السلام عليكم

إخواني الكرام ..

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

الشكر موصول للأخ الفاضل شوقي ربيع ، والذي له الفضل بعد الله عزوجل في إلهامي بهذا الموضوع

إلى مدخلي البيانات في موقع وزارة التربية والتعليم .. بشرى !!

هل عانيت من تكرار كتابة اسم المستخدم والرقم المسلسل وكلمة السر .. والموقع أحيانا لا يقبل بالبيانات وتضطر إلى إعادة الكرة من جديد .. وبعد العمل على الموقع لبعض الوقت تجد نفسك خارج الموقع مرة أخرى ...

الآن أصبح بمقدورك الدخول على الموقع عن طريق الإكسيل .. بضغطة زر واحدة .. نعم بنقرة واحدة فقط تدخل الموقع ...

ومش بس كدا هيقفلك صفحة الدخول (إغلاق الصفحة) ومش بس كدا هيضغطلك على (تعديل بيانات التلميذ) لتجد نفسك أمام القائمة الأولى للصف الأول ... كل ذلك بنقرة واحدة

   

إلى العمل :

أولا قم بتحميل البرنامج المرفق في الرابط أسفل الموضوع

ثانيا قم بتنصيب البرنامج ...

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

SeleniumWrapper Type Library

 

قم بإدراج موديول جديد ثم أضف الكود التالي :

كل ما عليك عمله أن تضع بيانات مدرستك في الخلايا B1 لاسم المستخدم ، وC1 للرقم المسلسل ، و D1 لكلمة السر ..

يمكنك أن تسبتدل الجزء في الكود

 Range("B1")

مثلا لكتابة اسم المستخدم مباشرة في الكود ، ولكن لا تنسى أقواس التنصيص...

بعد تنفيذ الكود سيقوم الكود بفتح الفايرفوكس نيابة عنك وإدخال بياناتك نيابة عنك والضغط على إغلاق الصفحة نيابة عنك والضغط على تعديل بيانات التلميذ نيابة عنك ...

 

رابط البرنامج

اضغط هنا للتحميل

لا تنسونا من صالح دعائكم

 

الله ينور يا مستر ياسر :)

ولا انسي اخينا شوقي

بارك الله فيكما

[ناصر سعيد]

جزاكم الله خيرا

تم تعديل نوفمبر 6, 2014 بواسطه nasersaeed

[ناصر سعيد]

قم بإدراج موديول جديد ثم أضف الكود التالي :

*****

معذره اين الكود الذي تقصده

[ياسر خليل أبو البراء]

قم بإدراج موديول جديد ثم أضف الكود التالي :

*****

معذره اين الكود الذي تقصده

عذرا أخي نسيت إرفاق الكود لكن فيه ملف مرفق به الكود وبه تجهيز لمكان البيانات

ودا الكود اتفضل

Public Sub WebLoginFirefox()
      'SeleniumWrapper Type Library
      Dim driver As New SeleniumWrapper.WebDriver
      Dim By As New By, Assert As New Assert, Verify As New Verify, Waiter As New Waiter
      driver.Start "firefox", "http://student.moe.gov.eg/"
      driver.setImplicitWait 5000
    
      driver.get "/new/"
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox1").Clear
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox1").SendKeys Range("B1")
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox2").Clear
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox2").SendKeys Range("C1")
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox3").Clear
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox3").SendKeys Range("D1")
      driver.findElementById("ctl00_ContentPlaceHolder1_Button2").Click
      driver.findElementById("Button1").Click
      driver.findElementByLinkText("تعديل بيانات تلميذ").Click
End Sub

[ناصر سعيد]

بعد اذنكم نريد بدل الفايرفوكس بكون الاكسبلور

[ياسر خليل أبو البراء]

تفضل الكود الذي يتيح لك فتح الموقع عن طريق الانترنت إكسبلورر

Sub OpenStudentURL()
    Dim IE
    'Microsoft HTML Object Library
    Dim Element As IHTMLElement
        Set IE = CreateObject("InternetExplorer.Application")
        With IE
            .Visible = True
            .navigate "http://student.moe.gov.eg/new/serch_students.aspx"
            Do Until .readyState = 4
                DoEvents
            Loop
            .document.all.Item("ctl00$ContentPlaceHolder1$TextBox1").Value = Sheets("URL").Range("B1").Value
            .document.all.Item("ctl00$ContentPlaceHolder1$TextBox2").Value = Sheets("URL").Range("C1").Value
            .document.all.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = Sheets("URL").Range("D1").Value
    
     For Each Element In .document.getElementsByTagName("input")
     If Element.Type = "submit" Then Element.Click: Exit For
     Next
    End With
End Sub

تقبل تحياتي

[ياسر خليل أبو البراء]

أو يمكنك تغيير شيء بسيط جدا في الملف في المشاركة الأولى وهو استبدال Firefox بـ IE

هكذا

Public Sub WebLoginFirefox()
      'SeleniumWrapper Type Library
      Dim driver As New SeleniumWrapper.WebDriver
      Dim By As New By, Assert As New Assert, Verify As New Verify, Waiter As New Waiter
      driver.Start "IE", "http://student.moe.gov.eg/"
      driver.setImplicitWait 5000
    
      driver.get "/new/"
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox1").Clear
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox1").SendKeys Sheets("URL").Range("B1")
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox2").Clear
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox2").SendKeys Sheets("URL").Range("C1")
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox3").Clear
      driver.findElementById("ctl00_ContentPlaceHolder1_TextBox3").SendKeys Sheets("URL").Range("D1")
      driver.findElementById("ctl00_ContentPlaceHolder1_Button2").Click
      driver.findElementById("Button1").Click
      driver.findElementByLinkText("تعديل بيانات تلميذ").Click
End Sub

[ناصر سعيد]

فضلك الله بالجنه ربنا يبارك لك

[ياسر خليل أبو البراء]

 

فضلك الله بالجنه ربنا يبارك لك

 

بارك الله فيك على دعائك الجميل .. اللهم استجب

[عبدالموجود بدر]

رائع واللهي عمالقة الاكسيل ربنا يكثر من أمثالكم 

[ياسر خليل أبو البراء]

مشكور على مرورك العطر يا أخي عبد الموجود

ويا ريت تفضل معانا موجود .. لأن اللي بيعشقوا الإكسيل عددهم محدود

[mhrrd]

شكرا

[محمد عبد الجواد النجار]

جزاك الله كل الخير وجعل عملك فى ميزان حسناتك وشكرا على المعلومات النافعة 

[خزاني]

جزاك الله كل الخير وجعل عملك فى ميزان حسناتك

[سـامي 169]

 

 

جزاك الله كل خير وبارك فيكم جميعا

اخي الكريم لو تم اضافة بيانات التلاميذ اوتوماتيكيا في هذا الملف سيكون معجزة

 

وجزيت أخي ناصر سعيد

بالنسبة لطلبك بحاول فعلا فيه لأن دا هيكون بمثابة طفرة للتعامل مع الموقع ، لأن اللي بيتعاملوا مع الموقع بيحتاجوا منه بيانات عشان شغل المدرسة

عموما أعتقد الموضوع ده بداية قوية إن شاء الله

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

إلى الأخ شوقي ربيع همتك معانا في النقطة دي ...

لو نقدر عن طريق Web Query  نعمل تسجيل دخول للموقع أعتقد إن شاء الله هيكون عملية استيراد الجداول سهل

 

جزيل الشكر لك ... بارك الله فيك ...