QTP常用函數(shù)大全

1、Qtp1. 富文本框?qū)ο蟮淖R(shí)別代碼Browser("歡迎登錄北京市城鄉(xiāng)建設(shè)局辦公自動(dòng)化系統(tǒng)！").Page("歡迎登錄北京市城鄉(xiāng)建設(shè)局辦公自動(dòng)化系統(tǒng)！").Frame("Frame").WebElement("WebElement").Object.insertAdjacentText "afterBegin","你想要大是大非寫(xiě)的東西"2. 獲取頁(yè)面所有多選框（其他對(duì)象同理）：Dim oWebChkDesc Set oWebChkDesc = Description.Cre

2、ate oWebChkDesc("micclass").value = "WebCheckBox" oWebChkDesc("html tag").Value = "INPUT" ' 獲取所有匹配描述的對(duì)象 Dim allCheck, oCheckBox Set allCheck = Browser("Web Tours").Page("Web Tours").ChildObjects(oWebChkDesc) For i = 0 to allCheck.Count

3、- 1        Set oCheckBox = allCheck(i)        oCheckBox.Set "ON" Next3. 設(shè)置對(duì)象Set objecta=Browser("歡迎登錄北京市城鄉(xiāng)建設(shè)局辦公自動(dòng)化系統(tǒng)！").Page("登錄").Image("login_input")4. 相對(duì)路徑Browser("登錄").Dialog("選擇文件").WinEdit("

4、;文件名(N):").Set PathFinder.Locate (".黨組審批單中標(biāo)通知書(shū)33.doc") '5. 鍵盤(pán)操作set os = CreateoBject("wscript.shell")wait(2)os.sendkeys "tab"wait(2)os.sendkeys "tab"wait(2)os.sendkeys "tab"wait(2)os.sendkeys " "6. QTP10的破解方法與之前版本類(lèi)似！1、從HP官方網(wǎng)上下載QTP1

5、0.0并安裝。2、安裝成功后，在C:Program FilesCommon FilesMercury Interactive下創(chuàng)建文件夾：License Manager3、將破解工具mgn-mqt82.exe復(fù)制到C:Program FilesHPQuickTest Professionalbin下。4、運(yùn)行mgn-mqt82.exe，ok，關(guān)閉。5、用記事本打開(kāi)License Manager下的lservrc文件，將第一行#前的代碼Copy。6、將代碼復(fù)制到license向?qū)е械膌icense輸入的地方，點(diǎn)擊完成就可以了。 恭喜成功了！需要安裝：QTP_00626.exe才能調(diào)試7. 安裝q

6、tp10的補(bǔ)丁QTP_00626.exe才能進(jìn)行調(diào)試工具debugger的安裝8. 函數(shù)：Function login (username,password)Browser("歡迎登錄北京市城鄉(xiāng)建設(shè)局辦公自動(dòng)化系統(tǒng)！").Navigate ":8080/OA/login.jsp"Browser("歡迎登錄北京市城鄉(xiāng)建設(shè)局辦公自動(dòng)化系統(tǒng)！").Page("登錄").WebEdit("accountName").Set username Browser(&quo

7、t;歡迎登錄北京市城鄉(xiāng)建設(shè)局辦公自動(dòng)化系統(tǒng)！").Page("登錄").WebEdit("passWord").Set passwordBrowser("歡迎登錄北京市城鄉(xiāng)建設(shè)局辦公自動(dòng)化系統(tǒng)！").Page("登錄").Image("login_input").ClickEnd Functioncall login ("liuyuwei","1")9. 打印變量：msgbox(title)10. 得到動(dòng)態(tài)值：Browser("oa&q

8、uot;).Page("oa").Frame("mainFrame_5").WebTable("請(qǐng)示標(biāo)題").GetROProperty("text")11. 取出對(duì)象數(shù)量set desc = Description.Createdesc("micclass").Value = "WebElement"ocount = Browser("oa").Page("oa").Frame("mainFrame_4").Chi

9、ldObjects(desc).count '取出webelement數(shù)量msgbox(ocount)set obj1 = Browser("oa").Page("oa").Frame("mainFrame_4")for i= 0 to ocount-1 text = obj1.GetROProperty("innertext") Print text '打印所有WebElement的innertextmsgbox(text)Next12. 讀寫(xiě)excelDataTable.ImportSheet

10、PathFinder.Locate(".施工圖審查備案審批配置施工圖審查備案審批配置1.xls"),"sheet3","施工圖審查備案審批配置"Dim i,RowCount ' 定義變量i = 0 ' 賦初值Rowcount = DataTable.GetSheet("施工圖審查備案審批配置").GetRowCount'主程序調(diào)用時(shí)使用'Rowcount = DataTable.GetSheet("表單管理").GetRowCount'該腳本單獨(dú)執(zhí)行時(shí)使用

11、Do While(i < RowCount) i = i+1 DataTable.SetCurrentRow(i)Browser("北京市建設(shè)行業(yè)信息化系統(tǒng)").Page("北京市建設(shè)行業(yè)信息化系統(tǒng)").Frame("mainframe_4").WebButton("新增審批權(quán)限").Clickwait(2)Browser("北京市建設(shè)行業(yè)信息化系統(tǒng)").Page("北京市建設(shè)行業(yè)信息化系統(tǒng)").Frame("mainframe_7").WebLis

12、t("xmszd").Select DataTable("項(xiàng)目所在地",dtLocalSheet)Browser("北京市建設(shè)行業(yè)信息化系統(tǒng)").Page("北京市建設(shè)行業(yè)信息化系統(tǒng)").Frame("mainframe_7").WebList("xmtzr").Select DataTable("項(xiàng)目投資人",dtLocalSheet)Browser("北京市建設(shè)行業(yè)信息化系統(tǒng)").Page("北京市建設(shè)行業(yè)信息化系統(tǒng)&qu

13、ot;).Frame("mainframe_7").WebList("tdyt").Select DataTable("土地用途",dtLocalSheet)Browser("北京市建設(shè)行業(yè)信息化系統(tǒng)").Page("北京市建設(shè)行業(yè)信息化系統(tǒng)").Frame("mainframe_7").WebList("blbm").Select DataTable("審批部門(mén)",dtLocalSheet)Browser("北京市建設(shè)行業(yè)信

14、息化系統(tǒng)").Page("北京市建設(shè)行業(yè)信息化系統(tǒng)").Frame("mainframe_7").WebButton("確定").Clickwait(1)loop寫(xiě)excel：Function insertexcel(row,col,value,path,sheet)Set ExcelApp=CreateObject("Excel.Application")Set ExcelWor=ExcelApp.Workbooks.Open (path)Set ExcelShe=ExcelWor.Worksheets

15、(sheet).UsedRange ExcelShe.Cells(row,col)=value ExcelApp.DisplayAlerts=True Set ExcelShe=NothingExcelWor.Close(True) ExcelApp.QuitEnd Function13. 打開(kāi)關(guān)閉ie，比如：SystemUtil.Run ("C:Program FilesInternet ExplorerIEXPLORE.EXE")，”SystemUtil.CloseProcessByName("iexplore.exe")14. 利用mst（merc

16、ury script template）生成腳本模板新建文件ActionTemplate.mst（必須是這個(gè)名字）用記事本打開(kāi)該文件編輯內(nèi)容，如：' =' 模塊名稱(chēng)' 軟件名稱(chēng)' 作者：' 日期：' =將該文件剪切到QTP的dat目錄下啟動(dòng)QTP，新建腳本時(shí)就能夠看到該模板被自動(dòng)應(yīng)用了15. 描述性編程參數(shù)：Browser("北京市建設(shè)行業(yè)信息化系統(tǒng)").Page("北京市建設(shè)行業(yè)信息化系統(tǒng)").Frame("mainframe").Link("text:="&

17、;projectName,"name:="&projectName).Click16. 增加同步點(diǎn)在錄制狀態(tài)下，選擇Insert->Synchronization Point，選擇要同步的對(duì)象，設(shè)置要同步的屬性，我們可以對(duì)對(duì)象的Enable，visible一類(lèi)表示狀態(tài)的屬性做同步點(diǎn)，生成如下腳本Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").WaitProperty "visible", True, 100000這句話的意思

18、就是在100秒的時(shí)間內(nèi)，等待WebEdit這個(gè)對(duì)象的visible屬性，只要它的visible屬性變?yōu)閠rue，那么就執(zhí)行下面操作，最后的100000單位是毫秒，如果在100000毫秒（100秒）后還沒(méi)有等到visible = true，直接執(zhí)行下面操作17. qtp 連接數(shù)據(jù)庫(kù)Dim StrConDim Res,CmdSet Res = CreateObject("ADODB.Recordset")Set Cmd = CreateObject("ADODB.Command")'以下為建立連接'StrCon ="DRIVER=o

19、racle.jdbc.driver.OracleDriver;Server=;UID=dqjs4_test3;PWD=dqjs4_test3;dbq=dqjs;"StrCon ="DRIVER=Oracle in OraClient10g_home1;SERVER=DQJS;UID=dqjs4_test3;PWD=dqjs4_test3;DBQ=DQJS;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=

20、NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;"Cmd.activeconnection=StrConCmd.CommandType =1'以下為執(zhí)行sql ，根據(jù)實(shí)際情況替換之Cmd.CommandText="select HT_CODE from HT_JBXX where JY_TYPE_NAME='勘察' and HT_JBXX_ID='28BEB060163C11E1B060C555E3FFBE59'" Set Res = Cmd.Execute()'

21、展示結(jié)果Do while not Res.eofMsgbox(Res(0)Res.MoveNextLoop'以下為關(guān)閉數(shù)據(jù)庫(kù)連接Set Res=nothingSet Cmd.activeconnection=nothingSet Cmd=nothing18. 取隨機(jī)數(shù)字RandomizeDim crancran=randomnumber(0,100)msgbox cran19. 隨機(jī)取下拉列表dim aa=Browser("北京市建設(shè)行業(yè)信息化系統(tǒng)_2").Page("提交問(wèn)題 - MantisBT").WebList("reprodu

22、cibility").GetROProperty("items count")msgbox arandomizeDim bb=randomnumber(0,a-1)msgbox bBrowser("北京市建設(shè)行業(yè)信息化系統(tǒng)_2").Page("提交問(wèn)題 - MantisBT").WebList("reproducibility").Select "#"&b20. GetROProperty、GetTOProperty、GetTOProperties、SetTOProperty例

23、：Browser("登陸").Page("登錄").Frame("mainFrame").WebEdit("dispatchDoc.dispatchDocTitle").SetTOProperty "name","dispatchDoc.dispatchDocTitle"這種方法不會(huì)修改對(duì)象庫(kù)中對(duì)象的屬性值，但運(yùn)行時(shí)也不會(huì)報(bào)錯(cuò)。GetROProperty：得到運(yùn)行時(shí)對(duì)象的值Browser("北京市建設(shè)行業(yè)信息化系統(tǒng)_2").Page("提交問(wèn)題

24、- MantisBT").WebList("reproducibility").GetROProperty("items count")GetTOProperty：得到對(duì)象庫(kù)里面對(duì)象的值Browser("北京市建設(shè)行業(yè)信息化系統(tǒng)_2").Page("提交問(wèn)題 - MantisBT").WebList("reproducibility").GetTOProperty("value")GetTOProperties：得到所有屬性的key and valueset a=B

25、rowser("北京市建設(shè)行業(yè)信息化系統(tǒng)_2").Page("提交問(wèn)題 - MantisBT").WebList("reproducibility").GetTOProperties21. 回放原理一、先根據(jù)腳本中的對(duì)象類(lèi)型在對(duì)象庫(kù)中查找是否存在該類(lèi)型的對(duì)象。對(duì)象類(lèi)型 是指 在對(duì)象類(lèi)型庫(kù)（Object Identification）中存在的類(lèi)型。二、根據(jù)腳本中對(duì)象的名稱(chēng)在對(duì)象庫(kù)中查找是否存在該名稱(chēng)的對(duì)象。三、根據(jù)對(duì)象類(lèi)型庫(kù)中設(shè)定的對(duì)象識(shí)別機(jī)制定位對(duì)象：1、先根據(jù)強(qiáng)制屬性匹配實(shí)際對(duì)象的屬性值：（1）唯一匹配，找到對(duì)象，退出識(shí)別機(jī)制；（2

26、）多個(gè)匹配，采用輔助屬性輔助識(shí)別；（3）不匹配，報(bào)錯(cuò)；2、根據(jù)輔助屬性匹配實(shí)際對(duì)象的屬性值：（1）唯一匹配，找到對(duì)象，退出識(shí)別機(jī)制；（2）多個(gè)匹配，采用順序標(biāo)識(shí)符輔助識(shí)別；（3）不匹配，報(bào)錯(cuò)；3、根據(jù)順序標(biāo)識(shí)符匹配實(shí)際對(duì)象的順序值：（1）唯一匹配，找到對(duì)象，退出識(shí)別機(jī)制；（2）多個(gè)匹配，嘗試采用智能識(shí)別；（3）不匹配，報(bào)錯(cuò)；其中順序標(biāo)識(shí)符中有兩種識(shí)別機(jī)制：index：控件數(shù)組的索引值。location：對(duì)象在GUI界面上的位置，遵循“先從上到下，再?gòu)淖蟮接摇钡脑瓌t。22. insert call to existing action腳本中用到了【insert call to existing

27、action】，修改了其中被調(diào)用的action，但發(fā)現(xiàn)引用的一直是舊的代碼，修改無(wú)效。剛開(kāi)始不知道怎么回事，后來(lái)發(fā)現(xiàn)QTP中查找引用的action時(shí)是根據(jù)【options->folders】中配置的路徑再拼接相對(duì)路徑找到的，而之前我一直以為QTP會(huì)自動(dòng)去我的test所在目錄中找相對(duì)路徑的action。如果填了多個(gè)地址，QTP是會(huì)由上到下按照地址一個(gè)一個(gè)的去找23. 數(shù)組Dim jylx()ReDim jylx(6)Dim lengthjylx(0) = "勘察"jylx(1) = "設(shè)計(jì)"jylx(2) = "審查"jylx(3

28、) = "施工總承包"jylx(4) = "監(jiān)理"jylx(5) = "質(zhì)量檢測(cè)"jylx(6) = "造價(jià)咨詢(xún)"length = UBound(jylx) '返回指定數(shù)組維數(shù)的最大可用下標(biāo)select case Select Case jylx(i)case jylx(0)dw=kcdwCase jylx(1)dw=sjdwCase jylx(2)dw=scdwCase jylx(3)dw=sgzcbdwCase jylx(4)dw=jldwCase jylx(5)dw=zljcdwCase jylx(6

29、)dw=zjzxdwend select24. txt文件讀取'讀取文件Const ForReading=1,ForWriting=2,ForAppending=8Set fso = CreateObject("Scripting.FileSystemObject")Set openfile=fso.OpenTextFile("C:/test.txt",ForReading,True)Do Until openfile.AtEndOfStream str=openfile.ReadLine a=Split(str,"",-1,

30、1) For i=0 to Ubound(a) Msgbox a(i) Next Loopopenfile.CloseSet fso=Nothing'寫(xiě)文件Const ForReading=1,ForWriting=2,ForAppending=8Set fso = CreateObject("Scripting.FileSystemObject")set openfile=fso.OpenTextFile("C:/test.txt",ForWriting,true)For i=1 to 4 openfile.WriteLine("he

