qtp 脚本控制js控件dtree,实现随机展开和选取dtree中的node

ccgulan

js 脚本代码：
function expSelNod(sl){
if (deptTree.aNodes[sl]._hc) {deptTree.o(sl,deptTree.aNodes[sl].id);}
else{selNod();}
};
function selNod(){
var l=deptTree.aNodes.length;
var zsl=parseInt(Math.random()*l);
var el=zsl;
for(var i=0;i<l-1;i++ ) {
if(qtpOp.title.indexOf(deptTree.aNodes.pid)>=0 || qtpOp.title.indexOf(deptTree.aNodes.id)>=0){
  el=i;
  if( i>=zsl){break ;}
  }
};
select(deptTree.aNodes[el].id,deptTree.aNodes[el].name);
qtpOp.title="end"
};
function expAChildNod(sl){
var l=deptTree.aNodes.length;
var zsl=parseInt(Math.random()*l);
var el=zsl;
for(var i=0;i<l-1;i++ ) {
if(deptTree.aNodes.pid==deptTree.aNodes[sl].id){
el=i;
if(i>=zsl)break ;
}
};
qtpOp.title=qtpOp.title+","+el;expSelNod(el);
};
function mFun(){
debugger;
if (qtpOp.title==''){
var tl=deptTree.aNodes.length;
var tzsl=parseInt(Math.random()*tl);
if(tzsl==0)tzsl=1;qtpOp.title=tzsl;
expSelNod(tzsl);
};
else  {
  var pid=qtpOp.title.split(',');
  if (pid.length>0) expAChildNod(pid[pid.length-1]);
}
};
document.getElementById('qtpOpt').onclick=mFun

将以上代码存入文本文件中

qtp脚本代码：
'该函数完成对dtree js控件的随机展开和随机点取
'pageObj:dtree 控件所在的页面
'dreeObjStr:dtree控件名称
Public Function selRamDtreeNode(pageObj, dreeObjStr)
Dim newObjDiv
Dim adobj
Dim selNode
Dim objHead,objScript          
Dim tmpstr
tmpstr=readTxt("E:\qtp script\selNode.txt")
set newObjDiv = pageObj.Object.createElement("<div id='qpttest'>")
pageObj.Object.body.appendChild newObjDiv
Set adobj= pageObj.Object.getElementById("qpttest")
jsStr = "<input name=qtpOp id=qtpOpt  type=button value=qtpOp "
                       
jsStr = jsStr  & ">"
adobj.innerhtml = jsStr

Set objHead = pageObj.Object.getElementsByTagName("HEAD").item(0)
Set objScript = pageObj.Object.createElement( "script" )
objScript.language = "javascript"
objScript.type = "text/javascript"
objScript.id = "sIdTest"
objScript.defer = true
objScript.text =tmpstr
objHead.appendChild( objScript )
a=pageObj.WebButton("name:=qtpOp").object.title             
do  while  a<>"end"
    pageObj.WebButton("name:=qtpOp").click
    a=pageObj.WebButton("name:=qtpOp").object.title
    wait 1
Loop
End Function

'读取文件
Public Function readTxt(filePath)
   Dim fso,openfile
   Dim str,restr
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set openfile=fso.OpenTextFile(filePath,1,true)
   Do  Until openfile.AtEndOfStream

                str=openfile.ReadLine
        restr=restr&str
   Loop
       
   openfile.Close
       
   Set fso=Nothing
   readTxt=restr


End Function
action 调用
Dim dtreeobj


Set dtreeobj= Browser("**").Page("**").Frame("dept_frame")
                       
selRamDtreeNode dtreeobj,"deptTree"

以上代码参考了http://blog.sina.com.cn/s/blog_46fe1e110100di9i.html中部分代码

欢迎高手提供更好的意见