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