Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Automatische Passworteingabe in Internet-Formular

Gruppe

Internet

Problem

Über den IExplorer-Dialog soll eine automatische Passworteingabe erfolgen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub CallSearch()
   frmSuche.Show
End Sub
ClassModule: frmSuche

Private Sub cmdBack_Click()
   WebBrowser1.Navigate "http://www.herber.de/form_test1.html"
   cmdBack.Enabled = False
   cmdOK.Enabled = True
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   WebBrowser1.Document.all("username").innertext = "Hans W. Herber"
   WebBrowser1.Document.all("password").innertext = "Herbers Passwort"
   WebBrowser1.Document.Forms(0).Item("Submit").Click
   cmdOK.Enabled = False
End Sub

Private Sub UserForm_Initialize()
   WebBrowser1.Navigate "http://www.herber.de/form_test1.html"
End Sub