軟件測試工具QTP中一些基礎代碼結構累積

1 生產隨機數列
第一種方法-----------------------------------
randomize'更新反回的數據
funcation rand(k,n)
n=int((k-1)*rnd+1)
rand=n
end funcation
第二種方法
n=randomnumber.value(1,255)
2 當運行到表中的某一行，自動導出表中的所有數據
row=datatable.getcurrentrow
if row="5" then
datatable.export("d:\data.xml")
end if
3 webedit("txtpass").setsecure"sdsdf...."
如果參數化密碼，可以直接在數據表中寫入未加密的密碼，它會自動識別，即不用把setsecure改為set
4　如果彈出對話框就獲取上面提示信息并與表中的信息對比，不統一證明彈出的提示出錯,主要用來驗證
　if browser("web_name".dialog("dialog_name").exist(1) then'如果不出現=false
error_message=browser("web_name".dialog("diaglog_name".static("用戶密碼錯誤!").getRoproperty("text")
　　　if error_message<>(datatable.value("error_info"))then
msgbox(error_message)
end if
browser("web_name").dialog("diaglog_name").close
end if
這里我總結了兩點技巧：
　一是：對于dialog中，雖然提示信息對象名稱是"用戶密碼錯誤"，但如果信息對象名稱是“該用戶不存在”，不用更改會自動識別，我想主要是錄制第一遍時，“用戶密碼錯誤”只是讓運行時能找到這個控制，而不管它是什么內容，因為在對象倉庫中，text不是決定該對象的屬性
二是：如果對于提示信息比較長的，可以用mid(error_message,n,m)取一部份特征提示信息進行驗證，這樣我想可以節省處理時間，又可以避免長度以及空格等字符的處理
5 在運行時，向某一個單元格賦值: datatable.value("kai",dtlocalsheet)="nanjing"
datatable.value("num")只在global形式下的一種省略形式；完整形式
是datatable.value("num",dtlocalsheet)
-----取得某一具體行的值：
datatable.setcurrentrow(n);
msgbox(datatable.getsheet("global").getparameter("kai").Rawvalue)
或者kk=datatable.Rawvalue("kai","action1")
-----在run-time期間,添加一個action和參數
kk=datatable.addsheet("name").addparameter("kai","ddd").name'/value
6　with dialog("name")'可以省好多代碼，看著也簡潔
content=.wintreeview
end with
7 wintreeview.select(item)(根是0,列表第一個也是0)
wintreeview.getcontent
wintreeview.getitem(整行）+";"+
winlistview.getitem(行中的第一個字符段)
wincheckbox("").set"off"'/on
8 數據庫檢查點:
sub getdata
set con=createobject("adodb.connection")
con.open("descrīption=mod;driver=sqlserver;server=hp\sqlserver;uid=sa;"&_
"pwd=11111;APP=qtp;WSID=hp;database=MOD31" '用sqlserver方式
Con.open "DRIVER = {Microsoft Aclearcase/" target="_blank" >ccess Driver (*.mdb)};DBQ=D:\Testdb.mdb" '用access方式
set record=createobject("adodb.recordset")
sql="select * from m3_program" '選擇具體滿足一條件的:sql="select* from m3_program where "
record.open sql,con
if(not record.eof) then
record.movenext
msgbox("p_name")
end if
record.close
set record=nothing
con.close
set con=nothing
end sub
'如果沒有查到內容，在結果中不會報錯，也不會彈出窗口
9 vbcr----chr(13)回車符
vblf----chr(10)換行符
vbcrlf----chr(13)+chr(10)結合

原文轉自：http://www.kjueaiud.com