vbs实现自动登陆网页
作者:cmscn 日期:2009-02-27
假设网页上的表单的名称(name)为formlogin,用户名文本框的名为username,密码框
的名称为password,使用下列代码即可登录:
dim ie
set ie=createobject("internetexplorer.application")
ie.visible=true
ie.navigate "http://www.123456.com"
while ie.busy or ie.readystate<>4
wend
ie.document.formlogin.username.value="帐号"
ie.document.formlogin.password.value="密码"
ie.document.formlogin.submit
自动登录51
dim ie
set ie=createobject("internetexplorer.application")
ie.visible=true
ie.navigate "http://www.51.com"
while ie.busy or ie.readystate<>4
wend
ie.document.form1.passport_51_user.value="mmpss1989"
ie.document.form1.passport_51_password.value="******"
ie.document.form1.submit
自动登录赛我网
dim ie
set ie=createobject("internetexplorer.application")
ie.visible=true
ie.navigate "http://www.cyworld.com.cn/main/"
while ie.busy or ie.readystate<>4
wend
ie.document.login.email.value="E_568640717@163.com"
ie.document.login.password.value="*******"
ie.document.login.submit
评论: 0 | 引用: 0 | 查看次数: 836
发表评论