Thema: Automatische Passworteingabe in Internet-Formular

StandardModule: Modul1

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

Private Sub cmdBack_Click()
   WebBrowser1.Navigate "https://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 "https://www.herber.de/form_test1.html"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und Internet