Hi,
Ich habe da ein kleines problem mit einem powerpoint makro.
Ich hoffe von euch hat jemand eine idee dazu.
Ich will eine webseite mit login laden.
Das script soll sich auf der webseite einloggen.
Mein ansatz:
--------------------------------------------------------------------------------------------------------
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "" Then
WebBrowser1.Navigate2 ("URL")
WebBrowser1.form1.username.Value = "BENUTZERNAME"
WebBrowser1.form1.password.Value = "PASSWORT"
WebBrowser1.Document.form1.Submit
End If
End Sub
--------------------------------------------------------------------------------------------------------
Hab auch das probiert:
-------------------------------------------------------------------------------------------------------
WebBrowser1.Navigate2 ("URL")
WebBrowser1.Document.All.Item("username").Value = "BENUTZERNAME"
WebBrowser1.Document.All.Item("password").Value = "PASSWORT"
WebBrowser1.Document.All.Item("Login").Click
-------------------------------------------------------------------------------------------------------
Es will aber nicht.
Leider kenn ich mich mit VB nit wirklich aus und finde auch keine referenz im internet.
Ich habe da ein kleines problem mit einem powerpoint makro.
Ich hoffe von euch hat jemand eine idee dazu.
Ich will eine webseite mit login laden.
Das script soll sich auf der webseite einloggen.
Mein ansatz:
--------------------------------------------------------------------------------------------------------
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "" Then
WebBrowser1.Navigate2 ("URL")
WebBrowser1.form1.username.Value = "BENUTZERNAME"
WebBrowser1.form1.password.Value = "PASSWORT"
WebBrowser1.Document.form1.Submit
End If
End Sub
--------------------------------------------------------------------------------------------------------
Hab auch das probiert:
-------------------------------------------------------------------------------------------------------
WebBrowser1.Navigate2 ("URL")
WebBrowser1.Document.All.Item("username").Value = "BENUTZERNAME"
WebBrowser1.Document.All.Item("password").Value = "PASSWORT"
WebBrowser1.Document.All.Item("Login").Click
-------------------------------------------------------------------------------------------------------
Es will aber nicht.
Leider kenn ich mich mit VB nit wirklich aus und finde auch keine referenz im internet.