大漠荒颜|一个青海油田子弟的奋斗史

一个青海油田子弟的奋斗史

用VBS编写163邮箱快捷登陆

| |
18:09 , 北纬36度
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
类别:MY IT TEXT | Tags: , | 0 条评论, 987 次阅读
网友评论(0):
发表评论:

昵称: 
电邮:
网址: