'v3.9************************************************** ' File: GmxAutologin2.vbs ' Autor: Raoul A. ' madraoul1@yahoo.de ' Lädt im IE eine Site und übernimmt das Login. ' Neue Funktion: Speichert Username und Kennwort '****************************************************** Option Explicit Dim Kennung, Passwort, EMailSite, Text ,Text2, Text3 Dim MeinIE, READYSTATE_COMPLETE Dim oDoc, oArea, oRng Dim FSO,f,TextStream, output, Dialog, raoul Dim f1, create, output2, dialog2 Text = "Bitte Passwort eingaben! " Text2 = "Bitte username eingeben!" Text3 = "Bitte Email-Internetadresse eingeben!" EMailSite = "www.gmx.de" Kennung = "" Passwort = "" dialog = "" Set FSO = CreateObject("Scripting.FileSystemObject") f1 = ("C:\daten.txt") if not FSO.FileExists(f1) then set create = FSO.CreateTextFile("C:\daten.txt") dialog = InputBox (Text2, WScript.ScriptName) If dialog = "" then WScript.echo "es wurde nichts eingegeben" WScript.quit End if create.writeline(dialog) dialog2 = InputBox (Text, WScript.ScriptName) If dialog2 = "" then WScript.echo "es wurde nichts eingegeben" WScript.quit End If create.writeLine(dialog2) create.Close END if Set TextStream = FSO.OpenTextFile("C:\daten.txt") IF Kennung = "" then output = TextStream.ReadLine() Kennung = output WScript.Echo "Username:"& Kennung End if Set raoul = FSO.OpenTextFile("C:\daten.txt") IF Passwort = "" then output2 = raoul.SkipLine() & raoul.ReadLine() Passwort = output2 WScript.Echo "Passwort:"& Passwort 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