Thema Datum  Von Nutzer Rating
Antwort
11.10.2012 15:16:07 Daniel
NotSolved
15.10.2012 12:40:19 Dekor
NotSolved
Rot Internerseite Login
 15.10.2012 12:43:47 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
15.10.2012 12:43:47		 Views:
960		 Rating:
     
Antwort:
  Ja
Thema:
Internerseite Login

Hallo Daniel,

klar, es geht auch anders...

 

    'Dim ret As Object
    'Dim IEApp As Object, IEDocument As Object

strLink     = "www.Deine_Seite.de"
strKunde    = "Dein_Name"
strBenutzer = "Dein_Benutzer"
strPasswort = "Dein_Passwort"

    Set IEApp = CreateObject("InternetExplorer.Application")
        IEApp.Visible = True
        IEApp.Navigate strLink

    Do: Loop Until IEApp.Busy = False
    Do: Loop Until IEApp.Busy = False

    Set IEDocument = IEApp.Document

    Do: Loop Until IEDocument.ReadyState = "complete"

    Set ret = IEDocument.getElementById("itemsTable").getElementsByName("KN")
    'Set ret = IEDocument.getElementsByTagName("KN")
    If Not ret Is Nothing Then 
       ret(0).value = strKunde
            msgbox "!"
    End If

    'With IEDocument
    '   .Item("KN").Value = StrKunde
    'End With
    
    Set ret = Nothing
    Set IEDocument = Nothing
    Set IEApp = Nothing 
    
    msgbox "Fertig!"

oder auch nicht, nur als Ansatz, da gibt es noch Tücken.

Gruß Detlev

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
11.10.2012 15:16:07 Daniel
NotSolved
15.10.2012 12:40:19 Dekor
NotSolved
Rot Internerseite Login
 15.10.2012 12:43:47 Dekor
NotSolved