VBScript自动登录千脑云电脑

用户注册

投稿取消

文章分类:

还能输入300字

上传中....

热门文章更多>>

标签更多>>

word左右居中纵向分布 word左右居中对齐 word左右居中对齐怎么设置 word标题回车后为正文 word标题回车后直接分页 word标题回车后中间空了好大一段 word里面行距怎么调整无法缩小 word里面行距一直很大 word里面行距怎么设置在哪里 word试卷格式文档怎么打印 word试卷格式排版 word中隐藏文字打印 word中隐藏文字快捷键 word中隐藏文字在哪里

专题更多>>

最新文章更多>>

立地太岁阮小二

VBScript自动登录千脑云电脑

Option Explicit
Dim ieobj
Set ieobj=CreateObject("InternetExplorer.Application")
 ieobj.Visible= True
 ieobj.navigate "http://www.qiannao.com/"
Do Until ieobj.Readystate= 4
 WScript.Sleep 100
Loop
ieobj.Left =0
ieobj.Top =0
ieobj.width = ieobj.document.parentWindow.screen.availWidth
ieobj.height = ieobj.document.parentWindow.screen.availHeight
ieobj.Document.All("username").Value= "用户名"
ieobj.Document.All("password").Value= "密码"
ieobj.Document.All("username").Form.Submit()
Set ieobj=Nothing
WScript.Quit