طلب الدخول على موقع باستخدام بيانات مسجلة

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

السلام عليكم

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

أريد عمل كود يقوم بالدخول على موقع الوزارة

http://student.moe.gov.eg/new/serch_students.aspx

ويتم عن طريق الكود تسجيل الدخول ببيانات المدرسة ..

هل بالإمكان عمل ذلك؟

من لديه أي فكرة يدلي بها

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

[شوقي ربيع]

السلام عليكم

جرب هذا الكود بعدما تقوم بتغير البيانات الازمة واعلمني بالنتيجة

Option Explicit
Sub Test()
Dim IE
    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 = "اسم المستخدم"
        .document.all.Item("ctl00$ContentPlaceHolder1$TextBox2").Value = "رقم المسلسل"
        .document.all.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = "لمة السر"
        .document.forms(0).submit

    End With
End Sub

تحياتي للجميع

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

جزيت خيرا أخي الغالي وأستاذي القدير على هذا الكود الرائع

فتح برنامج الاكسبلورر وكتب اسم المستخدم والمسلسل لكن كلمة السر لم تكتب ولم يتم تسجيل الدخول

جربت أدخل كلمة السر يدوي اشتغل تمام ودخل

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

طلب تاني ممكن أخلي البرنامج اللي يفتح الفايرفوكس أو الجوجل كروم

ومشكور على الكود الروعة أيها المتمكن

[شوقي ربيع]

السلام عليكم

المشكلة كانت في عدم تعرف الكود على زر التنفيذ و تم حل المشكلة ان شاء الله

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

على العموم سأحاول ايجاد الطريقة لتنفيذ ذلك (ما لا تفعله ميكروسوفت  نفعله ان شاء الله في أوفيسنا)

Sub Test()

Dim IE
    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 = "ÇÓã ÇáãÓÊÎÏã"
        .document.all.Item("ctl00$ContentPlaceHolder1$TextBox2").Value = "ÑÞã ÇáãÓáÓá"
        .document.all.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = "ßáãÉ ÇáÓÑ"
 
 Dim Element As IHTMLElement
 For Each Element In .document.getElementsByTagName("input")
 If Element.Type = "submit" Then Element.Click: Exit For
 Next


    End With
End Sub

تحياتي للجميع

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

عندما قمت باختبار الكود

ظهرت لي رسالة خطأ هنا User-defined type

Dim Element As IHTMLElement

هل هناك مكتبة معينة في References  يجب أن أفعلها؟

[شوقي ربيع]

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

Microsoft internet controls
 

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

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

Microsoft internet controls

 

قمت بتجربتها قبل أن ترد وجربتها مرة ثانية ولم تفلح ، تظهر نفس رسالة الخطأ

[شوقي ربيع]

Microsoft HTML Object Library

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

Microsoft HTML Object Library

مش بقولك متمكن والله إنك لرائع أخي وحبيبي في الله شوقي ربيع

أشعر بالضآلة أمام أعمالكم الرائعة ..

 

بقي طلب واحد فقط

 

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

البيانات مثلا في الأعمدة A:C

أحاول أن أجد فكرة لاختيار المدرسة ثم الضغط على زر محدد للدخول مباشرة ..

هل يمكن عمل ذلك باستخدام الـ UserForm

أوعدك دا آخر طلب في الموضوع ده.

[قصي]

موضوع رائع

جزاكم الله خيرا ولي سؤال

هل يمكن ادخال بيانات الطلاب  في الموقع عن طريق الكود ؟

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

الأخ الغالي شوقي

تمام قمت بعمل قائمة منسدلة اختار منها المدرسة وبالمعادلات تظهر بيانات المدرسة وأضغط على الكود ليتم كما أردت

والله لا تكفيك كلمة شكر ولا أجد غير جزاك الله كل خير ولو وصانا النبي بخير منها ما بخلت عليك بها

والله إنك لرائع .. متمكن .. متميز .. مبدع ..

[شوقي ربيع]

اخجلتم تواضعنا استاذ ياسر

هذا ما طلبت باستخدام فورم

قم بتعبئة البيانات الازمة في الشيت وفقط

ملاحظة ان كان الرابط موحد عدل في الكود وثبت قيمة المتغير Url فقط

تحياتي للجميع

HTML.rar

[شوقي ربيع]

موضوع رائع

جزاكم الله خيرا ولي سؤال

هل يمكن ادخال بيانات الطلاب  في الموقع عن طريق الكود ؟

بالطبع ممكن بنفس طريقة الكود السابق مع امكانية اظهار النتائج في الشيت

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

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

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

فلو وجدت طريقة للفايرفوكس يكون أفضل من هذا المتصفح العقيم في وجهة نظري

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

جزيت خيرا على كل ما تقدمه لنا

[mod71]

لكم جزيل الشكر علي هذه الخدمه التي كانت تتعبنا كثيرا لدخول الموقع 

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

الأخ الفاضل الحبيب شوقي

كيف يمكن أن نقوم بعمل استيراد لجدول به بيانات التلاميذ .. الجدول فيه كود التلميذ واسم الطالب والرقم القومي وحالة القيد والفصل والعام الدراسي؟

هل يمكن استيراد البيانات بسهولة أم أن العملية معقدة؟

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

هل من جديد فيما يخص هذا الأمر؟

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

فلو فيه طريقة نقدر نستخرج بيها البيانات تكون أسهل يا ريت تدلوني عليها

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

طيب أنا غيرت طريقة تفكيري لازم الواحد يكون مرن

المهم دلوقتي قدرت من خلال التبويب Data ثم From Web قدرت إني أدخل واعمل استيراد للجدول اللي أنا عايزة بكل بساطة

بس المشكلة في الدخول بردو لازم يدوي

فدلوقتي لو أمكن أخي شوقي تعمل توافق بين النقطة دي والكود الرائع اللي فات يبقا كدا تمام أوي

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

 

طيب أنا غيرت طريقة تفكيري لازم الواحد يكون مرن

المهم دلوقتي قدرت من خلال التبويب Data ثم From Web قدرت إني أدخل واعمل استيراد للجدول اللي أنا عايزة بكل بساطة

بس المشكلة في الدخول بردو لازم يدوي

فدلوقتي لو أمكن أخي شوقي تعمل توافق بين النقطة دي والكود الرائع اللي فات يبقا كدا تمام أوي

 

هل أجد فكرة لدى أحدكم إخواني ؟