اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

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 HTML Object Library

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

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

 

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

 

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

HTML.rar

رابط هذا التعليق
شارك

موضوع رائع

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

 

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

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

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

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

 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information