'*** v9.B *** www.dieseyer.de ******************************* ' File: GmxAutologin2009.vbs ' Autor: ??? - PC-Welt 09/2003 ' dieseyer.de ' ' Lädt im IE eine Site und übernimmt das Login. ' '*********************************************************** Option Explicit Dim Kennung, Passwort, EMailSite, Text Dim MeinIE Dim oDoc, oArea, oRng EMailSite = "http://www.gmx.net" Kennung = "username@gmx.de" Passwort = "Geheim!" Passwort = "" If Passwort = "" then Text = "Mit welchem Passwort soll der Account " & vbCRLF Text = Text & vbTab & UCase(Kennung) & vbCRLF Text = Text & "bei " & EMailSite & " geöffnet werden?" If Passwort = "" then Passwort = InputBox (Text, WScript.ScriptName) If Passwort = "" then MsgBox " . . . denn eben nicht!", 64, WScript.ScriptName If Passwort = "" then WScript.Quit End If Set MeinIE = CreateObject("InternetExplorer.Application") Do While MeinIE.Busy ' Warten bis der IE komplett geladen ist WScript.Sleep 33 Loop MeinIE.Visible = 1 MeinIE.Navigate EMailSite Const READYSTATE_COMPLETE = 4 Do While MeinIE.ReadyState <> 4 ' Warten bis der IE die Site komplett geladen hat WScript.Sleep 33 Loop Set oDoc = MeinIE.Document ' 2009 oDoc.all.username.value = Kennung oDoc.all.password.value = Passwort oDoc.all.inpLoginSubmit.value = "login" oDoc.all.formLogin.Submit Set oDoc = Nothing Set oArea = Nothing Set oRng = Nothing WScript.Quit ' 2009 - zum Verständnis muss man sich den Quellcode der Startseite ansehen: ' =>
' ' ' ' ' '
' ' => ' ' ' => ' '
'
' IE2003: ' IE2009: ' VBS2003: oDoc.all.id.value = Kennung ' VBS2009: oDoc.all.username.value = Kennung ' Funktion: Das VBS trägt den Anmeldenamen ein: Das auszufüllende Feld (type="text") ' wird durch die ID (id="username") identifiziert, in das der Inhalt der ' (Skript-) Variable 'Kennung' eingetragen wird - value="" erhält einen Wert ' oDoc.all.username.value = Kennung ' IE2003: ' IE2009: ' VBS2003: oDoc.all.p.value ' VBS2009: oDoc.all.password.value ' Funktion: Das VBS trägt das Passwort ein: Das auszufüllende Feld (type="password") ' wird durch die ID (id="password") identifiziert, in das der Inhalt der ' (Skript-) Variable 'Passwort' eingetragen wird - value="" erhält einen Wert ' oDoc.all.username.value = Passwort ' IE2009: ' VBS2003: oDoc.all.login.Submit ' VBS2009: oDoc.all.formLogin.Submit ' Funktion: Das VBS 'drückt' den [login]-Button: Anders als zunächst anzunehmen, muss ' NICHT mit id="inpLoginSubmit" betätigt werden (Submit), sondern ' das Formular
: ' ' oDoc.all.formLogin.Submit