Thema Datum  Von Nutzer Rating
Antwort
Rot HTML Passwort
 17.07.2014 08:26:13 Alex
NotSolved
17.07.2014 08:35:00 Gast83355
NotSolved
17.07.2014 08:41:50 Alex
NotSolved
17.07.2014 09:02:01 Gast91235
NotSolved
17.07.2014 09:21:43 Alex
NotSolved
17.07.2014 09:54:30 Gast15361
NotSolved
17.07.2014 11:08:36 Alex
NotSolved
17.07.2014 12:01:11 Gast87626
NotSolved
17.07.2014 08:36:50 Alex
NotSolved
22.07.2014 17:34:27 Alex
NotSolved
22.07.2014 17:34:28 Alex
NotSolved

Ansicht des Beitrags:
Von:
Alex		 Datum:
17.07.2014 08:26:13		 Views:
1578		 Rating:
     
Antwort:
  Ja
Thema:
HTML Passwort

Hallo Zusammen,

vielleicht kann mir jemand weiterhelfen. Ich möchte aus dem Excel heraus verschiedene Internetseiten aufrufen und mich gleich anmelden/Login.

Bisher habe ich folgenden Code:

Sub Nowcast()
    Dim WebBrowser1 As Object
    Dim i As Integer, AktValue As String
    Dim a As Variant
    Dim b As Variant
   
    
    Set WebBrowser1 = CreateObject("InternetExplorer.Application")
    WebBrowser1.Visible = True
    WebBrowser1.navigate "https://www.enportal.de/"
    While WebBrowser1.ReadyState <> 4
        'Warten, bis Seite geladen ist
    Wend
      a = ActiveWorkbook.Worksheets("Tabelle1").Range("c3").Value
    WebBrowser1.Document.all("login").Value = a
    b = ActiveWorkbook.Worksheets("Tabelle1").Range("d3").Value
    WebBrowser1.Document.all("passwort").Value = b
'    WebBrowser1.Document.all("Login$ButtonLogin").Click
    
    WebBrowser1.navigate2 "https://webgate.ec.europa.eu/cas/login?loginRequestId=ECAS_LR-26723059-6gqgfWjVB72lzako68MioWFHeRmfQrf2zzZR04XI38OhzsEeEmYqAb1J9qjamcuCCccKzp7vTvp4xcRzoRnDHds0-Jj71zxYb8yrzphppHGpwQW-NJFSiWrwsItdL961UoPdOpzU1c6vZ5Lxzl9CUSszbACK", 2048
    While WebBrowser1.ReadyState <> 4
        'Warten, bis Seite geladen ist
    Wend
 
    a = ActiveWorkbook.Worksheets("Tabelle1").Range("c4").Value
    WebBrowser1.Document.all("username").Value = a
    b = ActiveWorkbook.Worksheets("Tabelle1").Range("d4").Value
    WebBrowser1.Document.all("passwort").Value = b
    WebBrowser1.Document.all("submit").Click

 

Mein Problem ist bei der 2. Internetseite, ich nicht weiss, welchen Usernamen und Passwort angeben muss. Kenne mich leider nicht so in HTML aus.

Hat jemand eine Idee? Ich habe schon login, username angegeben gehabt.

Danke und viele Grüße

Alex

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot HTML Passwort
 17.07.2014 08:26:13 Alex
NotSolved
17.07.2014 08:35:00 Gast83355
NotSolved
17.07.2014 08:41:50 Alex
NotSolved
17.07.2014 09:02:01 Gast91235
NotSolved
17.07.2014 09:21:43 Alex
NotSolved
17.07.2014 09:54:30 Gast15361
NotSolved
17.07.2014 11:08:36 Alex
NotSolved
17.07.2014 12:01:11 Gast87626
NotSolved
17.07.2014 08:36:50 Alex
NotSolved
22.07.2014 17:34:27 Alex
NotSolved
22.07.2014 17:34:28 Alex
NotSolved