البحث داخل اداة WebBrowser4

[samrati1]

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

تعلمت الكثير من هذا المنتدى 

يوجد مثال مرفق لعرض مواقع ويب في الاكسز 

المطلوب هو تعديل الكود بحيث يبحث عن كلمة ولتكن مثلا "user_id=1173026595" داخل الصفحة واذا وجدها يقف البحث واذا لم يجد تلك الكلمة يستمر في عرض الصفحات الموجودة حتى يصل الي اللينك الصحيح او او الصفحة المرادة أو تلك الكلمة 

قمت بعمل البرنامج وقام احد اعضاء اسرة اوفسينا بمساعدتي

الرجاء كل الرجاء من استاتذي وخبراء الاكسز اني يفيدوني في امري هذا 

فقد ضاق بي الوقت والمشروع طويل جدا ولكني عجزت في هذه النقطة ولا استطيع حلها 

ارجو منكم ايها السادة الافاضل حل مشكلتي

ولكم جزيل الشكر والعرفان

لله الامر من قبل ومن بعد 

اقسم بربي ضاق بي صدري واصبحت في حالة نفسية صعبة لان مشروعي سوف ياخذ وقت طويل وقد ضاق بي الوقت 

الرجاء مساعدتي في امري هذا الرجاء ايها السادة 

انا انتظر لليوم الثالث على التوالي اخواتي في الله 

من منكم يستطيع مساعدتي 

اختكم في الله / سمر محمود

WebAppFiller (1) (1) (1).rar

[samrati1]

الله المعين الكريم

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

ارجوكم كل الرجاء تعبت من كثرة البحث بدون اي نتيجة 

اكثر من شهر ولم اجد هذا الكود 

ارجوكم خبراء الاكسز 

ارجوكم خبراء الفيجول بيسك

ارجوكم اريد حالا لهذا الموضوع

[ابوخليل]

السلام عليكم

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

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

فأنت عملت السبب وعليك الانتظار والصبر

ويكفي للتذكير  تكتبين كلمة : للرفع  من اجل صعود الموضوع في بداية الصفحة

ولست بحاجة الى اعادة كتابة الموضوع من جديد

اعانك الله ووفقك

[samrati1]

 

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

ارجوكم كل الرجاء تعبت من كثرة البحث بدون اي نتيجة 

اكثر من شهر ولم اجد هذا الكود 

ارجوكم خبراء الاكسز 

ارجوكم خبراء الفيجول بيسك

ارجوكم اريد حالا لهذا الموضوع

[samrati1]

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

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

 

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

ارجوكم كل الرجاء تعبت من كثرة البحث بدون اي نتيجة 

اكثر من شهر ولم اجد هذا الكود 

ارجوكم خبراء الاكسز 

ارجوكم خبراء الفيجول بيسك

ارجوكم اريد حالا لهذا الموضوع

[samrati1]

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

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

ارجوك اخواتي في الله 

لم اجد رد حتى اليوم التالي على التوالي

اعلم ان اجابتكم تفضل منكم وضياع للوقتكم الثمين ولكني لا ملجاء لي الا الله ثم انتم 

ارجوكم احد يفدني في امري وان يدلني على ما اريد 

والله اني ابكي بكاء شديدا لما يحدث لي بسبب هذا الموضوع بحثت كثيرا ولم اجد اي اجابة على سؤالي ارجكوم احد يفدني في هذا الامر 

[صالح حمادي]

السلام عليكم

سؤال1 : هل الكلمات المراد البحث عنها تكون في عنوان الصفحة المسجل داخل الجدول (في هذه الحالة الأمر بسيط)

أم البحث سوف يكون في داخل الصفحة ذاتها (هذا الأمر صعب لكن سوف نحاول ما بوسعنا)

سؤال2 : هل هذه روابط صفحات أنترنت مباشرة أو صفحات محفوظة في جهاز الكمبيوتر

[صالح حمادي]

فرضا أنك تريدين البحث داخل الصفحة

1- طريقة البحث و الدوران لا تصلح لأنه يجب أن تحمل الصفحة في المتصفح أولا.

2-لقد قمت بإنشاء مثال بسيط يمكنك من البحث داخل المتصفح عن كلمة أو قيمة ما.

   لقد أضفت زرين و مربع نص.

تضغط على زر تصفح الموقع لظهور الموقع أمامك ثم.

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

و الصورة أدناه توضح ذلك:

WebAppFiller (1) (1).rar

[samrati1]

اشكرك اخي كثيرا ولكن تظهر الرسالة المرفقة ولا يتم البحث داخل الصفحة 

ارجوك اخي ساعدني في امري 

بالنسبة لسؤال حضرتك الاول عن الكلمات المراد البحث عنها فهي في الصفحة نفسها وليست في العنوانين المرفقة

واشكرك اخي كثيرا على مساعدتك لي 

 

 

 

[صالح حمادي]

أنتظري حتى تظهر صفحة الويب ثم إضغطي على زر بحث

[samrati1]

اخي في الله اشكرك كثيرا

اني بي فرحة لا توصف 

سوف استكمل الطريق اشكرك اشكرك بشدة جزاك الله خيرا كل الخير ودمت بخير وصحة 

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

