随机选取文本编辑器问题
各位老师，帮小弟一个忙，就是我们一个项目用的是一个文本编辑器，在录制脚本的时候输入字符但是脚本代码不能生成，回放没效果，还有就是我自己制作了一个随机获取表情操作，但是第一次能够选取，在循环第二次的时候系统就要报错，具体看如下代码及图片：脚本代码:
'***********************************************************************************************************************************
'角色添加操作
'***********************************************************************************************************************************
For i=1 to 3
wait 2
Browser("班组管理系统").Page("班组管理平台").Frame("mainFrame").Image("add").Click '点击增加按钮
Browser("班组管理系统").Page("班组管理平台").Frame("mainFrame_2").WebEdit("rolename").Set "超级管理员" '输入角色名称
wait 2
Browser("班组管理系统").Page("班组管理平台").Frame("Frame").Image("fck_strip").Click
wait 1
'获取Image集合
Set oDesc = Description.Create()
oDesc("micclass").Value = "Image"
'根据实际程序再加上其他属性的标志
Set checkImage = Browser("班组管理系统").Page("班组管理平台").Frame("frmMain").ChildObjects(oDesc)
totalCheckImageCount = checkImage.Count
'初始化随机种数
Randomize
'随机决定checkbox的个数，至少1个
wait 1
selectedCheckImageCount = Int((totalCheckImageCount-1+1) * Rnd + 4)
'在随机个数的前提下，随机选择不同位置的Image
For j = 1 to selectedCheckImageCount
'初始化随机种数
Randomize
'随机选择某个Image
Browser("班组管理系统").Page("班组管理平台").Frame("Frame").Image("fck_strip").Click
wait 1
selectedPosition = Int(totalCheckImageCount * Rnd)
wait 1
checkImage(selectedPosition).Click
wait 1
Next
wait 1
Browser("班组管理系统").Page("班组管理平台").Frame("frmMain").Image("omg_smile").Click
Browser("班组管理系统").Page("班组管理平台").Frame("Frame").Image("fck_strip").Click
Browser("班组管理系统").Page("班组管理平台").Frame("frmMain").Image("5").Click
wait 1
Browser("班组管理系统").Page("班组管理平台").Frame("Frame").Image("fck_strip").Click
Browser("班组管理系统").Page("班组管理平台").Frame("frmMain").Image("17").Click
Browser("班组管理系统").Page("班组管理平台").Frame("mainFrame_2").WebButton("WebButton").Click '点击保存按钮
Next :'(有没有哪位高手帮个忙啊！小弟在此跪谢！ 你msgbox出随机值，看看是不是第2次产生了0
另外，据我的遇到的情况来看，富文本，实现上是一个body，而不是webedit，所以你set不了的。当然你用的好像跟我们用的富文本框有点不一样。 LZ把Set checkImage = Browser("班组管理系统").Page("班组管理平台").Frame("frmMain").ChildObjects(oDesc)这句放到for循环里试试， 循环第2次是还需要再set一下对象
页:
[1]
