'v3.8*************************************************** ' File: GmxAutologin.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, READYSTATE_COMPLETE 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 READYSTATE_COMPLETE = 4 Set MeinIE = CreateObject("InternetExplorer.Application") Do While MeinIE.Busy ' Warten bis der IE komplett geladen ist Loop MeinIE.Visible = 1 MeinIE.Navigate EMailSite Do While MeinIE.ReadyState <> 4 ' Warten bis der IE die Site komplett geladen hat Loop Set oDoc = MeinIE.Document oDoc.all.id.value = Kennung oDoc.all.p.value = Passwort oDoc.all.login.Submit Set oDoc = Nothing Set oArea = Nothing Set oRng = Nothing WScript.Quit ' Zum Verständnis muss man sich den Quellcode der Startseite ansehen: ' IE: ' VBS: oDoc.all.id.value = Kennung ' Funktion: Durch das VBS-Skript soll das Input-Feld für den Anmeldenamen ' (als 'Kennung' auf der HTML-Seite zu lesen) hat den (Variablen-) ' Namen 'id' (im HTML-Code) und soll den Inhalt (value; Wert) ' erhalten, der in der (Skript-) Variablen 'Kennung' steht. ' IE: ' VBS: oDoc.all.p.value ' Funktion: Durch das VBScript-Skript soll das Input-Feld für das Passwort ' (als 'Passwort' auf der HTML-Seite zu lesen) hat den (Variablen-) ' Namen 'p' und soll den Inhalt (value; Wert) erhalten, der in der ' (Skript-) Variablen 'Passwort' steht. ' VBS: oDoc.all.login.Submit ' Funktion: werden die nunmehr getätigten Eingabe an das HTML-Formular übergeben ' (entspricht einem bzw. einem Klick auf 'Login') und an den ' Server (bei gmx.net) gesendet.