VB remplit la zone de saisie sur IE et la soumet
Supposons que le code HTML de la page de connexion soit le suivant :
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<tête>
<title>Page de test</title>
</tête>
<corps>
<FORM nom=chh méthode = "POST" action = "login.asp">
<table cellpacing="0" cellpadding="2">
<tr>
<td align="center">Utilisateur :</td>
<td align="gauche">
<input name="LoginName" type="text" id="LoginName" size="12">
</td>
</tr>
<tr>
<td align="center">Mot de passe :</td>
<td align="gauche">
<input name="LoginPassword" type="password" id="LoginPassword" size="12">
</td>
</tr>
</table>
<type d'entrée = "submit" id = "clickme" value = "submit">
</FORM>
</corps>
</html>
Une page très simple, avec un formulaire de connexion, une zone de saisie du nom d'utilisateur LoginName, une zone de saisie du mot de passe LoginPassword et un bouton de soumission clickme
Ouvrez ensuite cette page avec IE et notez que le titre de la page est défini sur testPage.
Ensuite, ouvrez VB et référencez les contrôles Internet Microsoft dans le projet :
Sous-commande privé1_Click()
Dim IEList en tant que nouveau ShellWindows
Navigateur faible
Dim Doc
En cas d'erreur, reprendre ensuite
'Parcourir la fenêtre actuelle du navigateur
Pour chaque navigateur dans IEList
'Trouver la fenêtre IE requise
Si browser.Document.Title = "testPage" Alors
'Obtenir l'objet document du navigateur
Définir Doc = navigateur.Document
'Remplissez le champ du nom d'utilisateur
Doc.body.All("LoginName").Value = "eddie"
'Remplissez le champ du mot de passe
Doc.body.All("LoginPassword").Value = "123456"
'soumettre
Doc.body.All("clickme").Cliquez
Fin si
Suivant
Fin du sous-marin