ياسر خليل أبو البراء قام بنشر نوفمبر 5, 2014 قام بنشر نوفمبر 5, 2014 (معدل) السلام عليكم إخواني الكرام .. ***************************** الشكر موصول للأخ الفاضل شوقي ربيع ، والذي له الفضل بعد الله عزوجل في إلهامي بهذا الموضوع إلى مدخلي البيانات في موقع وزارة التربية والتعليم .. بشرى !! هل عانيت من تكرار كتابة اسم المستخدم والرقم المسلسل وكلمة السر .. والموقع أحيانا لا يقبل بالبيانات وتضطر إلى إعادة الكرة من جديد .. وبعد العمل على الموقع لبعض الوقت تجد نفسك خارج الموقع مرة أخرى ... الآن أصبح بمقدورك الدخول على الموقع عن طريق الإكسيل .. بضغطة زر واحدة .. نعم بنقرة واحدة فقط تدخل الموقع ... ومش بس كدا هيقفلك صفحة الدخول (إغلاق الصفحة) ومش بس كدا هيضغطلك على (تعديل بيانات التلميذ) لتجد نفسك أمام القائمة الأولى للصف الأول ... كل ذلك بنقرة واحدة إلى العمل :أولا قم بتحميل البرنامج المرفق في الرابط أسفل الموضوع ثانيا قم بتنصيب البرنامج ... بعد الانتهاء من التنصيب قم بالدخول على محرر الأكواد بالفيجوال بيسك ومن قائمة Tools قم بإضافة المكتبات : SeleniumWrapper Type Library قم بإدراج موديول جديد ثم أضف الكود التالي : كل ما عليك عمله أن تضع بيانات مدرستك في الخلايا B1 لاسم المستخدم ، وC1 للرقم المسلسل ، و D1 لكلمة السر .. يمكنك أن تسبتدل الجزء في الكود Range("B1") مثلا لكتابة اسم المستخدم مباشرة في الكود ، ولكن لا تنسى أقواس التنصيص... بعد تنفيذ الكود سيقوم الكود بفتح الفايرفوكس نيابة عنك وإدخال بياناتك نيابة عنك والضغط على إغلاق الصفحة نيابة عنك والضغط على تعديل بيانات التلميذ نيابة عنك ... رابط البرنامج اضغط هنا للتحميل لا تنسونا من صالح دعائكم Test.rar تم تعديل نوفمبر 5, 2014 بواسطه YasserKhalil 3 1
الـعيدروس قام بنشر نوفمبر 5, 2014 قام بنشر نوفمبر 5, 2014 السلام عليكم جزاك الله خير اخي ياسر خليل والشكر ايضا للاخ شوقي ربيع تقبل مروري
ناصر سعيد قام بنشر نوفمبر 6, 2014 قام بنشر نوفمبر 6, 2014 جزاك الله كل خير وبارك فيكم جميعا اخي الكريم لو تم اضافة بيانات التلاميذ اوتوماتيكيا في هذا الملف سيكون معجزة
ياسر خليل أبو البراء قام بنشر نوفمبر 6, 2014 الكاتب قام بنشر نوفمبر 6, 2014 السلام عليكم جزاك الله خير اخي ياسر خليل والشكر ايضا للاخ شوقي ربيع تقبل مروري لكم يسعدني أن تكون أستاذي وحبيبي في الله أول من يمر على موضوعي المتواضع بارك الله فيك ونفع بك المسلمين
ياسر خليل أبو البراء قام بنشر نوفمبر 6, 2014 الكاتب قام بنشر نوفمبر 6, 2014 جزاك الله كل خير وبارك فيكم جميعا اخي الكريم لو تم اضافة بيانات التلاميذ اوتوماتيكيا في هذا الملف سيكون معجزة وجزيت أخي ناصر سعيد بالنسبة لطلبك بحاول فعلا فيه لأن دا هيكون بمثابة طفرة للتعامل مع الموقع ، لأن اللي بيتعاملوا مع الموقع بيحتاجوا منه بيانات عشان شغل المدرسة عموما أعتقد الموضوع ده بداية قوية إن شاء الله وبمساعدة الأخوة الأفاضل اللي ليهم خبرة في التعامل مع برمجة الويب مش هيكون صعب ولا مستحيل بإذن الله إلى الأخ شوقي ربيع همتك معانا في النقطة دي ... لو نقدر عن طريق Web Query نعمل تسجيل دخول للموقع أعتقد إن شاء الله هيكون عملية استيراد الجداول سهل
ابو الآء قام بنشر نوفمبر 6, 2014 قام بنشر نوفمبر 6, 2014 بارك الله فيك هل يمكن سحب قواعد البيانات الخاصه بالمدرسه من الموقع بعد فتحه
ياسر خليل أبو البراء قام بنشر نوفمبر 6, 2014 الكاتب قام بنشر نوفمبر 6, 2014 بارك الله فيك هل يمكن سحب قواعد البيانات الخاصه بالمدرسه من الموقع بعد فتحه جاري المحاولات إن شاء الله في هذا الصدد ربنا ييسر الأمور
ياسر خليل أبو البراء قام بنشر نوفمبر 6, 2014 الكاتب قام بنشر نوفمبر 6, 2014 أخي عاشق الإسلام مشكور على مرورك العطر .. بارك الله فيك
أسامة عطاالله قام بنشر نوفمبر 6, 2014 قام بنشر نوفمبر 6, 2014 شكرا جزيلا على المجهود المبذول لو تكرمتوا هل ممكن نغير فى الويب نفسة بدل الفايرفوكس يبقى Internet Explorer
وائل احمد المصري قام بنشر نوفمبر 6, 2014 قام بنشر نوفمبر 6, 2014 السلام عليكم إخواني الكرام .. ***************************** الشكر موصول للأخ الفاضل شوقي ربيع ، والذي له الفضل بعد الله عزوجل في إلهامي بهذا الموضوع إلى مدخلي البيانات في موقع وزارة التربية والتعليم .. بشرى !! هل عانيت من تكرار كتابة اسم المستخدم والرقم المسلسل وكلمة السر .. والموقع أحيانا لا يقبل بالبيانات وتضطر إلى إعادة الكرة من جديد .. وبعد العمل على الموقع لبعض الوقت تجد نفسك خارج الموقع مرة أخرى ... الآن أصبح بمقدورك الدخول على الموقع عن طريق الإكسيل .. بضغطة زر واحدة .. نعم بنقرة واحدة فقط تدخل الموقع ... ومش بس كدا هيقفلك صفحة الدخول (إغلاق الصفحة) ومش بس كدا هيضغطلك على (تعديل بيانات التلميذ) لتجد نفسك أمام القائمة الأولى للصف الأول ... كل ذلك بنقرة واحدة إلى العمل : أولا قم بتحميل البرنامج المرفق في الرابط أسفل الموضوع ثانيا قم بتنصيب البرنامج ... بعد الانتهاء من التنصيب قم بالدخول على محرر الأكواد بالفيجوال بيسك ومن قائمة Tools قم بإضافة المكتبات : SeleniumWrapper Type Library قم بإدراج موديول جديد ثم أضف الكود التالي : كل ما عليك عمله أن تضع بيانات مدرستك في الخلايا B1 لاسم المستخدم ، وC1 للرقم المسلسل ، و D1 لكلمة السر .. يمكنك أن تسبتدل الجزء في الكود Range("B1") مثلا لكتابة اسم المستخدم مباشرة في الكود ، ولكن لا تنسى أقواس التنصيص... بعد تنفيذ الكود سيقوم الكود بفتح الفايرفوكس نيابة عنك وإدخال بياناتك نيابة عنك والضغط على إغلاق الصفحة نيابة عنك والضغط على تعديل بيانات التلميذ نيابة عنك ... رابط البرنامج اضغط هنا للتحميل لا تنسونا من صالح دعائكم الله ينور يا مستر ياسر :) ولا انسي اخينا شوقي بارك الله فيكما
ناصر سعيد قام بنشر نوفمبر 6, 2014 قام بنشر نوفمبر 6, 2014 (معدل) جزاكم الله خيرا تم تعديل نوفمبر 6, 2014 بواسطه nasersaeed
ناصر سعيد قام بنشر نوفمبر 6, 2014 قام بنشر نوفمبر 6, 2014 قم بإدراج موديول جديد ثم أضف الكود التالي : ***** معذره اين الكود الذي تقصده
ياسر خليل أبو البراء قام بنشر نوفمبر 6, 2014 الكاتب قام بنشر نوفمبر 6, 2014 قم بإدراج موديول جديد ثم أضف الكود التالي : ***** معذره اين الكود الذي تقصده عذرا أخي نسيت إرفاق الكود لكن فيه ملف مرفق به الكود وبه تجهيز لمكان البيانات ودا الكود اتفضل 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
ناصر سعيد قام بنشر نوفمبر 15, 2014 قام بنشر نوفمبر 15, 2014 بعد اذنكم نريد بدل الفايرفوكس بكون الاكسبلور
ياسر خليل أبو البراء قام بنشر نوفمبر 15, 2014 الكاتب قام بنشر نوفمبر 15, 2014 تفضل الكود الذي يتيح لك فتح الموقع عن طريق الانترنت إكسبلورر 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 تقبل تحياتي 1
ياسر خليل أبو البراء قام بنشر نوفمبر 15, 2014 الكاتب قام بنشر نوفمبر 15, 2014 أو يمكنك تغيير شيء بسيط جدا في الملف في المشاركة الأولى وهو استبدال 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
ياسر خليل أبو البراء قام بنشر نوفمبر 15, 2014 الكاتب قام بنشر نوفمبر 15, 2014 فضلك الله بالجنه ربنا يبارك لك بارك الله فيك على دعائك الجميل .. اللهم استجب
عبدالموجود بدر قام بنشر ديسمبر 5, 2014 قام بنشر ديسمبر 5, 2014 رائع واللهي عمالقة الاكسيل ربنا يكثر من أمثالكم
ياسر خليل أبو البراء قام بنشر ديسمبر 5, 2014 الكاتب قام بنشر ديسمبر 5, 2014 مشكور على مرورك العطر يا أخي عبد الموجود ويا ريت تفضل معانا موجود .. لأن اللي بيعشقوا الإكسيل عددهم محدود
محمد عبد الجواد النجار قام بنشر فبراير 23, 2015 قام بنشر فبراير 23, 2015 جزاك الله كل الخير وجعل عملك فى ميزان حسناتك وشكرا على المعلومات النافعة
خزاني قام بنشر فبراير 23, 2015 قام بنشر فبراير 23, 2015 جزاك الله كل الخير وجعل عملك فى ميزان حسناتك 1
سـامي 169 قام بنشر مارس 23, 2015 قام بنشر مارس 23, 2015 جزاك الله كل خير وبارك فيكم جميعا اخي الكريم لو تم اضافة بيانات التلاميذ اوتوماتيكيا في هذا الملف سيكون معجزة وجزيت أخي ناصر سعيد بالنسبة لطلبك بحاول فعلا فيه لأن دا هيكون بمثابة طفرة للتعامل مع الموقع ، لأن اللي بيتعاملوا مع الموقع بيحتاجوا منه بيانات عشان شغل المدرسة عموما أعتقد الموضوع ده بداية قوية إن شاء الله وبمساعدة الأخوة الأفاضل اللي ليهم خبرة في التعامل مع برمجة الويب مش هيكون صعب ولا مستحيل بإذن الله إلى الأخ شوقي ربيع همتك معانا في النقطة دي ... لو نقدر عن طريق Web Query نعمل تسجيل دخول للموقع أعتقد إن شاء الله هيكون عملية استيراد الجداول سهل جزيل الشكر لك ... بارك الله فيك ...
الردود الموصى بها