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

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

注释：红色字体部分为解决方案