المحاضرة 3: كيفية استخدام متصفح الويب الخاص بـ VB للعثور على الارتباطات التشعبية في صفحة الويب
لقد تحدثنا بالفعل عن كيفية فتح صفحة ويب وكيفية إرسال صفحة ويب من قبل. واليوم سنلقي نظرة على كيفية العثور على عنوان URL والعناصر الأخرى في صفحة الويب.
1. افتح VB أولاً وقم بإنشاء مشروع جديد.
2. انقر بزر الماوس الأيمن على شريط الأدوات وحدد المكونات (أنا أستخدم الإصدار الصيني من VB) أو حدد قائمة المشروع وانقر فوق المكونات
3. ابحث عن عناصر التحكم في الإنترنت لـ Microsoft، وحددها في المقدمة، ثم قم بتأكيدها. وسترى رمزًا إضافيًا يشبه الأرض على شريط الأدوات. وسيتمحور تنفيذنا بالكامل حوله.
4. أضف WebBrowser1 إلى Form1، ثم أضف أمرًا 1 إلى Form1، وأضف قائمة 1 إلى النموذج 1 (يجب تخفيف هذه القائمة 1 قليلاً، وسنضع جميع عناوين URL المؤهلة الموجودة هنا)
5. أضف الكود التالي إلى Form1: (ما ورد أعلاه هو كل ما قلناه من قبل، لذا يجب أن يكون مألوفًا لديك)
'----------يبدأ-----------
أمر فرعي خاص1_Click()
خافت vTag، vDoc
خافت Allcount، ط
القائمة 1. واضح
قم بتعيين vDoc = WebBrowser1.Document.All
Allcount = vDoc.length
لأني = 0 إلى الكل - 1
إذا كان UCase(vDoc.Item(i).TagName) = "A" ثم "ابحث عن عنوان URL".
vTag = vDoc.Item(i).href
إذا كان InStr(vTag, "http://dhunter.51.net") ثم "اكتشف ما إذا كان عنوان URL يحتوي على http://dhunter.51.net"
List1.AddItem vDoc.Item(i).href 'إذا كان موجودًا، أضفه إلى القائمة 1
نهاية إذا
نهاية إذا
التالي ط
نهاية الفرعية
نموذج فرعي خاص_تحميل()
WebBrowser1.Navigate "http://dhunter.51.net"
نهاية الفرعية
'----------ينهي-----------
6. بالطبع، هذا اختبار. انقر فوق زر التشغيل. يمكننا أن نرى أن متصفح الويب الخاص بنا قد فتح http://dhunter.51.net. بعد اكتمال التنزيل الأساسي لصفحة الويب، انقر فوق زر Command1، و سيجد متصفح الويب الجميل لدينا المحتوى الذي تمت إضافة عناوين URL الخاصة بـ http://dhunter.51.net إلى القائمة 1.
مع هذه يمكننا أن نبدأ في صنع جهاز محاكاة خاص بنا. بالطبع، يجب عليك تنفيذ المزيد من المهارات والمزيد من الأساليب.