VB füllt das Eingabefeld im IE aus und übermittelt es
Gehen Sie davon aus, dass der HTML-Code der Anmeldeseite wie folgt lautet:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<Kopf>
<title>testPage</title>
</head>
<Körper>
<FORM name=chh method = "POST" action = "login.asp">
<table cellpacing="0" cellpadding="2">
<tr>
<td align="center">Benutzer:</td>
<td align="left">
<input name="LoginName" type="text" id="LoginName" size="12">
</td>
</tr>
<tr>
<td align="center">Passwort:</td>
<td align="left">
<input name="LoginPassword" type="password" id="LoginPassword" size="12">
</td>
</tr>
</table>
<input type = "submit" id = "clickme" value = "submit">
</FORM>
</body>
</html>
Eine sehr einfache Seite mit einem Anmeldeformular, einem Benutzernamen-Eingabefeld LoginName, einem Passwort-Eingabefeld LoginPassword und einer ClickMe-Schaltfläche zum Senden
Öffnen Sie dann diese Seite mit IE und beachten Sie, dass der Titel der Seite auf testPage gesetzt ist.
Öffnen Sie dann VB und verweisen Sie im Projekt auf Microsoft Internet Controls:
Privater Unterbefehl1_Click()
Dimmen Sie IEList als neues ShellWindows
Dunkler Browser
Dim Doc
Bei Fehler Weiter fortsetzen
'Durchqueren Sie das aktuelle Browserfenster
Für jeden Browser in IEList
'Finden Sie das erforderliche IE-Fenster
Wenn browser.Document.Title = "testPage" Dann
'Holen Sie sich das Browser-Dokumentobjekt
Setze Doc = browser.Document
„Füllen Sie das Feld „Benutzername“ aus
Doc.body.All("LoginName").Value = "eddie"
'Füllen Sie das Passwortfeld aus
Doc.body.All("LoginPassword").Value = "123456"
'einreichen
Doc.body.All("clickme").Click
Ende wenn
Nächste
Sub beenden