随机选取文本编辑器问题

mycattish · 发表于 2010-12-23 11:49:47

各位老师，帮小弟一个忙，就是我们一个项目用的是一个文本编辑器，在录制脚本的时候输入字符但是脚本代码不能生成，回放没效果，还有就是我自己制作了一个随机获取表情操作，但是第一次能够选取，在循环第二次的时候系统就要报错，具体看如下代码及图片：
脚本代码:
'***********************************************************************************************************************************
'角色添加操作
'***********************************************************************************************************************************
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