31、llo") openfile.WriteBlankLines(0)Nextopenfile.CloseSet fso=nothing'追加Const ForReading=1,ForWriting=2,ForAppending=8Set fso = CreateObject("Scripting.FileSystemObject")set openfile=fso.OpenTextFile("C:/test.txt",ForAppending,true)openfile.WriteLine("hello world"

32、)openfile.CloseSet fso=nothing25. 驗(yàn)證碼（扯）Dim InputInput = InputBox("Enter your pic no:") Browser("調(diào)查博客").Page("調(diào)查博客").WebEdit("ident_code").Set Input26. action參數(shù)傳遞（1）在主action中：RunAction "Driver_TestCase", oneIteration, table, testCaseSheetName,caseNam

33、e（2）被調(diào)用action中testCaseFile =parameter("testCaseFile") testCaseSheetName =parameter("testCaseSheetName") caseName =parameter("caseName") 按照順序傳遞27. （腳本中直接調(diào)用vbs文件）腳本中加載vbs文件，有類(lèi)的vbs需要這樣使用ExecuteFile ".aa bb.vbs"該vbs文件的格式必須是ANSI的28. 自定義環(huán)境變量Set oReport = New ExcelRe

34、portEnvironment("oReport")= oReport通過(guò)環(huán)境變量 也能傳遞參數(shù)29. QTP使用外部共享對(duì)象庫(kù)有2種方法1，通過(guò)菜單Resources -> Associate Repositories，關(guān)聯(lián)外部對(duì)象庫(kù)到指定的Action。2，通過(guò)RepositoriesCollection對(duì)象，在運(yùn)行時(shí)靈活的加載,自動(dòng)關(guān)聯(lián)到當(dāng)前Action。1.加載外部對(duì)象庫(kù) 2.執(zhí)行腳本3.移除加載的對(duì)象庫(kù)'Upload object repository RepositoriesCollection.Add "./test.tsr"

