VBS常用函數(shù)大全

1、1. 獲取頁面所有多選框 Description.CreateDim oDesc'''''''''''創(chuàng)建Description對象Set oDesc = Description.Create'''''''''''''選擇 oDesc("micclass").value = "WebEdit" 'oDesc("class").value=

2、"leve.*switch.*close"'''''''''''''''''創(chuàng)建對象集合Set objoDescs=objPage.ChildObjects(oDesc)nCount=objoDescs.countFor i=0 to nCount-1objoDescs(i).set "123"NextFor i=0 to nCount-1objoDescs.Item(i).ClickNext2. GetROProper

3、ty、GetTOProperty、GetTOProperties、SetTOPropertyGetTOProperty():取得倉庫對象的某個屬性的值GetTOProperties():取得倉庫對象的所有屬性的值GetROProperty():取得實際對象的某個屬性的值例：Browser("登陸").Page("登錄").Frame("mainFrame").WebEdit("dispatchDoc.dispatchDocTitle").SetTOProperty "name","di

4、spatchDoc.dispatchDocTitle"這種方法不會修改對象庫中對象的屬性值，但運行時也不會報錯。GetROProperty：得到運行時對象的值Browser("北京市建設行業(yè)信息化系統(tǒng)_2").Page("提交問題 - MantisBT").WebList("reproducibility").GetROProperty("items count")GetTOProperty：得到對象庫里面對象的值Browser("北京市建設行業(yè)信息化系統(tǒng)_2").Page("

5、;提交問題 - MantisBT").WebList("reproducibility").GetTOProperty("value")GetTOProperties：得到所有屬性的key and valueset a=Browser("北京市建設行業(yè)信息化系統(tǒng)_2").Page("提交問題 - MantisBT").WebList("reproducibility").GetTOProperties3. GetCellData，ChildItem，GetRowWithCellText

6、GetCellData，獲取制定單元格（指定行，指定列）的值object.GetCellData(Row,Column)ChildItem，子對象Object.ChildItem(Row,Column,MinClass,index)MinClass 對象空鍵的類名，index，一般為0GetRowWithCellText,查找文本所在行GetRowWithCellText(text,col,row)4. datatable使用1、'qtp的datatable里面增加一個sheet，名稱為：testdatatable.AddSheet("test")'導入當前

7、目錄下aaa.xls的sheet到test中datatable.ImportSheet pathfinder.Locate(".qtptestaaa.xls"),"sheet1","test"'獲取這個test的總行數(shù)Rowcount = DataTable.GetSheet("test").GetRowCountFor i=1 to Rowcount'設置當前行datatable.GetSheet("test").SetCurrentRow(i)'找到test1這個列的

8、值a=DataTable("test1","test")'a=datatable.value("test1","test")msgbox aNext2.把值插入datatable里例:   datatable.setcurrentrow(i)       datatable.value("name","Global")="name"       da

9、tatable.value("passwd","Global")="passwd"5. 彈框消息處理，Set objDlg = MakeDialogIf objDlg.WinButton("text:=確定").Exist(2) then objDlg.WinButton("text:=確定").ClickEnd ifSet objDlg = MakeDialog objDlg.WinButton("text:=確定").Click''''&#

10、39;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''&#

11、39;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''&#

12、39;'''''''''''''''''''''''''''''''''擴展函數(shù)部分：彈出的選擇框的判斷Function MakeDialog()'窗口時還沒有彈出來 如分配策略時wait 3Set objDlg = Window("regexpwndclass:=Alternate Modal Top Most&q

13、uot;).Dialog("regexpwndclass:=#32770")If objDlg.Exist(1) ThenSet MakeDialog = objDlgElseSet objDialog = objBrowser.Dialog("regexpwndclass:=#32770")Set MakeDialog = objDialogEnd IfEnd Function6. ExecuteFile函數(shù)  作用:ExecuteFile可以直接執(zhí)行vbs文件，而不需要將其導入resource中    

14、;   ExecuteFile FileName   例:ExecuteFile("F:test.vbs")7. Strcomp函數(shù)   作用:比較文本  例:dim strtext1,strtext2,str,str1,comp1    strtext1 = "xxx"    strtext2 = "xxx"    str =VbWindow("xxx")

