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

'*** 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:
' => <form id="formLogin" action="//service.gmx.net/de/cgi/login" method="post" name="login">
'
' <input name="AREA" value="1" type="hidden"/>
' <input name="EXT" value="redirect" type="hidden"/>
' <input name="EXT2" value="" type="hidden"/>
' <input name="uinguserid" value="" type="hidden"/>
' <fieldset id="fieldsetLoginUser">
' <label for="username"><span>E-Mail:</span></label>
' => <input name="id" id="username" class="field" type="text" value=""/>
' <label for="password"><span>Passwort:</span></label>
'
' => <input name="p" id="password" class="field" type="password" value=""/>
' <input id="inpLoginSubmit" class="submit more" type="submit" value="login"/>
' </fieldset>
' </form>

' IE2003: <input type="text" name="id" size="10" class="i10">
' IE2009: <input name="id" id="username" class="field" type="text" value=""/>
' 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: <input type="password" name="p" size="10" class="i10">
' IE2009: <input name="p" id="password" class="field" type="password" value=""/>
' 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: <input id="inpLoginSubmit" class="submit more" type="submit" value="login"/>
' 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 <input> mit id="inpLoginSubmit" betätigt werden (Submit), sondern
' das Formular <form id="formLogin">: '
' oDoc.all.formLogin.Submit

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