صالح حمادي

الحلقة الثالثة: التعامل مع كائنات صفحات HTML و إرسال و إستقبال البيانات سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من التعامل مع كائنات صفحات الويب و إرسال و إستقبال البيانات منها و إليها. هنالك ثلاث كائنات سوف نتعامل معها فيما يخص إرسال و إستقبال البيانات و هي مربع نص و القائمة المنسدلة و الجداول لأن لكل كائن أكواده الخاصة. لكن قبل البدئ يجب التطرق إلى كيفية إستخراج الاسم المميز للعناصر ID أو NAME من أجل التعامل معها من خلال نموذج الأكسس. هناك عناصر لها ID و أخرى لها NAME و هناك لها الخاصيتين معا و هناك عناصر ليس لها NAME أو ID خطوات استخراج ID أو NAME موجود في هذه الصور: 1- كود إرسال قيمة لمربع نص في صفحة ويب: في هذا المثال سوف نستخدم صفحة غوغل و نقوم بإرسال كلمة أوفيسنا إلى من مربع بحث غوغل Me.WebBrowser3.Document.all("q").Value = "أوفيسنا" أو Me.WebBrowser3.Document.all("q").innerText = "أوفيسنا" أو Me.WebBrowser3.Document.Forms(0).q.Value = "أوفيسنا" أو Me.WebBrowser3.Document.getElementById("q").innerText = "أوفيسنا" Document : هي كل محتويات الأداة الموجوة في صفحة الويب من أزرار و مربعات و نصوص ...... 2- كود إستقبال قيمة من مربع نص في صفحة ويب: سوف نقوم باستخراج القيمة المكتوبة في مربع نص البحث لموقع غوغل MsgBox Me.WebBrowser3.Document.all("q").Value أو MsgBox Me.WebBrowser3.Document.all("q").innerText أو MsgBox Me.WebBrowser3.Document.Forms(0).q.Value أو MsgBox Me.WebBrowser3.Document.getElementById("q").innerText 3- كود الضغط على زر أمر: سوف نقوم بإرسال نقرة على زر فتح شاشة الدخول لجمايل Me.WebBrowser3.Document.Forms(0).gb_70.Click أو Me.WebBrowser3.Document.all("gb_70").Click أو Me.WebBrowser3.Document.getElementById("gb_70").InvokeMember ("Click") webbroser.rar ماذا تقصد بتنزيل البيانات ؟ هل استخراج قيم أم تنزيل ملفات

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

الحلقة الثانية: أكواد الطباعة و الخصائص و... سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من طباعة صفحة الويب و حفظها و عرض خصائص الصفحة و غيرها... 1- كود طباعة الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT 2- كود معاينة طباعة الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT 3- كود عرض خصائص الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT 4- كود حفظ صفحة الويب: Me.WebBrowser3.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT 5- كود تنسيق الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT 6- كود عنوان رابط الصفحة: MsgBox Me.WebBrowser3.LocationName 7- كود رابط الصفحة: MsgBox Me.WebBrowser3.LocationURL 8- كود فتح الصفحة الإفتراضية للمتصفح: Me.WebBrowser3.GoHome 9- كود فتح صفحة البحث: Me.WebBrowser3.GoSearch 10- كود فتح صندوق التصفح: هذا الكود يقوم بفتح صندوق لإدخال رابط صفحة ويب جديدة Me.WebBrowser3.ExecWB OLECMDID_OPEN, OLECMDEXECOPT_DODEFAULT 11- كود تخطي رسائل الأخطاء التي تظهر من الأداة عند التصفح: Me.WebBrowser3.Silent = True وهذا المرفق بعد الإضافات الجديدة webbroser.rar

بسم الله الرحمان الرحيم و الصلاة و السلام على أشرف المرسلين أما بعد: سوف نقوم اليوم إن شاء الله بشرح أداة WebBrowser وأهم ما يتعلق بها من أوامر و أحداث و خصائص و إدخال و إخراج. و سوف يتم تقسيم هذا العمل إلى مجموعة حلقات نبدأ من الصفر حتى آخر نقطة نستطيع الوصول إليها إن شاء الله مع وضع مثال تطبيقي لكل حلقة. مقدمة: WebBrowser هي أداة تعمل عمل أي متصفح و هي مقترنة المتصفح الشهير Internet Explorer فهي تساعدك في تصفح المواقع من ناحية و التحكم في أكواد HTML وكل ما يرتبط بها من إدخال و استخراج بيانات من ناحية أخرى. ملاحظة: لتشغيل هذه الأداة بشكل جيد يجب تحديث المتصفح الشهير Internet Explorer إلى الإصدار 10 أو 11. مع العلم أن ونداوز 10 به الإصدار 11 الحلقة الأولى: أكواد التصفح سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من التصفح و التنقل داخل الأداة. 1- كود فتح صفحة موقع: WebBrowser3 هو اسم الأداة داخل النموذج Me.WebBrowser3.Navigate ("رابط الصفحة كامل") 2- كود فتح صفحة فارغة: Me.WebBrowser3.Navigate ("about:blank") 3- كود الرجوع للصفحة السابقة: Me.WebBrowser3.GoBack 4- كود الإنتقال للصفحة التالية: Me.WebBrowser3.GoForward 5- كود إعادة تحميل الصفحة: Me.WebBrowser3.Refresh 6- كود إيقاف تحميل الصفحة: Me.WebBrowser3.Stop 7- كود إستخراج رابط الصفحة الحالية: MsgBox Me.WebBrowser3.Document.url و هذا مثال لما تم ذكره في هذه الحلقة webbroser.rar

لم أفهم ماذا تقصد بكلمة صحن و هل تقصد بـ30 زبون متصل يعني 30 جهاز مرتبط بالشبكة أم ماذا؟