35、'steps.'. 'Remove object repository OR_Index = RepositoriesCollection.Find("./test.tsr")RepositoriesCollection.Remove OR_Index30. ie8定位不了頁(yè)面SystemUtil.Run ("C:Program FilesInternet ExplorerIEXPLORE.EXE"),""31. 退出整個(gè)for循環(huán) exit forFor i=0 to 4msgbox iIf (i=3) Th

36、enExit forEnd IfNext32. datatable使用'qtp的datatable里面增加一個(gè)sheet，名稱(chēng)為：testdatatable.AddSheet("test")'導(dǎo)入當(dāng)前目錄下aaa.xls的sheet到test中datatable.ImportSheet pathfinder.Locate(".qtptestaaa.xls"),"sheet1","test"'獲取這個(gè)test的總行數(shù)Rowcount = DataTable.GetSheet("tes

37、t").GetRowCountFor i=1 to Rowcount'設(shè)置當(dāng)前行datatable.GetSheet("test").SetCurrentRow(i)'找到test1這個(gè)列的值a=DataTable("test1","test")'a=datatable.value("test1","test")msgbox anext33. 超時(shí)設(shè)置Setting("DefaultTimeout") =100000034. QTP中Comp

38、lete Word打開(kāi)edit-Complete Word，看到了嗎可以自動(dòng)彈出函數(shù)。但是快捷鍵被設(shè)置成了輸入法的切換，我們可以這么改解決方法: 注意：放棄CTRL+SPACE，平時(shí)切換的話可以使用CTRL+SHIFT  1.右鍵語(yǔ)言欄，點(diǎn)擊設(shè)置 2.點(diǎn)擊鍵設(shè)置，選擇輸入法/非輸入法切換 3.點(diǎn)擊更改按鍵順序 4.如圖選擇，點(diǎn)擊確定 這樣函數(shù)就能出來(lái)了.35. dom對(duì)象使用spy獲取對(duì)象的id值。Browser("百度一下，你就知道").Page("百度一下，你就知道").Object.get

