VBS 自动登陆新浪信箱

VBS 自动登陆新浪信箱

Set ie = CreateObject("internetexplorer.application")
set sh=WScript.CreateObject("WScript.Shell")

ie.Visible = True
ie.navigate "http://mail.sina.com.cn/"

While ie.busy Or ie.readystate <> 4

Wend

If ie.document.getElementById("userName") Is Nothing Then

Else

ie.document.getElementById("userName").Value = ""
ie.document.getElementById("password").Value = "***"

WScript.Sleep 3000
sh.SendKeys "{ENTER}"

End If