'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