Conférence 2 : Comment utiliser le navigateur Web de VB pour soumettre une page Web contenant un nom d'utilisateur et un mot de passe
La dernière fois que nous avons su comment ouvrir une page Web, nous allons aujourd'hui voir comment faire le premier pas pour gagner de l'argent.
Ici, nous commençons à prendre des mesures :
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 future implémentation tournera autour d'elle.
4. Ajoutez un WebBrowser1 à Form1 et puis ajoutez une command1 à Form1.
5. Ajoutez le code suivant à Form1 : (Les éléments ci-dessus sont tous mentionnés dans notre conférence précédente, vous devriez les connaître)
'----------commencer-----------
Sous-commande privé1_Click()
Dim vDoc, vTag
Dim i comme entier
Définir vDoc = WebBrowser1.Document
Pour i = 0 To vDoc.All.length - 1 'Détecter toutes les balises
Si UCase(vDoc.All(i).tagName) = "INPUT" Then 'Trouver la balise d'entrée
Définir vTag = vDoc.All(i)
Si vTag.Type = "text" Ou vTag.Type = "password" Alors 'Voyez si c'est ce dont nous avons besoin
Sélectionnez Case vTag.Name 'Selon le nom du tag, cochez l'opération
Cas "EMAILADD"
vTag.Value = "[email protected]" 'Écrivez votre e-mail ici
Cas "PASSWD"
vTag.Value = "password" 'Écrivez votre mot de passe ici
Fin de la sélection
SinonSi vTag.Type = "submit" Et vTag.Name = "SUB" Et vTag.Value = "Subscribe" Alors
'Trouvez le bouton Soumettre
vTag.Select 'Vous pouvez aussi vous en passer
vTag.Click 'Cliquez pour soumettre, tout va bien
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. Attendez que le téléchargement de base de la page Web soit terminé, puis cliquez sur le bouton Command1. Notre charmant navigateur Web saisira ce que nous venons de saisir. Votre e-mail et votre mot de passe ont été soumis à la page Web. Avez-vous vu que l'abonnement a réussi ? C'est le signe de la victoire.
D'accord, écrivons ceci pour l'instant. La prochaine fois, nous verrons comment utiliser un navigateur Web pour trouver le lien hypertexte dans une page Web, qui correspond au lien permettant de gagner de l'argent.
Annexe (informations connexes) :
Comme vous pouvez le voir, cette fois nous utilisons la liste de diffusion d'abonnement sur http://dhunter.51.net. Voici le code source de cette page Web :
<form method="post" action="http://ml.xilu.com/cgi-bin/ml/client">
<p align="center"><font size="2">
<input type="hidden" name="USERID" value="dhunter">
E-mail:
<input type="text" name="EMAILADD" value="votre email">
<br>
mot de passe:
<input type="password" name="PASSWD" value="******">
<br>
</font><font size="2">
<input type="submit" value="Subscribe" name="SUB">
<input type="submit" value="Unsubscribe" name="UNSUB">
</font></p>
</form>
Les balises avec une entrée à l’intérieur acceptent toutes l’entrée. Notre tâche principale ici est de les trouver et d’agir dessus.