晴天小站 - 杨永全的博客

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