Hallo zusammen,
ich habe mehere Code ausprobiert und bekomme immer wieder das gleiche Fehlermeldung:
Laufzeitfehler: Automatisierungsfehler. Das aufgerufene Objekt wurde von den Clients getrennt.
Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
Sub Anmelden2()
Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
'On Error Resume Next
'On Error GoTo Err_Clear
MyURL = "https://internet.de"
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.navigate MyURL
MyBrowser.Visible = True
Do
Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.document
HTMLDoc.all.Email.Value = "username"
HTMLDoc.all.password.Value = "psw"
For Each MyHTML_Element In HTMLDoc.getElementsByName("input")
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
Next
'Err_Clear:
'If Err <> 0 Then
'Err.Clear
'Resume Next
'End If
End Sub
<fieldset>
<legend>Bitte melden Sie sich mit Ihrer konzerninternen E-Mail-Adresse an:</legend>
<section class="fieldset">
<label for="username"> E-Mail-Adresse:</label>
<input type="text" name="email" id="username" value="" data-defaultvalue="beispiel@telekom.de" max="128" tabindex="1" title="Eingabe: E-Mail-Adresse" class="text defaultvalue">
</section>
<section class="fieldset">
<label for="password">Passwort:</label>
<input type="password" name="password" id="password" value="" max="32" tabindex="3" title="Eingabe: Passwort" class="text">
</section>
<section class="button">
<input type="submit" name="login" id="submit" value="Anmelden" tabindex="4" title="Eingabe: Anmelden" class="button primary">
</section>
</fieldset>
|