http://dieseyer.de • all rights reserved • © 2011 v11.4
'*** v10.1 *** www.dieseyer.de ******************************
' File: GmxAutologin2010.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 ' 2010
oDoc.all.inpLoginFreemailUsername.value = Kennung
oDoc.all.inpLoginFreemailPassword.value = Passwort
oDoc.all.formLoginFreemail.Submit
Set oDoc = Nothing
Set oArea = Nothing
Set oRng = Nothing
WScript.Quit
' 2010 - zum Verständnis muss man sich den Quellcode der Startseite ansehen:
' => <form id="formLoginFreemail" class="login" action="https://service.gmx.net/de/cgi/login" method="post">
' <fieldset>
' <legend>Login</legend>
' <input type="hidden" name="AREA" value="1"/>
' <input type="hidden" name="EXT" value="redirect"/>
' <input type="hidden" name="EXT2" value=""/>
' <input type="hidden" name="uinguserid" value="__uuid__"/>
' <input type="hidden" name="dlevel" value="c"/>
' <input type="text" class="field username" id="inpLoginFreemailUsername" name="id" value=""/>
' => <input type="password" class="field password" id="inpLoginFreemailPassword" name="p" value=""/>
' => <input type="submit" class="submit" value="Login"/>
' <ul>
' <li class="first"><a href="http://service.gmx.net/de/cgi/g.fcgi/login/lose/password">Passwort vergessen?</a></li>
' <li class="last"><a href="http://www.gmx.net/nossl/">Ohne SSL</a></li>
' </ul>
' </fieldset>
' </form>
' 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