-- 登陆的协程流程
local function doLogin()
-- 发送消息:登陆页面加载开始
host_App_PostMessage(in_MsgHandle, status_LoginPageStart, 0, 0);
-- 等待加载登陆页面
host_Web_Navigate(in_WebObject1, '
https://mybank.icbc.com.cn/icbc/newperbank/main/login.jsp');
wait(in_WebObject1, event_OnDocumentCompleteEx, true, nil, '等待加载登陆页面...', '登陆页面加载完成!');
local docX = host_Web_GetBrowserDocument2(in_WebObject1);
-- 隐藏不必要的元素 和 自动填写登陆信息
login_FillAuthInformation(docX);
-- 选择个性化登陆
login_SelectLoginMode(docX);
-- 发送消息:登陆页面加载成功
host_App_PostMessage(in_MsgHandle, status_LoginPageSuccess, 0, 0);
-- 等待用户登陆
wait(in_WebObject1, event_OnBeforeNavigate2, false, nil, '等待登陆...', '开始登陆...');
-- 开始登陆后记录用户的登陆帐号
login_GetAuthUsername(docX);
-- 发送消息:登陆开始
host_App_PostMessage(in_MsgHandle, status_LoginStart, 0, 0);
-- 等待登陆
wait(in_WebObject1, event_OnDocumentCompleteEx, true, checker_Login, '正在登陆...', '登陆成功!');
-- 发送消息:登陆成功
host_App_PostMessage(in_MsgHandle, status_LoginSuccess, 0, 0);
end;
-- 登出的协程流程
local function doLogout()
local docX = host_Web_GetBrowserDocument2(in_WebObject1);
local topFrame = host_Web_GetFrameRecursion(docX, 'name=topFrame', 0);
if topFrame then
-- 让网页不提示“感谢您使用工商网银”
host_Web_RunJavaScriptFromFrame(topFrame, 'isClose = false;');
end
host_App_PostMessage(in_MsgHandle, status_LogoutComplete, 0, 0);
end;