' ===============================================
' File: Web-DE-AutoMail.vbs (WSH-Beispiel in VBScript)
' Autor: G. Born www.borncity.de
'
' Zweck: Stellt eine Verbindung zum Internet her und
' führt eine automatische Anmeldung/Abmeldung zum
' WEB.DE-Postfach her.
' (c) PC-Magazin Spezial 2002
' ===============================================
Option Explicit
'************************************************
' Achtung: Hier müssen der eigene Benutzername sowie
' das Kennwort eingetragen werden. Es besteht
' dadurch die Gefahr, dass diese ausgespäht
' werden.
'************************************************
Const UserName = "KKK" ' WEB.DE Benutzername
Const Pword = "Minni" ' Kennwort im Klartext
Const sTitle = "WEB.DE Auto-Anmeldung"
Dim oDoc, oIE, i
If MsgBox ("Benutzer '" & UserName & "' an WEB.DE-Postfach anmelden?", _
vbYesNo + vbQuestion, sTitle) = vbNo Then _
WScript.Quit ' Benutzerabbruch
Set oIE = WScript.CreateObject("InternetExplorer.Application") ' IE starten
oIE.Visible = True
oIE.Navigate "www.web.de" ' WEB.DE Startseite aufrufen
Do
Loop Until oIE.ReadyState = 4 ' warten, bis Seite geladen
' Jetzt Anmeldedaten in Postfach-Felder eintragen und anmelden
Set oDoc = oIE.Document ' Hole Objektreferenz auf HTML-Seite
oDoc.FM.rv_uname.Value = UserName ' Setze Benutzername
oDoc.FM.rv_passwd.Value = Pword ' Setze Kennwort
oDoc.FM.submit ' Formular abschicken
If MsgBox ("Benutzer '" & UserName & "' an WEB.DE-Postfach abmelden?", _
vbYesNo + vbQuestion, sTitle) = vbYes Then
oIE.Navigate _
"
http://freemailng0202.web.de/?si=yvhL.178CoH.2i4jTU.2J**&rv_logoff=true"
Do
Loop Until oIE.ReadyState = 4 ' warten, bis Seite geladen
MsgBox "Benutzer '" & UserName & "' wurde abgemeldet", _
vbOkOnly + vbInformation, sTitle
If MsgBox ("Internet Explorer schließen?", _
vbYesNo + vbQuestion, sTitle) = vbYes Then
oIE.Quit
End if
End If
' Ende