Listing?
Michael
Wie bekomme ich dieses Program zum laufen! Ich möchte mich automatisch in eine Internetseite einloggen!
Danke Im voraus!
Michael
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
Anzeige