การบรรยายครั้งที่ 3: วิธีใช้เว็บเบราว์เซอร์ของ VB เพื่อค้นหาไฮเปอร์ลิงก์ในหน้าเว็บ
เราได้พูดคุยกันถึงวิธีการเปิดหน้าเว็บและวิธีการส่งหน้าเว็บไปแล้ว วันนี้เราจะมาดูวิธีการค้นหา URL และองค์ประกอบอื่นๆ ในหน้าเว็บกัน
1. เปิด VB ก่อนและสร้างโครงการใหม่
2. คลิกขวาที่แถบเครื่องมือแล้วเลือกส่วนประกอบ (ฉันใช้ VB เวอร์ชันภาษาจีน) หรือเลือกเมนูโครงการแล้วคลิกส่วนประกอบ
3. ค้นหา Microsoft Internet Controls เลือกที่ด้านหน้า จากนั้นยืนยัน คุณจะเห็นไอคอนคล้ายโลกเพิ่มเติมบนแถบเครื่องมือ
4. เพิ่ม WebBrowser1 ลงใน Form1 จากนั้นเพิ่ม command1 ลงใน Form1 และเพิ่ม list1 ลงใน form1 (list1 นี้ควรจะผ่อนปรนเล็กน้อย และเราจะใส่ URL ที่ผ่านการรับรองทั้งหมดที่พบที่นี่)
5. เพิ่มโค้ดต่อไปนี้ใน Form1: (ข้างต้นคือสิ่งที่เราได้กล่าวไว้ก่อนหน้านี้ ดังนั้นพวกเขาควรจะคุ้นเคยกับคุณ)
'----------เริ่ม-----------
คำสั่งย่อยส่วนตัว1_คลิก()
หรี่ vTag, vDoc
ดิม ออลเคาท์,i
รายการ1.ล้าง
ตั้ง vDoc = WebBrowser1.Document.All
Allcount = vDoc.length
สำหรับ i = 0 ถึง Allcount - 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 'ถ้ามี ให้เพิ่มไปที่ list1
สิ้นสุดถ้า
สิ้นสุดถ้า
ถัดไป
จบหมวดย่อย
แบบฟอร์มย่อยส่วนตัว_Load()
เว็บเบราว์เซอร์1.นำทาง "http://dhunter.51.net"
จบหมวดย่อย
'----------เสร็จ-----------
6. แน่นอนว่าเป็นการทดสอบ คลิกปุ่ม run เราจะเห็นว่าเว็บเบราว์เซอร์ของเราเปิด http://dhunter.51.net แล้ว หลังจากดาวน์โหลดหน้าเว็บเบื้องต้นเสร็จแล้ว ให้คลิกปุ่ม command1 และ เว็บเบราว์เซอร์ที่น่ารักของเราจะค้นหาเนื้อหาที่มี URL ของ http://dhunter.51.net ได้ถูกเพิ่มเข้าไปใน list1
ด้วยสิ่งเหล่านี้เราสามารถเริ่มสร้างเครื่องจำลองของเราเองได้ แน่นอนว่าคุณต้องใช้ทักษะและวิธีการเพิ่มเติมมากขึ้น