39、ElementById("kw").value="ddd"36. 獲取對(duì)象方法（1） 普通方法：Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set "test"（2） Dom對(duì)象：Browser("百度一下，你就知道").Page("百度一下，你就知道").Object.getElementById("kw").value="test"

40、（3） 描述性編程：Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("name:=wd").Set "test"（4） 對(duì)象自身接口：Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Object.value="ddddddd"（5）循環(huán)遍歷各個(gè)對(duì)象進(jìn)行獲取見(jiàn)第二個(gè)知識(shí)點(diǎn)37. qtp回放模式tool-option-web-高級(jí)可以使用

41、代碼來(lái)控制回放模式setting.webpackage("replay type")=21、事件模式2、鼠標(biāo)模式38. aom應(yīng)用aom自動(dòng)化對(duì)象模型39. webutil應(yīng)用40. 獲取頁(yè)面上所有指定屬性的對(duì)象在QTP腳本編寫(xiě)的時(shí)候，我們可能會(huì)遇到這種檢查點(diǎn)：比如獲取checkbox的個(gè)數(shù)等等，這時(shí)會(huì)提出“獲取頁(yè)面上所有指定屬性的對(duì)象”的需求。下面是用descrption對(duì)象實(shí)現(xiàn)的一個(gè)函數(shù)，作用就是實(shí)現(xiàn)上述需求。Function getItemList(PageObject,PropertyName,PropertyValue)Dim oItemDescDim nSet

