http://dieseyer.de • all rights reserved • © 2011 v11.4

'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

http://dieseyer.de • all rights reserved • © 2011 v11.4