السلام عليكم قم بإضافة هذا الكود للاستعلام ليقوم باختبار الشهر و السنة معا. Expr2: Format([Date de Contrat],"yyyy") Format(Date(),"yyyy")

السلام عليكم أستاذ جعفر موضوع في قمة الروعة ملاحظة صغيرة في الكود الموضوع بالأعلى : هناك بعض المتغيرات غير مصرح بها مع أنها موجودة في المرفق لكن من يريد تطبيق الكود بشكل مباشر من المشاركة سوف يظهر له خطأ. Public Const msoBarPopup = 5 Public Const msoControlButton = 1 Public Const msoControlEdit = 2 Public Const msoControlComboBox = 4 Public Const msoButtonUp = 0 Public Const msoButtonDown = -1 أخيرا لي الشرف العظيم أن أقوم بتثبيت هذا الموضوع

يا ريت توضح أكثر المطلوب حتى برسومات توضيحية

اللهم إنا نسألك خيرها و نعوذ بك من شرها

تفضل لقد قمت بالتعديل على الملف ليقوم بضغط الواجهة مباشرة دون ظهور خيارات أخرى mas_backup2.mdb

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

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

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

السلام عليكم تفضل أخي الكريم التعديل على مرفقك الارتباط بالقاعدة.rar

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

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

بارك الله فيك

السلام عليكم هناك العديد من الطرق و هناك العديد من الأمثلة في المنتدى لهذا الأمر و من بينها هذا الكود: Dim new_Data As String Dim old_Data As String old_Data = CurrentProject.Path & "\DB.accdb" 'اسم و مسار قاعدة البيانات المراد ضغطها new_Data = CurrentProject.Path & "\DB_compact.accdb" Set acc2007 = CreateObject("DAO.DBEngine.36") acc2007.CompactDatabase old_Data, new_Data, Nothing, Nothing Set acc2007 = Nothing Kill old_Data Name new_Data As old_Data MsgBox "لقد تم ضغط القاعدة بنجاح"

السلام عليكم أضف هذا الكود للكود الموجود تحت زر الأمر إضافة: Beep MsgBox ("تم حفظ البيانات بنجاح"), , "مبروك"

بارك الله فيك و لك و جزاك الله عنا كل خير. أنا لا أريد التوسع في web browser object لأنني أستخدمه منذ مدة و أتحكم فيه جيدا بالإضافة إلى أن هذا السؤال متعلق بالموضوع و ليس خارجه و سوف يكون حل أمثل و أفضل من الأول لو نستطيع الحصول على رابط النافذة المنبثقة يعني حاليا هذا ما عجزت عن فعله فقط في الأداة. و ربما سوف أفتح موضوع جديد و شامل أشرح فيه التعامل مع web browser object و خاصة النماذج و إرسال و إستقبال البيانات إذا سمح لي الوقت بذلك. على العموم شكرا جزيلا مجددا أستاذ و تقبل إعتذاري الشديد. و سوف أجري بعض التجارب و إذا توصلت لشيء سوف أخبرك به.

أولا: أعتذر منك أخي إبراهيم لأنني أزعجتك بهذه الأسئلة أنا أسأل عن الروابط و ليس النماذج لا يا أستاذ ليس منصب على نموذج تسجيل الدخول أنا أستطيع التعامل جيدا مع النماذج من إرسال و إستقبال البيانات و كذلك الأزرار و مربعات النص و القوائم المنسدلة.. الموقع الذي أريد العمل عليه هو موقع محلي أو داخلي لا يشتغل من مكان آخر لذلك وضعت موقع أوفيسنا في المثال الأول نعم و أنا أستعمل IE 11 الخلاصة: لاستخراج الروابط الموجودة في الصفحة نغير في الكود الذي تقدمت به كالتالي: في مكان هذا السطر: WD.links(I).innerText نضع هذا السطر: WD.links(I).href لأن href هي المسؤولة على الروابط 2- الحدث Document_Complete يعمل بشكل ممتاز عندما طبقته على الموقع الخاص بي أو على موقع غوغل و العديد من المواقع الأخرى. 3- عدلت على هذا الكود ليقوم بالمرور على جميع العناصر و يستخرج جميع الروابط الموجودة. لأنني وجدته ينفذ المطلوب مع جميع الصفحات بشكل جيد و أصبح شكله كالتالي: Private Sub WebBrowser4_DocumentComplete(ByVal pDisp As Object, URL As Variant) On Error Resume Next Dim WD As Object Set WD = Me.WebBrowser4.Document For i = 0 To WD.all.length WD.all.Item(i).target = "_self" Next i End Sub يعني أنا وصلت للمطلوب أو السؤال الذي وضعته في بداية الموضوع و الحمد لله و بارك الله فيك و في الأستاذ رمهان و جميع الإخوة المشاركين. و أردت أن أطبق فكرة الأستاذ رمهان كحل آخر و إثراء للموضوع و هي الحصول على رابط النافذة المنبثقة و نضعه مصدر لأداة ويب براوزر فقمت بالبحث و حصلت على التالي: 4- هذا الكود يقوم بعرض رابط الصفحة التي سوف تفتح في نفس الأداة باستخدام حدث BeforeNavigate2 Private Sub WebBrowser0_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) MsgBox URL End Sub بقي الآن هل نستطيع الحصول على الرابط الذي سوف يفتح في النافذة المنبثقة. و هذا مثال لما شرحته: webbrowser.accdb

الخاصية innertext تطبع النصوص الموجودة في جميع عناصر الصفحة أما هذا الحدث فلم يعمل معي

هل يمكن استخراج نص الرابط

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

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