42、ItemDesc=descrption.CreateIf isarray(PropertyName) and isarray(PropertyValue) Then Dim iCountPropertyName Dim iCountPropertyValue iCountPropertyName = ubound(PropertyName) iCountPropertyValue = ubound(PropertyValue) If iCountPropertyName <= iCountPropertyValue Then For n=0 to ubound(PropertyName)

43、 oItemDesc(PropertyName(n).value=PropertyValue(n) Next Else 'lost property value 'msgbox "lost property value" Exit Function End If Else If (not isarray(PropertyName) and (not isarray(PropertyValue) Then oItemDesc(PropertyName).value=PropertyValue Else 'error 'msgbox "

44、error" Exit Function End IfEnd IfSet getItemList=PageObject.childobjects(oItemDesc)End Function輸入?yún)?shù)有3個(gè)，page對(duì)象，屬性名，屬性值；其中屬性名和屬性值可以為數(shù)組，應(yīng)用舉例：'取出頁(yè)面所有編輯框set ChildList = getItemList(page("51Testing軟件測(cè)試網(wǎng)"),"micclass","WebEdit")'編輯框數(shù)量iCountChildList = oChildList.co

45、unt'取出頁(yè)面所有name含有“測(cè)試”的鏈接set ChildList = getItemList(page("51Testing軟件測(cè)試網(wǎng)"),array("micclass","name"),array("Link","測(cè)試.*")'點(diǎn)擊第二個(gè)鏈接oChildList(1).click41. 上傳type=file類(lèi)型的上傳，可以封裝成方法 Browser("Browser").Page("Page").WebFile("d

46、ispatchDocWord").Object.outerHTML="<INPUT type=file name=dispatchDocWord" & " value=D:技術(shù).rar unselectable= "&"off " & ">"Browser("Browser").Page("Page").WebFile("dispatchDocWord").Set "D:技術(shù).rar"42.

47、 彈窗口頁(yè)面解決辦法在對(duì)象庫(kù)里已存在的Browser對(duì)象加上Title屬性值（根據(jù)具體情況選擇）作為判斷條件然后在Tools->Object Identification->Web->Browser->Mandatory Properties里把Title屬性加上這樣就可以區(qū)分主窗口與彈出窗口，腳本就可以正常回放了43. 網(wǎng)頁(yè)多，對(duì)象相同，可以使用正則表達(dá)式把 Browser 的title 正則表達(dá)式Browser("Browser").Page("操作").WebFile("瀏覽").Click'上傳

48、附件44. 日期控件舉例set test=browser("name:=(房?jī)r(jià)查詢(xún))*").page("title:=(房?jī)r(jià)查詢(xún))*")test.webedit("name:=apprDate").object.value=DataTable("start_date", dtLocalSheet)set test=browser("name:=(房?jī)r(jià)查詢(xún))*").page("title:=(房?jī)r(jià)查詢(xún))*")test.webedit("name:=depDate&qu

49、ot;).object.value=DataTable("start_date2", dtLocalSheet)45. 右鍵一般情況默認(rèn)設(shè)置是1的。（1 表示使用瀏覽器事件運(yùn)行鼠標(biāo)操作。 2 代表使用鼠標(biāo)運(yùn)行鼠標(biāo)操作）代碼為：Setting.WebPackage(”ReplayType”) = 2Browser("百度一下，你就知道").Page("百度搜索_中國(guó)人").Link("歡迎來(lái)到ChinaRen校友錄！").FireEvent "onclick",，micRightBtn（Click

50、的事件有三種：micLeftBtn 0 代表鼠標(biāo)左鍵。 micRightBtn 1 為鼠標(biāo)右鍵。 micMiddleBtn 2 為鼠標(biāo)中鍵）#/總 結(jié) 人：李振民/#/總 結(jié) 時(shí) 間：李振民/#/版 本 號(hào) 碼：李振民/#'(1)#獲取當(dāng)前日期時(shí)間#Dim currentDatecurrentDate=datecurrentTime=Timemsgbox(currentDate + currentTime)'(2)#獲取DataTable的行數(shù)#Dim bb=DataTable.getRowcountmsgbox(b)'(3)#鼠標(biāo)雙擊打開(kāi)菜單#Browser(&quo

51、t;").Page("").Webbutton("").FireEvent"ondblclick"'(4)#從Excel里面讀取數(shù)據(jù)數(shù)據(jù)初始化實(shí)例#Browser("歡迎登錄大慶市建設(shè)局信用監(jiān)管系統(tǒng)").Page("歡迎登錄大慶市建設(shè)局信用監(jiān)管系統(tǒng)").Frame("indexMainNav").Link("違法違紀(jì)行為記錄評(píng)分標(biāo)準(zhǔn)維護(hù)").ClickBrowser("歡迎登錄大慶市建設(shè)局信用監(jiān)管系統(tǒng)").Page("歡迎登錄大慶市建設(shè)局信用監(jiān)