文件名：一键登录.vbs

Dim Program1
Program1="D:\xfbl\单位版和安全设置文件\xfflcx\xfflcx.exe"
Set WshShell=createobject("wscript.shell")
Set Exec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate"用户登陆"
WshShell.SendKeys"{TAB}"
WshShell.SendKeys"{TAB}"
WshShell.SendKeys"xf119"     '号码'
WScript.Sleep 1000
WshShell.SendKeys"{TAB}"
WshShell.SendKeys"xf119"        '密码'
WScript.Sleep 1000
WshShell.SendKeys"{ENTER}"