Kuliah 3: Cara menggunakan webbrowser VB untuk menemukan hyperlink di halaman web
Kita telah membicarakan tentang cara membuka halaman web dan cara mengirimkan halaman web sebelumnya. Hari ini kita akan melihat cara menemukan URL dan elemen lain di halaman web.
1. Pertama buka VB dan buat proyek baru.
2. Klik kanan pada toolbar dan pilih Components (Saya menggunakan VB versi China) atau pilih menu Project dan klik Components
3. Temukan Microsoft Internet Controls, pilih di depan, lalu konfirmasikan. Anda akan melihat ikon mirip bumi tambahan di toolbar.
4. Tambahkan WebBrowser1 ke Form1, lalu tambahkan command1 ke Form1, dan tambahkan list1 ke form1 (list1 ini harus sedikit dilonggarkan, dan kami akan meletakkan semua URL berkualitas yang ditemukan di sini)
5. Tambahkan kode berikut ke Form1: (Di atas adalah semua yang telah kami katakan sebelumnya, jadi pasti sudah familiar bagi Anda)
'----------awal-----------
Sub Perintah Pribadi1_Klik()
Redupkan vTag, vDoc
Redupkan Allcount,i
Daftar1.Hapus
Setel vDoc = WebBrowser1.Document.All
Jumlah keseluruhan = vDoc.length
Untuk i = 0 Ke Semuahitungan - 1
Jika UCase(vDoc.Item(i).TagName) = "A" Lalu 'Temukan URL
vTag = vDoc.Item(i).href
Jika InStr(vTag, "http://dhunter.51.net") Lalu 'Deteksi apakah URL berisi http://dhunter.51.net
List1.AddItem vDoc.Item(i).href 'Jika ada, tambahkan ke list1
Akhiri Jika
Akhiri Jika
berikutnya saya
Akhiri Sub
Sub Formulir_Load() Pribadi
WebBrowser1.Navigasi "http://dhunter.51.net"
Akhiri Sub
'----------Menyelesaikan-----------
6. Tentu saja ini adalah ujian. Klik tombol run. Kita dapat melihat bahwa browser web kita telah membuka http://dhunter.51.net. Setelah pengunduhan dasar halaman web selesai, klik tombol command1, dan browser web kami yang cantik akan menemukan konten yang berisi URL http://dhunter.51.net telah ditambahkan ke list1.
Dengan ini kita bisa mulai membuat simulator kita sendiri. Tentu saja, lebih banyak keterampilan dan lebih banyak metode yang harus Anda terapkan.