15、.VbWindow("xxx").VbLabe1("xxx").GetTOProperty("text")    str1=VbWindow("xxx").VbWindow("xxx").VbLabel("xxx").GetTOProperty("text")    comp1=strcomp(strtext1,str,0)    If  comp=0 Then  &

16、#160;      msgbox “這兩個串相等”    else      msgbox str    End If 8. CaptureBitmap   作用:捕獲屏幕9. 超時設置Setting("DefaultTimeout") =100000010. 取隨機數(shù)字RandomizeDim crancran=randomnumber(0,100)msgbox cran11. 打開關閉ie，比如：SystemU

17、til.Run ("C:Program FilesInternet ExplorerIEXPLORE.EXE")，”SystemUtil.CloseProcessByName("iexplore.exe")3.用代碼來啟動瀏覽器  Browser1 = "IE"  StartURL = ""  IF Browser1 = "IE" THEN    set IE = CreateObject("Interne

18、tExplorer.Application")    IE.Visible = true    IE.Navigate StartURL  END IFie8定位不了頁面SystemUtil.Run ("C:Program FilesInternet ExplorerIEXPLORE.EXE"),""12. 1退出ExitTest -退出整個TEST。ExitAction - 退出當前操作，無論其循環(huán)屬性如何。ExitActionIteration - 退出操作的當前循環(huán)。ExitRu

19、n - 退出測試，無論其循環(huán)屬性如何。ExitGlobalIteration - 退出當前全局循環(huán)。Exit Function -退出函數(shù)13. 結束進程3種方法Function KillProcess(ProcessName)strComputer = "."Set objWMIService = GetObject("winmgmts:/" & strComputer & "/root/cimv2")Set colProcessList = objWMIService.ExecQuery("Select

20、* from Win32_Process Where Name = '" & ProcessName &"'")For Each objProcess in colProcessListobjProcess1.Terminate()NextEnd functionsystemutil.CloseProcessByName "notepad.exe"Function KillProcess2(processname)Dim wShellSet wShell = CreateObject( "WScript

21、.Shell" )wShell.Exec "TASKKILL /F /IM " & processnameset wShell = nothingEnd Function14. 防止程序中斷的方法在回放腳本的時候，有時因為錯誤導致運行的腳本中斷，不能自動運行。為了能達到真正無人職守的狀態(tài)可以在腳本的最前面加上如下的代碼： On error resume next  遇到錯誤返回到腳本的下一行繼續(xù)執(zhí)行。On error goto 0 錯誤處理的控制權，平時是由QTP控制的（這個叫默認的），當有on error resume ne

22、xt 時，是交給on error處理，當on error goto 0時，就換給QTP15. 同步點的設定等待某一對象出現(xiàn)后繼續(xù)執(zhí)行，為了防止qtp找不到對象而設定同步點。有2種方法：1種是用wait加等待的時間，如wait 5（qtp等待5秒鐘后繼續(xù)執(zhí)行）。另一種方法是等待要執(zhí)行對象的出現(xiàn)，如果出現(xiàn)就繼續(xù)執(zhí)行，否則一直等待，代碼如下：y=.waitproperty("visible",true,10000)If y=true then   執(zhí)行下一條語句   else    對象不出現(xiàn)就一直等待，直到過了1000

23、0秒后程序找不到對象報錯End if16. 獲取對象方法（1） 普通方法：Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set "test"（2） Dom對象：Browser("百度一下，你就知道").Page("百度一下，你就知道").Object.getElementById("kw").value="test"（3） 描述性編程：Browser("百度一下，你就

24、知道").Page("百度一下，你就知道").WebEdit("name:=wd").Set "test"（4） 對象自身接口：Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Object.value="ddddddd"（5）循環(huán)遍歷各個對象進行獲取見第二個知識點17. 上傳type=file類型的上傳，可以封裝成方法 Browser("Browser").Page(&

25、quot;Page").WebFile("dispatchDocWord").Object.outerHTML="<INPUT type=file name=dispatchDocWord" & " value=D:技術.rar unselectable= "&"off " & ">"Browser("Browser").Page("Page").WebFile("dispatchDocWord&qu

26、ot;).Set "D:技術.rar"18. 日期控件舉例set test=browser("name:=(房價查詢)*").page("title:=(房價查詢)*")test.webedit("name:=apprDate").object.value=DataTable("start_date", dtLocalSheet)set test=browser("name:=(房價查詢)*").page("title:=(房價查詢)*")test.web

27、edit("name:=depDate").object.value=DataTable("start_date2", dtLocalSheet)19. 右鍵一般情況默認設置是1的。（1 表示使用瀏覽器事件運行鼠標操作。 2 代表使用鼠標運行鼠標操作）代碼為：Setting.WebPackage(”ReplayType”) = 2Browser("百度一下，你就知道").Page("百度搜索_中國人").Link("歡迎來到ChinaRen校友錄！").FireEvent "oncli

28、ck",，micRightBtn（Click的事件有三種：micLeftBtn 0 代表鼠標左鍵。 micRightBtn 1 為鼠標右鍵。 micMiddleBtn 2 為鼠標中鍵）object.Click ax,ay,1dblClick 雙擊 0左擊，1右擊20. qtp 連接數(shù)據(jù)庫Dim StrConDim Res,CmdSet Res = CreateObject("ADODB.Recordset")Set Cmd = CreateObject("ADODB.Command")'以下為建立連接'StrCon ="

29、;DRIVER=oracle.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=IfAllSucces

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

31、te()'展示結果Do while not Res.eofMsgbox(Res(0)Res.MoveNextLoop'以下為關閉數(shù)據(jù)庫連接Set Res=nothingSet Cmd.activeconnection=nothingSet Cmd=nothing10.連接sql數(shù)據(jù)庫  例im res,cmd,sql    Set Res=createobject("adodb.recordset")    Set Cmd=createobject("mand")  &

32、#160; Cmd.activeconnection="rovider=SQLOLEDB.1assword=111111ersistSecurity Info=True;User ID=sa;Initial Catalog=xhq;DataSource=42"這句話是連接數(shù)據(jù)庫的數(shù)據(jù)源，要做修改   Cmd.CommandType = 1    sql="selec t* from 表 where name=username"   Cmd.CommandText = s

33、ql    Set res =Cmd.Execute()    Set res =nothing    Setcmd.ActiveConnection = nothing    Set Cmd=nothing21. 數(shù)組Dim jylx()ReDim jylx(6)Dim lengthjylx(0) = "勘察"jylx(1) = "設計"jylx(2) = "審查"jylx(3) = "施工總承包"jylx(4) = "監(jiān)理

34、"jylx(5) = "質量檢測"jylx(6) = "造價咨詢"length = UBound(jylx) '返回指定數(shù)組維數(shù)的最大可用下標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)dw=zjzxdwend select22. txt文件讀取'讀取文

35、件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,1) For i=0 to Ubound(a) Msgbox a(i) Nex

36、t Loopopenfile.CloseSet fso=Nothing'寫文件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("hello") openfile.WriteBlankLines(0)N

37、extopenfile.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")openfile.CloseSet fso=nothingVBS 常用函數(shù)D

38、ate/Time 函數(shù)函數(shù)描述CDate把一個有效的日期或時間表達式轉換為日期類型。Date返回當前的系統(tǒng)日期。DateAdd返回已添加指定時間間隔的日期。DateDiff返回兩個日期之間的時間間隔數(shù)。DatePart返回給定日期的指定部分。DateSerial返回日期的指定年、月、日DateValue返回日期Day返回代表一月中一天的數(shù)字 （介于并包括1至31之間）FormatDateTime返回以日期或時間格式化的表達式。Hour返回可代表一天中的小時的數(shù)字 （介于并包括0至23之間）IsDate返回可指示計算表達式能否轉換為日期的布爾值。Minute返回一個數(shù)字，代表小時的分鐘 （介于并

39、包括0至59）Month返回一個數(shù)字，代表年的月份 （介于并包括1至12之間）。MonthName返回指定月份的名稱。Now返回當前的系統(tǒng)日期和時間。Second返回一個數(shù)字，代表分鐘的秒 （介于并包括0至59之間）Time返回當前的系統(tǒng)時間。Timer返回自 12:00 AM 以來的秒數(shù)。TimeSerial返回特定小時、分鐘和秒的時間。TimeValue返回時間。Weekday返回一個數(shù)字，代表星期的一天（介于并包括1至7）WeekdayName返回星期中指定的一天的星期名。Year返回一個代表年份的數(shù)字。TopConversion/數(shù)據(jù)類型 函數(shù)函數(shù)描述Asc把字符串中的首字母轉換為 A

40、NSI 字符代碼。CBool把表達式轉換為布爾類型。CByte把表達式轉換為字節(jié)（Byte）類型。CCur把表達式轉換為貨幣（Currency）類型。CDate把有效的日期和時間表達式轉換為日期（Date）類型。CDbl把表達式轉換為雙精度（Double）類型。Chr把指定的 ANSI 字符代碼轉換為字符。CInt把表達式轉換為整數(shù)（Integer）類型。CLng把表達式轉換為長整形（Long）類型。CSng把表達式轉換為單精度（Single）類型。CStr把表達式轉換為子類型 String 的 variant 。Hex返回指定數(shù)字的十六進制值。Oct返回指定數(shù)字的八進制值。TopFormat

41、/類型轉換 函數(shù)函數(shù)描述FormatCurrency返回作為貨幣值進行格式化的表達式。FormatDateTime返回作為日期或時間進行格式化的表達式。FormatNumber返回作為數(shù)字進行格式化的表達式。FormatPercent返回作為百分數(shù)進行格式化的表達式。TopMath/數(shù)學運算 函數(shù)函數(shù)描述Abs返回指定數(shù)字的絕對值。Atn返回指定數(shù)字的反正切。Cos返回指定數(shù)字（角度）的余弦。Exp返回 e（自然對數(shù)的底）的冪次方。Hex返回指定數(shù)字的十六進制值。Int返回指定數(shù)字的整數(shù)部分。Fix返回指定數(shù)字的整數(shù)部分。Log返回指定數(shù)字的自然對數(shù)。Oct返回指定數(shù)字的余弦值。Rnd返回小于

42、1但大于或等于0的一個隨機數(shù)。Sgn返回可指示指定的數(shù)字的符號的一個整數(shù)。Sin返回指定數(shù)字（角度）的正弦。Sqr返回指定數(shù)字的平方根。Tan返回指定數(shù)字（角度）的正切。TopArray數(shù)組 函數(shù)函數(shù)描述Array返回一個包含數(shù)組的變量Filter返回下標從零開始的數(shù)組，其中包含基于特定過濾條件的字符串數(shù)組的子集。IsArray返回一個布爾值，可指示指定的變量是否是數(shù)組。Join返回一個由數(shù)組中若干子字符串組成的字符串。LBound返回指定數(shù)組維數(shù)的最小下標。Split返回下標從0開始的一維數(shù)組，包含指定數(shù)目的子字符串。UBound返回指定數(shù)組維數(shù)的最大下標。TopString字符串 函數(shù)函數(shù)

43、描述InStr返回字符串在另一字符串中首次出現(xiàn)的位置。檢索從字符串的第一個字符開始。InStrRev返回字符串在另一字符串中首次出現(xiàn)的位置。檢索從字符串的最末字符開始。LCase把指定字符串轉換為小寫。Left從字符串的左側返回指定數(shù)目的字符。Len返回字符串中的字符數(shù)目。LTrim刪除字符串左側的空格。RTrim刪除字符串右側的空格。Trim刪除字符串左側和右側的空格。Mid從字符串返回指定數(shù)目的字符。Replace使用另外一個字符串替換字符串的指定部分指定的次數(shù)。Right返回從字符串右側開始指定數(shù)目的字符。Space返回由指定數(shù)目的空格組成的字符串。StrComp比較兩個字符串，返回代表

44、比較結果的一個值。String返回包含指定長度的重復字符的字符串。StrReverse反轉字符串。UCase把指定的字符串轉換為大寫。Top其他函數(shù)函數(shù)描述CreateObject創(chuàng)建指定類型對象。Eval計算表達式，并返回結果。GetLocale返回當前區(qū)域設置 ID 值。GetObject返回對文件中 automation 對象的引用。GetRef允許您把 VBScript 子程序連接到頁面上的一個 DHTML 事件。InputBox可顯示對話框，用戶可在其中輸入文本，并/或點擊按鈕，然后返回結果。IsEmpty返回一個布爾值，指示指定的變量是否已被初始化。IsNull返回一個布爾值，指示

45、指定的變量是否包含無效數(shù)據(jù) (Null)。IsNumeric返回一個布爾值，指示指定的表達式是否可作為數(shù)字來計算。IsObject返回一個布爾值，指示指定的表達式是否是一個 automation 對象。LoadPicture返回一個圖片對象。僅用于32位平臺。MsgBox顯示消息框，等待用戶點擊按鈕，并返回指示用戶點擊了哪個按鈕的值。RGB返回一個表示 RGB 顏色值的數(shù)字。Round對數(shù)進行四舍五入。ScriptEngine返回使用中的腳本語言。ScriptEngineBuildVersion返回使用中的腳本引擎版本號。ScriptEngineMajorVersion返回使用中的腳本引擎的主

46、版本號。ScriptEngineMinorVersion返回使用中的腳本引擎的次版本號。SetLocale設置地區(qū) ID ，并返回之前的地區(qū) ID。TypeName返回指定變量的子類型。VarType返回指示變量子類型的值。Cbool函數(shù)將變量轉換成布爾值；Cbyte函數(shù)將變量轉換為0到255之間的整數(shù)。Ccur函數(shù)、Cdbl函數(shù)和Csng函數(shù)將變量轉換為浮點數(shù)值，前者只精確到小數(shù)點后四位，后兩者要更加精確，數(shù)值的范圍也要大的多。Cdate函數(shù)將變量轉換為日期值。Cint函數(shù)和Clng函數(shù)將變量轉換為整數(shù)，后者的范圍比前者要大的多。Cstr函數(shù)將變量轉換為字符串。19 獲取web下拉框中數(shù)據(jù)的

47、行數(shù)和數(shù)據(jù)值1.獲取行數(shù)：首先將webtable添加到對象庫中，查看對象庫里有該webtable的屬性后count=Browser("").Page("age").Frame("").WebTable(".").RowCount   Msgbox count 查看行數(shù)2.獲取數(shù)據(jù)值,   for i=1 to  count    value=Browser("").Page("age")

48、.Frame("").WebTable(".").getcelldata(i,1)   msgbox value   next獲取到列表中的數(shù)值后，qtp的對象庫中沒有這個WebElement的對象，一般采用描述性編程的方法獲取對象，比如：用getcelldata獲取的表中數(shù)據(jù)的innertext屬性是“普通崗”，那么就可以用如下代碼：for i=1 to  count       value=Browser("").Page

49、("age").Frame("").WebTable(".").getcelldata(i,1)   Browser(“”).Page(“Page”).Frame(“”). WebElement(“innertext:=“&value,”index:=1”).clicknext20 對象獲得焦點判斷某個webedit輸入框是否獲取了焦點，如果沒有獲取就給它焦點，然后輸入數(shù)值。代碼如下：if not browser("*").page(“*").webedit(“*")

50、.object.isdisabled  then         .object.focus         .object.set "輸入數(shù)值“21 獲取對象當前屬性值用GetROProperty可以獲取對象的當前屬性值，比如一些對象的屬性經(jīng)常發(fā)生變化，用getroproterty就能定位對象當前的屬性狀態(tài)來執(zhí)行相應的操作。Dim propro= browser("*").page(“*").webedit(“&#

51、160; *“). GetROProperty（“property”,value)Msgbox pro 彈出窗口，查看獲取的屬性。22 Systemutil對象的應用利用systemutil可以實現(xiàn)的功能：回放qtp腳本時禁止鼠標和鍵盤的輸入；打開應用程序或web；通過句柄關閉進程；通過進程名關閉進程等。下面的代碼是打開百度網(wǎng)頁：  systemutil.run “iexplore.exe”,“       打開百度的首頁，最后面的參數(shù)“3” 代表打開ie后最大化   SystemUtil.Cl

52、oseProcessByName(“iexplore.exe”)      關閉ie   23 Action的使用action分為內部調用和外部調用2種方法：內部調用使用split劃分；外部調用時被調用的action設置成share，并共享對象庫。   split action：RunAction "action", oneIteration24.  隨機數(shù)在測試中有時會用到隨即數(shù)，有多種方法：第一種 ：n=randomnumber.value(1,255) 

53、60;n的值從1到255之間隨即產生第二種 ：randomize      更新反回的數(shù)據(jù)          dim n             n=int (10*rnd()             msgbox n        n為10以內的整數(shù)25 “is+*”類型功能   isarray'是否是數(shù)組 isconnected'判斷QTP是否連接到TD isdate'是否是合法的日期類型 isempty'判斷是否初始化 isNull'判斷是否為空值 isNumeric'判斷是否是數(shù)字型 isobject'判斷是否一個功能對象 isready'判斷設備是否準備就緒 isRootFolder'是否是根目錄2