半自动解决QTP录制验证码问题

2019-04-15 17:53发布

Browser("登录").Page("登录").WebEdit("LoginName").Set "admin" Browser("登录").Page("登录").WebEdit("Password").SetSecure "4ef96d3675e61a40b02a4f90de1da4b794a3" Dim Input Input = InputBox("Enter your pic no:") Browser("登录").Page("登录").WebEdit("Code").Set Input Browser("登录").Page("登录").WebButton("登录").Click Browser("登录").Page("首页").Frame("leftFrame").Link("基础信息").Click Browser("登录").Page("首页").Frame("mainFrame").Link("密码修改").Click Browser("登录").Page("首页").Frame("leftFrame").Link("非法列表").Click Browser("登录").Page("首页").Frame("leftFrame").Link("关键字列表").Click Browser("登录").Page("首页").Frame("leftFrame").Link("关键字添加").Click Browser("登录").Page("首页").Frame("mainFrame_2").Link("返回列表").Click Browser("登录").Page("首页").Frame("topFrame").Link("注销").Click Browser("登录").Dialog("来自网页的消息").WinButton("确定").Click 注释:红 {MOD}字体部分为解决方案