<!--more-->

' 使用VBS脚本登录公司OA系统

' ==============================================================================

' 使用说明

' 1.用于解放双手,帮助自动登录公司OA系统。
' 2.只需要修改"user"以及"password"中的内容为自己的用户名和密码即可!其他保持默认。
' 3.非专业人士切勿修改其他位置以及标点符号,如有问题,可咨询作者。
' 4.迷路轮回 2016年04月25日 http://xyx115.com 498338913

' ==============================================================================
on error resume next
Dim username,password,IE ' 定义变量
username = "user" ' 输入用户名【修改双引号内字符为自己的用户名】
password = "password" ' 输入密码 【修改双引号内字符为自己的密码】
Set IE =CreateObject("InternetExplorer.Application") ' 调用IE程序
ie.FullScreen=0 ' 全屏化IE对象
IE.Visible = True ' 窗口可视化
IE.Navigate "http://oa.mxrcorp.cn" ' 打开梦想人OA网站
Do while IE.ReadyState<> 4 or IE.busy ' 用循环语句确保网页加载完毕才执行下面操作
wscript.sleep 1000 ' 设置延迟1000ms
loop
IE.document.getelementByid("txtUserNo").value=username ' 传入账户
IE.document.getelementByid("txtPassword").value=password ' 传入密码
Do while IE.ReadyState<> 4 or IE.busy ' 用循环语句确保网页加载完毕才执行下面操作
wscript.sleep 200 ' 设置延迟200ms
loop
IE.document.getelementByid("lbLogin").click ' 模拟点击登录键

<!--more-->

 

日常工作中经常需要登录各种网站、系统,繁琐而且还要记住所有的账号密码。为了简化操作做了此VBS脚本。另外使用脚本还有一个好处。可以在离开自己的电脑的时候,携带此脚本在别人电脑登录浏览器,又不被对方看见你输入密码等。省去了记住密码,输入密码等一系列问题(比如经常性的,使用别人电脑登录邮箱等,非常容易输入错误。要不就是密码被对方完全看在眼里,记在心里。)。
使用方法:复制下面的内容,不包含这两个标签。粘贴到记事本并修改其中的user、password、网址、按钮的ID,单击右键另存为,选择文件类型为所有。输入文件名自动登录.vbs。切记后缀名不能搞错。

Leave a Comment

电子邮件地址不会被公开。 必填项已用*标注