|
4#
楼主 |
发表于 2009-9-24 12:18:57
|
只看该作者
Dim names,words,comment ' 定义变量
With Browser("欢迎使用XXXXXXX").Page欢迎使用XXXXXXX")
For Iterator = 1 To 5 Step 1
names = "测试知识库数据"&CStr(Iterator) ' 添加的名称
words= "测试知识库关键字"&CStr(Iterator) ' 添加的关键字
comment="知识库内容测试中!知识库内容测试中!知识库内容测试中!知识库内容测试中!知识库内容测试中!知识库内容测试中!知识库内容测试中!知识库内容测试中!" ' 写入的知识库信息
.Link("新增").Click
.WebEdit("kbInputInfo.kbName").Set names ' 输入名称信息
.WebEdit("kbInputInfo.keyWord").Set words ' 输入关键字信息
.Frame("Frame").WebElement("WebElement").Object.insertAdjacentText "afterBegin",comment ' 写入知识库的内容
.Frame("Frame").WebElement("WebElement").Click ' 点击编辑区域,不可删除否则保存后无内容
.WebButton("保存").Click ' 保存信息
wait(3) ' 必需等待,如果时间间隔太短,会导致多个新增页面同时产生,无法识别控件
Next
End With
以上是一个完整的脚本,主要功能添加数据,问题是
.Frame("Frame").WebElement("WebElement").Click ' 点击编辑区域,不可删除否则保存后无内容 、
与之前一个操作的时间间隔很久,大概要20秒钟左右,为什么呢?有人能解答吗? |
|