Conférence 3 : Comment utiliser le navigateur Web de VB pour trouver des hyperliens dans une page Web
Nous avons déjà expliqué comment ouvrir une page Web et comment soumettre une page Web auparavant. Aujourd'hui, nous allons voir comment trouver l'URL et d'autres éléments dans une page Web.
1. Ouvrez d’abord VB et créez un nouveau projet.
2. Cliquez avec le bouton droit sur la barre d'outils et sélectionnez Composants (j'utilise la version chinoise de VB) ou sélectionnez le menu Projet et cliquez sur Composants.
3. Recherchez Microsoft Internet Controls, sélectionnez-le devant, puis confirmez-le. Vous verrez une icône supplémentaire en forme de terre sur la barre d'outils. Notre implémentation tournera autour d'elle.
4. Ajoutez un WebBrowser1 à Form1, puis ajoutez une command1 à Form1 et ajoutez une list1 à form1 (cette liste1 devrait être un peu assouplie, et nous mettrons toutes les URL qualifiées trouvées ici)
5. Ajoutez le code suivant à Form1 : (Ce qui précède correspond à tout ce que nous avons dit précédemment, ils devraient donc vous être familiers)
'----------commencer-----------
Sous-commande privé1_Click()
Dim vTag, vDoc
Dim Allcount,je
Liste1.Effacer
Définir vDoc = WebBrowser1.Document.All
Allcount = vDoc.longueur
Pour i = 0 Pour Allcount - 1
Si UCase(vDoc.Item(i).TagName) = "A" Alors 'Rechercher l'URL
vTag = vDoc.Item(i).href
If InStr(vTag, "http://dhunter.51.net") Then 'Détecter si l'URL contient http://dhunter.51.net
List1.AddItem vDoc.Item(i).href 'S'il y en a, ajoutez-le à list1
Fin si
Fin si
Ensuite, je
Fin du sous-marin
Sous-formulaire privé_Load()
WebBrowser1.Naviguez "http://dhunter.51.net"
Fin du sous-marin
'----------Finition-----------
6. Bien sûr, il s'agit d'un test. Cliquez sur le bouton Exécuter. Nous pouvons voir que notre navigateur Web a ouvert http://dhunter.51.net. Une fois le téléchargement de base de la page Web terminé, cliquez sur le bouton Command1 et. notre charmant navigateur Web trouvera le contenu contenant Les URL de http://dhunter.51.net ont été ajoutées à la liste1.
Avec ceux-ci, nous pouvons commencer à créer notre propre simulateur. Bien entendu, vous devez mettre en œuvre davantage de compétences et de méthodes.