بسم الله الرحمن الرحيم شرحنا بالدرس السابق طريقة فتح موقع نحن نحدده باستخدام دالةShellExcute .ودرسنا اليوم عن طريقة استخدام اداة WebBrowser ....... كل ماعليك هو بدء مشروع جديد وادراج 6 ازرار وواحد Edit.Texe ... ثم ادراج اداة WebBrowser وطريقة ادراجها كمابالصورة التالية :: الذهاب الي قائمة Internet والبحث عن الاداة كما هي موضحه بالصورة السابقة وبعد ان ندرجها سيصبح شكل المشروع كالتالي من ازرار وتكست والاداة .. وسنضع الاسم الافتراضي في Name فقط نغير الاسماء من Caption وبعدها يبقى لنا فقط كتابة الاكواد في كل زر .. ولن نحتاج الي اضافة اي اضافة في قسم Uses كما بالدرس السابق فاسماء الوحدات تكون مضافة تلقائيا .... يبقى لدينا كتابة الشيفرة الخاصة بالبرنامج وكل ما نحتاجه من اكواد فقط في الازرار كما الصورة التالية : ويبقى لنا زر موقع العاصفة وشيفرته تختلف فهنا وضعنا اسم الموقع مباشرة باستخدام دالة Navigate كما الصورة التالية : وهنا وصلنا الي نهاية الشيفرة ونجرب البرنامج عن طريق Run او F9 .الصورة التالية توضح نجاح البرنامج الحمد لله نجحنا .. نكتب اي موقع في التكست ثم فتح الموقع ونرى النتيجة ... هذا برنامج مبسط بامكانك تطويره بلغة الدلفي ليصبح كما Internet Explorar اتمنى لكم تطبيقا ممتعا
سلمت يداك على الموضوع تحياتي عبداللهــ
مشكوووووور ويسلمو اياديك على المجهود
مشكووووووووووووووووووور
مشكوووووور والله يعطيك الف عافيه
جزاك الله الف خير على دروسك القيمه فعلا
I love Yemen
يعطيك آلف عافيه يالغالي على هالشرح المفييييد تقبل مروري المتوآضع ،
للتوآصل [email protected] ،
شرح الحصول على في بي اس مجانا http://www.heredouro.ml/
مشكور يالغالي
شكراااا لك موضوع مميز
Hackers Avenger Dvae you now for good Special hackers SAID is now ready for revenge against the evil
قوانين المنتدى