用vbs登录163邮箱

dim user,pw

user =inputbox("请输入你的邮箱用户名")

pw = inputbox("请输入邮箱密码")

Set ie = CreateObject("internetexplorer.application")

ie.navigate "http://mail.163.com/"

ie.Visible = true

While ie.busy Or ie.readystate <> 4

Wend

ie.document.login163.username.Focus

ie.document.login163.username.value=user

ie.document.login163.password.Focus

ie.document.login163.password.value=pw

ie.document.login163.seltype.options.selectedIndex=2

ie.document.login163.btn1.click

原文来自:http://jzjk.cn/bbs/viewthread.php?tid=12443