标题：用VBS编写163邮箱快捷登陆
出处：大漠荒颜
时间：Wed, 03 Nov 2010 18:09:33 +0000
作者：北纬36度
地址：http://www.736202.com/read.php/491.htm

内容：
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


Generated by Bo-blog 2.1.1 Release