每次登陆OA系统都要输入用户名和密码是一件很麻烦的是,下面的脚本可以让你免去这样的麻烦。
用法:拷贝下面的代码到一个文本文件中,将下面的用户名替换为你登陆的用户名,密码替换为你登陆用的密码,并保存为一个后缀名为.vbs的文件,建立这个文件的快捷方式到桌面,以后你只需要双击这个快捷方式,就会自动完成登陆OA的操作了。
注意:1. 这个文件会暴露你的用户名和密码,如果是个人用户请谨慎使用!
用法:拷贝下面的代码到一个文本文件中,将下面的用户名替换为你登陆的用户名,密码替换为你登陆用的密码,并保存为一个后缀名为.vbs的文件,建立这个文件的快捷方式到桌面,以后你只需要双击这个快捷方式,就会自动完成登陆OA的操作了。
注意:1. 这个文件会暴露你的用户名和密码,如果是个人用户请谨慎使用!
2. 下面的UID和PWD要换成你的网页中的INPUT名称
' VBScript source code
'本程序用来自动打开邯钢的OA网
set ie = createobject("internetexplorer.application")
Set Wshell=WScript.CreateObject("WScript.Shell")
ie.visible = 1
ie.navigate http://10.0.0.92 '你的OA地址
Do while ie.busy
loop
Wscript.sleep 1000
Wshell.AppActivate ie
ie.document.getElementById("uid").value = "用户名" '这里是你登陆的用户名
ie.document.getElementById("pwd").value = "密码" '这里是你登陆的密码
ie.document.getElementById("pwd").focus()
WShell.SendKeys "{ENTER}"
set ie = nothing
WSCRIPT.QUIT(0)
' VBScript source code
'本程序用来自动打开邯钢的OA网
set ie = createobject("internetexplorer.application")
Set Wshell=WScript.CreateObject("WScript.Shell")
ie.visible = 1
ie.navigate http://10.0.0.92 '你的OA地址
Do while ie.busy
loop
Wscript.sleep 1000
Wshell.AppActivate ie
ie.document.getElementById("uid").value = "用户名" '这里是你登陆的用户名
ie.document.getElementById("pwd").value = "密码" '这里是你登陆的密码
ie.document.getElementById("pwd").focus()
WShell.SendKeys "{ENTER}"
set ie = nothing
WSCRIPT.QUIT(0)