|
用QTP录制了公司日志登录过程
___________________________________________________________________________
Browser("日志系统 - DWS1.0").Dialog("Microsoft 仿冒网站筛选").Close
Browser("日志系统 - DWS1.0").Page("日志系统 - DWS1.0").Check CheckPoint("日志系统 - DWS1.0")
Browser("日志系统 - DWS1.0").Page("日志系统 - DWS1.0").WebEdit("loginName").Set "huihuiw"
Browser("日志系统 - DWS1.0").Page("日志系统 - DWS1.0").WebEdit("loginName").Check CheckPoint("loginName")
Browser("日志系统 - DWS1.0").Page("日志系统 - DWS1.0").WebEdit("Password").SetSecure "4c7f6a9a553e42b20fc7d4eba651d69650ddfe2aa811"
Browser("日志系统 - DWS1.0").Page("日志系统 - DWS1.0").WebButton("登录").Click
wait 5
Browser("日志系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("ScreenFrame").Link("现在开始写日志!").Click
wait 2
Browser("日志系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("ScreenFrame_4").WebList("projectlist_1").Select "Snow"
wait 1
Browser("日志系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("ScreenFrame_2").WebList("level0_1").Select "培训学习"
wait 1
Browser("日志系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("ScreenFrame_2").WebEdit("daily_content").Set "1.QTP的学习"
wait 1
Browser("日志系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("ScreenFrame_2").WebEdit("daily_effort").Set "5.0"
wait 1
Browser("日志系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("ScreenFrame_2").WebButton("提交").Click
wait 1
Browser("日志系统 - DWS1.0").Dialog("Windows Internet Explorer").WinButton("确定").Click
wait 1
Browser("日志系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Sync
wait 2
Browser("日志周报管理系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("carnoc").WebElement("bullet").Click
wait 2
Browser("日志周报管理系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("carnoc").WebElement("bullet").Click
wait 2
Browser("日志周报管理系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("carnoc").Link("编写日志").Click
wait 2
Browser("日志周报管理系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("ScreenFrame").WebEdit("daily_effort").Set "0.0"
wait 2
Browser("日志周报管理系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("ScreenFrame").WebButton("提交").Click
wait 5
Browser("日志周报管理系统 - DWS1.0").Dialog("Windows Internet Explorer").WinButton("确定").Click
wait 2
Browser("日志周报管理系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Sync
wait 2
Browser("日志周报管理系统 - DWS1.0").Close
______________________________________________________________________
在关键字视图下编辑,将“snow”改成参数P_item
既将
Browser("日志系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("ScreenFrame_4").WebList("projectlist_1").Select "Snow"
改成
Browser("日志系统 - DWS1.0").Page("日志周报管理系统 - DWS1.0").Frame("ScreenFrame_4").WebList("projectlist_1").Select DataTable("p_Item", dtGlobalSheet)
并且在data table P_item 列enter 3行数值,之后保存运行,程序会自动运行三次
之后又在关键字视图里面把参数改回固定值snow,把相应的代码也改回来了,程序还是执行三遍~~
再不重新录制的前提下怎么让程序执行一次呢? |
|