يتبقى فقط ان تحمل الصفحة ثم يبدا البحث 

وهذا امر ان شاء الله بسيط وسوف ابحث عنه

 

تم تعديل يناير 19, 2019 بواسطه samrati1
تعديل نص

[صالح حمادي]

16 دقائق مضت, samrati1 said:

اني بي فرحة لا توصف 

سوف استكمل الطريق اشكرك اشكرك بشدة جزاك الله خيرا كل الخير ودمت بخير وصحة 

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

هل نجح معك الأمر

[samrati1]

نجح بنسبة 50% يتبقى فقط تحميل الصفحة في البداية ثم البحث  عن الكلمة المطلوبة 

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

[صالح حمادي]

4 دقائق مضت, samrati1 said:

نجح بنسبة 50% يتبقى فقط تحميل الصفحة في البداية ثم البحث  عن الكلمة المطلوبة

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

2- ماذا تريدين أن تفعل الآن أو ما هي الإضافات التي تريدينها

[samrati1]

نعم اخي نجح الامر ولا تظهر رسالة الخطا اشكرك كثيرا 

احتاج فقط تحميل الصفحة مع اللوب تكرار الامر 

اريد ان يتم البحث تلقائيا في جميع الراوبط وعندما يجد الكلمة المطلوبة يقف البحث

[صالح حمادي]

سوف أحاول

[samrati1]

اقسم بربي اخي اني احتاج لهذا الامر بشدة 

ويعلم ربي كم انا في ضيق شديد بسبب هذا 

واشكرك كثيرا على ما فعلته معي

[رمهان]

تحية للجميع

هذا تعديل بسيط على مشاركة الاستاذ صالح وكيفية البحث على جميع المواقع

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

شاركت فقط بكيفية الانتظار حتى تحميل الصفحة ثم البحث بنفس طريقة الاستاذ صالح 

Private Sub أمر86_Click()
For i = 1 To DCount("*", "AppFiller2")
    Me.WebBrowser4.Navigate Me.الموقع
    While Me.WebBrowser4.Busy Or Me.WebBrowser4.ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
            If Me.WebBrowser4.Document.all.Item(i).innerText Like "*" & Me.t & "*" Then
           MsgBox "لقد تم العثور على الكلمة المطلوبة داخل هذه الصفحة"
           Exit Sub
End If
    DoCmd.GoToRecord , , acNext
Next i

       MsgBox "لم يتم العثور على كلمة البحث في هذه الصفحة"
End Sub

بالتوفيق

وحبذا لو وضعت اختنا رابط الموضوع ل 

في ١٧‏/١‏/٢٠١٩ at 21:36, samrati1 said:

قمت بعمل البرنامج وقام احد اعضاء اسرة اوفسينا بمساعدتي

تحياتي

[samrati1]

شكرا اخي في الله 

تم تعديل يناير 19, 2019 بواسطه samrati1
تعديل نص

[رمهان]

اختي

لاحظت وجود علامة استفهام في WebBrowser4.Busy

احذفيها وليكن النص كما بالمشاركة

بالتوفيق

[samrati1]

قمت بحذفها ولكن الان يتم تحميل الصفحات دون البحث داخلها 

كلي اسف لكم اعلم اني اخذت الكثير من وقتكم 

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

اشكرك مرة اخرى اخي في الله 

تم تعديل يناير 19, 2019 بواسطه samrati1

[رمهان]

1 دقيقه مضت, samrati1 said:

قمت بحذفها ولكن الان يتم تحميل الصفحات دون البحث داخلها 

كلي اسف لكم اعلم اني اخذت الكثير من وقتكم 

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

اشكرك مرة اخرى اخي في الله 

مسالة البحث نعود للاستاذ صالح 

ولي عودة

 

[samrati1]

اخي في الله 

اشكرك كثيرا على مداخلتك الطيبة 

واعلم اني اخذت من وقت الثمين 

ولك كل تحياتي ادام الله عليك الصحة والعافية وجزاك الله خير الجزاء 

 

[samrati1]

الان الموضوع اكتمل تقريبا 

بفضل الله عز وجل ثم السادة الافاضل خبراء الاكسز لساني عاجز عن الشكر 

المطلوب الان بسيط جدا 

قمت بوضع الكود في حدث النموذج تامير ونجح الامر 100% اريد الان كود الحدث تامير بدلا من اضع الكود في حدث التامير الفاصل الزمني للنموذج وبهذا يكون الحل المثالي لموضوعي هذا 

واشكركم جزيلا مرة اخرى 

[رمهان]

23 دقائق مضت, samrati1 said:

الان الموضوع اكتمل تقريبا 

بفضل الله عز وجل ثم السادة الافاضل خبراء الاكسز لساني عاجز عن الشكر 

المطلوب الان بسيط جدا 

قمت بوضع الكود في حدث النموذج تامير ونجح الامر 100% اريد الان كود الحدث تامير بدلا من اضع الكود في حدث التامير الفاصل الزمني للنموذج وبهذا يكون الحل المثالي لموضوعي هذا 

واشكركم جزيلا مرة اخرى 

ممكن ارفاق تعديلك مع التايمر لتتضح الصورة اكثر ؟