动漫美女露屁股无遮挡的视频,免费看日本美女视频

QTP實(shí)用函數(shù)（包括WEBTABLE等）

自動(dòng)化測(cè)試 2009-11-17 15:57 閱讀16 評(píng)論0 字號(hào)：大大  中中  小小 DTParameter對(duì)象指的是運(yùn)行時(shí)DataTable Sheet中的列對(duì)象。

注意：所有應(yīng)用于DTParameter對(duì)象的方法僅適用于run-time DataTable對(duì)象。所有對(duì)run-time DataTable對(duì)象的改變只影響測(cè)試結(jié)果，不影響design-time Data Table。

1.    Property

      Name

描述

返回run-time Data Table的列名。

語法

DTParameter.Name

示例

下面的例子使用“Name”方法返回run-time Data Table中新創(chuàng)建的列的名稱，并將列名寫入Report。

Dim paramname

paramname = DataTable.LocalSheet.AddParameter("Food", "pizza").Name

Reporter.ReportEvent 1, "The New Parameter name is", paramname

      RawValue

描述

獲取當(dāng)前行指定列所對(duì)應(yīng)的單元格的原始數(shù)據(jù)。原始數(shù)據(jù)是尚未計(jì)算處理過的數(shù)據(jù)，如單元格中的公式內(nèi)容等。

語法

DTParameter.RawValue

本語法與DataTable.RawValueParameterID[,SheetID]用途是一樣的，但是使用方法不同。

示例

下面的例子使用RawValue屬性來獲取run-time Data Table的“ActionA”表“Date”列的當(dāng)前行所對(duì)應(yīng)的單元格中的公式。本例中的返回值應(yīng)該是“＝Now()“。

FormulaVal=DataTable.GetSheet("ActionA").GetParameter("Date").RawValue

      Value

描述

這個(gè)屬性是列對(duì)象的默認(rèn)屬性。獲取或設(shè)置列的當(dāng)前行所對(duì)應(yīng)的單元格的數(shù)據(jù)。

注意：這個(gè)方法返回的數(shù)據(jù)是計(jì)算后的數(shù)據(jù)。假如單元格中包括公式，則這個(gè)方法返回True或False。

語法

獲取單元格數(shù)據(jù):

DTParameter.Value or DTParameter

設(shè)置單元格數(shù)據(jù):

DTParameter.Value=newvalueor DTParameter=newvalue

示例

下面的例子使用Value來設(shè)置Sheet“ActionA”的“Destination”列的當(dāng)前行所對(duì)應(yīng)的單元格的數(shù)據(jù)。

DataTable.GetSheet("ActionA").GetParameter("Destination").Value="New York"

注意:可以省略本語句中的“Value”，因?yàn)閂alue是DTParameter的默認(rèn)屬性。

      ValueByRow

描述

獲取指定列指定行所對(duì)應(yīng)的單元格的數(shù)據(jù)。

語法

DTParameter.ValueByRow(RowNum)

Argument
Type
Descrīption

RowNum
Number
指定行號(hào)。行號(hào)從1開始。

示例

下面的例子使用“ValueByRow”來獲得表“ActionA”的“Destination”列的第4行數(shù)據(jù)。

DataTable.GetSheet("ActionA").GetParameter("Destination").ValueByRow(4)

1.GetCellData函數(shù)

作用:獲取單元格的值

例: rowCount = Browser("xxx ").Page("xxx ").Frame("xxx").WebTable("xxx").RowCount

For counter = 1 To rowCount

text = Browser("xxx").Page("xxx").Frame("xxx").WebTable("xxx").GetCellData(counter,1)

If (text = "xxx") Then

counter = counter - 1

selectNO = "#" & counter

Browser("xxx").Page("xxx").Frame("xxx").WebRadioGroup("xxx").Select selectNO

Exit For

End If

Next

2.把值插入datatable里

例: datatable.setcurrentrow(i)

      datatable.value("name","Global")="name"

      datatable.value("passwd","Global")="passwd"

3.用代碼來啟動(dòng)瀏覽器

Browser1 = "IE"

StartURL = "www.51testing.com"

IF Browser1 = "IE" THEN

   set IE = CreateObject("InternetExplorer.Application")

   IE.Visible = true

   IE.Navigate StartURL

END IF

4.ExecuteFile函數(shù)

作用:ExecuteFile 可以直接執(zhí)行vbs文件，而不需要將其導(dǎo)入resource中

   ExecuteFile FileName

說明:where FileName is the absolute or relative path of your VBscrīpt file.

例:ExecuteFile("F:"test.vbs")

5.Strcomp函數(shù)

作用:比較文本

例:dim strtext1,strtext2,str ,str1,comp1

   strtext1 = "xxx"

   strtext2 = "xxx"

   str = VbWindow("xxx").VbWindow("xxx").VbLabe1("xxx").GetTOProperty("text")

   str1= VbWindow("xxx").VbWindow("xxx").VbLabel("xxx").GetTOProperty("text")

   comp1=strcomp(strtext1,str,0)

   If comp=0 Then

      msgbox “這兩個(gè)串相等”

   else

   msgbox str

   End If

6.CaptureBitmap

作用:捕獲屏幕

7. GetROProperty

作用:取對(duì)象屬性值

例:VbWindow("xxx").VbWindow("xxx").VbWindow("xxx").ActiveX("xxx").GetROProperty("TextMatrix(1,0)")　

8.ExitAction - 退出當(dāng)前操作，無論其循環(huán)屬性如何。

ExitActionIteration - 退出操作的當(dāng)前循環(huán)。

ExitRun - 退出測(cè)試，無論其循環(huán)屬性如何。

ExitGlobalIteration - 退出當(dāng)前全局循環(huán)。

9.如何使用Excel對(duì)象處理數(shù)據(jù)？

Dim xl

打開excel文件

Function OpenExcelFile(strFilePath)

Set xl = CreateObject("Excel.Application")

xl.Workbooks.Open strFilePath

End Function

獲得指定單元格數(shù)據(jù)

Function GetCellData(strSheet,rwIndex,colIndex)

GetCellData = xl.WorkSheets(strSheet).Cells(rwIndex,colIndex)

End Function

填充單元格數(shù)據(jù)

Function PutCellData(strSheet,rwIndex,colIndex,varData)

xl.WorkSheets(strSheet).Cells(rwIndex,colIndex) = varData

End Function

保存并推出

Function SaveAndQuit()

xl.Activeworkbook.save

xl.Quit

Set xl = nothing

End Function

10.連接sql數(shù)據(jù)庫

例

im res,cmd,sql

   Set Res=createobject("adodb.recordset")

   Set Cmd=createobject("adodb.command")

   Cmd.activeconnection="

rovider=SQLOLEDB.1

assword=111111

ersist Security Info=True;User ID=sa;Initial Catalog=xhq;Data Source=192.168.191.142"　?。н@句話是連接數(shù)據(jù)庫的數(shù)據(jù)源，要做修改

Cmd.CommandType = 1

sql="selec t * from 表 where name=username"

Cmd.CommandText = sql

Set res = Cmd.Execute()

Set res = nothing

Set cmd.ActiveConnection = nothing

Set Cmd= nothing

11 檢查頁面是否存在
對(duì)象exist可以檢查某一個(gè)頁面是否存在。
代碼：
if Browser("…").Page(“…").Exist then
‘在運(yùn)行結(jié)果中顯示的報(bào)告， “micPass”的狀態(tài)是通過， micFail是不通過
reporter.ReportEvent micPass ,“頁面存在“,”通過“
else
reporter.ReportEvent micFail ,"頁面不存在“,"不通過"
end if

12 防止程序中斷的方法
在回放腳本的時(shí)候，有時(shí)因?yàn)殄e(cuò)誤導(dǎo)致運(yùn)行的腳本中斷，不能自動(dòng)運(yùn)行。為了能達(dá)到真正無人職守的狀態(tài)可以在腳本的最前面加上如下的代碼：
On error resume next  ‘遇到錯(cuò)誤返回到腳本的下一行繼續(xù)執(zhí)行。
On error goto 0 ‘錯(cuò)誤處理的控制權(quán)，平時(shí)是由QTP控制的（這個(gè)叫默認(rèn)的），當(dāng)有on error resume next 時(shí)，是交給on error處理，當(dāng)on error goto 0時(shí)，就換給QTP

13 同步點(diǎn)的設(shè)定
等待某一對(duì)象出現(xiàn)后繼續(xù)執(zhí)行，為了防止qtp找不到對(duì)象而設(shè)定同步點(diǎn)。有2種方法：1種是用wait加等待的時(shí)間，如wait 5（qtp等待5秒鐘后繼續(xù)執(zhí)行）。另一種方法是等待要執(zhí)行對(duì)象的出現(xiàn)，如果出現(xiàn)就繼續(xù)執(zhí)行，否則一直等待，代碼如下：
y=......waitproperty("visible",true,10000)
If y=true then
‘執(zhí)行下一條語句
else
’對(duì)象不出現(xiàn)就一直等待，直到過了10000秒后程序找不到對(duì)象報(bào)錯(cuò)
End if

14 截屏
在優(yōu)化腳本時(shí)，如果想查看某一頁面在執(zhí)行后的頁面效果，可以采取截屏的辦法截取當(dāng)前的操作頁面并保存到本地。代碼：
desktop. capturebitmap “c:"***.bmp“,ture    ’在腳本中想要查看的一行插入，運(yùn)行后圖片保存到設(shè)置的路徑下

15 導(dǎo)入execl文件并參數(shù)化數(shù)據(jù)方法
Qtp自帶了datatable表，可以把要參數(shù)化的數(shù)據(jù)寫在里面，但這樣寫腳本和數(shù)據(jù)不能分離，后期不好維護(hù)腳本?，F(xiàn)在采用從外部導(dǎo)入execl文件的方法導(dǎo)入數(shù)據(jù)。代碼如下：
datatable.ImportSheet “D:"..."data.xls”,“sheet1”,“global“
‘第一個(gè)參數(shù)是要導(dǎo)入文件的路徑，第二個(gè)是execl的第一個(gè)表格，第三個(gè)參數(shù)是在execl的全局范圍內(nèi)查找
另外datatable對(duì)象還有很多操作，比如：獲取表中字段的行數(shù)，插入表數(shù)據(jù)，刪除數(shù)據(jù)等，下面是獲取表中數(shù)據(jù)的代碼：datatable("A","dtglobalsheet)

16 為描述性編程自動(dòng)創(chuàng)建注釋
當(dāng)希望在每一個(gè)新建action時(shí)都增加一些頭部說明，比如作者、創(chuàng)建日期、說明等信息，那么用action template 來實(shí)現(xiàn)最簡(jiǎn)單快捷。方法：用記事本等文本編輯器，輸入如下類似的內(nèi)容：          'Company:東方般若          'Date: Date       然后將文件保存為ActionTemplate.mst，并存放到QTP安裝目錄下的dat目錄。

17 導(dǎo)入vbs文件
想要實(shí)現(xiàn)腳本的函數(shù)化，并更好的維護(hù)它，可以把一些公用的函數(shù)寫到vbs里面，用qtp來調(diào)用它。
實(shí)現(xiàn)調(diào)用vbs的方法有2種：
1.函數(shù)executefile加vbs文件的路徑
  executefile “c："..."funcation.vbs”
2.設(shè)置QTP test/settings/resources/+函數(shù)目錄

18 時(shí)間差函數(shù)
統(tǒng)計(jì)兩個(gè)日期時(shí)間段之間的間隔，還有多少小時(shí)
Dim timediff
timediff=datediff(“H”,now,“2008-8-8” ）
Print timediff

2^#

發(fā)表于 2010-1-26 17:20 | 只看該作者

19 獲取web下拉框中數(shù)據(jù)的行數(shù)和數(shù)據(jù)值
1.獲取行數(shù)：首先將webtable添加到對(duì)象庫中，查看對(duì)象庫里有該webtable的屬性后
count=Browser("…").Page("

age").Frame("…").WebTable("...").RowCount
Msgbox count ‘查看行數(shù)
2.獲取數(shù)據(jù)值,
for i=1 to count
value=Browser("…").Page("

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

age").Frame("…").WebTable("...").getcelldata(i,1)

Browser(“…”).Page(“Page”).Frame(“…”). WebElement(“innertext:=“&value,”index:=1”).click
next

20 對(duì)象獲得焦點(diǎn)
判斷某個(gè)webedit輸入框是否獲取了焦點(diǎn)，如果沒有獲取就給它焦點(diǎn)，然后輸入數(shù)值。代碼如下：

if not browser("**").page(“**").webedit(“
**").object.isdisabled  then
      .object.focus
      .object.set "輸入數(shù)值“

21 獲取對(duì)象當(dāng)前屬性值
用GetROProperty可以獲取對(duì)象的當(dāng)前屬性值，比如一些對(duì)象的屬性經(jīng)常發(fā)生變化，用getroproterty就能定位對(duì)象當(dāng)前的屬性狀態(tài)來執(zhí)行相應(yīng)的操作。
Dim pro
pro= browser("**").page(“**").webedit(“
  **“). GetROProperty（“property”,value)
Msgbox pro ‘彈出窗口，查看獲取的屬性。

22 Systemutil對(duì)象的應(yīng)用
利用systemutil可以實(shí)現(xiàn)的功能：回放qtp腳本時(shí)禁止鼠標(biāo)和鍵盤的輸入；打開應(yīng)用程序或web；通過句柄關(guān)閉進(jìn)程；通過進(jìn)程名關(guān)閉進(jìn)程等。下面的代碼是打開百度網(wǎng)頁：
  systemutil.run “iexplore.exe”,“http://www.baidu.com”,“”,“”,“”,3       ‘打開百度的首頁，最后面的參數(shù)“3” 代表打開ie后最大化

SystemUtil.CloseProcessByName(“iexplore.exe”)    ‘關(guān)閉ie

23 Action的使用
action分為內(nèi)部調(diào)用和外部調(diào)用2種方法：內(nèi)部調(diào)用使用split劃分；外部調(diào)用時(shí)被調(diào)用的action設(shè)置成share，并共享對(duì)象庫。
split action：RunAction "action", oneIteration

24.  隨機(jī)數(shù)
在測(cè)試中有時(shí)會(huì)用到隨即數(shù)，有多種方法：
第一種：n=randomnumber.value(1,255)  ’n的值從1到255之間隨即產(chǎn)生
第二種：randomize    ‘更新反回的數(shù)據(jù)       dim n
         n=int (10*rnd())
         msgbox n       ‘n為10以內(nèi)的整數(shù)

25 “is+*”類型功能
isarray'是否是數(shù)組 isconnected'判斷QTP是否連接到TD isdate'是否是合法的日期類型 isempty'判斷是否初始化 isNull'判斷是否為空值 isNumeric'判斷是否是數(shù)字型 isobject'判斷是否一個(gè)功能對(duì)象 isready'判斷設(shè)備是否準(zhǔn)備就緒 isRootFolder'是否是根目錄

26 對(duì)象庫
打開對(duì)象庫resources->object repository，或者用快捷方式：ctrl+r來打開。
1.Qtp中的對(duì)象庫和腳本是一一對(duì)應(yīng)的，如果腳本中某個(gè)對(duì)象在對(duì)象庫中不存在，則無法回放成功，會(huì)提示找不到對(duì)象。
2.對(duì)無法識(shí)別的對(duì)象用spy工具獲得后添加到對(duì)象庫中。
3.有時(shí)候腳本回放失敗就是找不到對(duì)象的原因，可以通過用spy工具查看找不到對(duì)象的屬性，然后打開對(duì)象庫，比較二者的屬性信息，如果屬性有不相同的說明就是屬性的原因，可以通過更改屬性的方式統(tǒng)一對(duì)象屬性。

27 調(diào)試腳本
1.腳本編寫完畢，可以用按ctrl+f7來查看腳本是否有語法錯(cuò)誤。
2. Msgbox和print：在回放腳本時(shí)可以方便的查看自己想看到的信息。
3.設(shè)置斷點(diǎn)：為了測(cè)試某一小段腳本的功能，而當(dāng)整個(gè)action很長的時(shí)
候，可以設(shè)置斷點(diǎn)單步debug。

28 強(qiáng)制退出
遇到問題退出可以用exittest或 exit for，例如下面代碼：
Public function text_exit()
   for i=0 to 10
         if i=3 then
            exittest
            ‘exit for
         end if
   next
End function

Text_exit()

29 連接數(shù)據(jù)庫_增刪改
Dim conn,strSql '定義變量
set conn = CreateObject("ADODB.Connection") '創(chuàng)建連接
conn.ConnectionString="

rovider=SQLOLEDB.1

assword=isaac121379

ersist Security Info=True;User ID=sa;Initial Catalog=WisdomCRM;Data source=192.168.12.29" '設(shè)置連接字符串
conn.open  '開啟連接
'strSql="insert into UM_User  values(1,'UserID')"  '設(shè)置插入語句
strSql="drop  table TM_Task_14_Target"
'strSql="select *  from UM_User"
If conn.state=0 Then '如果連接狀態(tài)為0，表示連接失敗，寫入reporter對(duì)象中，否則表示連接成功
Reporter.ReportEvent micFail,"testing","數(shù)據(jù)庫連接失敗"
conn.close
Set conn = nothing
else
Reporter.ReportEvent micPass,"testing","數(shù)據(jù)庫連接成功"
conn.execute strSql '執(zhí)行更新語句
conn.close
Set conn = nothing
End If

3^#

發(fā)表于 2010-1-26 17:21 | 只看該作者

30 連接數(shù)據(jù)庫_查
Dim conn,res,strSql '定義變量
set conn = CreateObject("ADODB.Connection") '創(chuàng)建連接
conn.ConnectionString="

rovider=SQLOLEDB.1

assword=isaac121379

ersist Security Info=True;User ID=sa;Initial Catalog=WisdomCRM;Data source=192.168.12.29"  '設(shè)置連接字符串
conn.open  '開啟連接
Set res = CreateObject("ADODB.RecordSet") '創(chuàng)建一個(gè)記錄集對(duì)象
strSql="select * from UM_User"  '設(shè)置查詢雨具
If conn.state=0 Then '如果連接狀態(tài)為0，表示連接失敗，寫入reporter對(duì)象中，否則表示連接成功
Reporter.ReportEvent micFail,"testing","數(shù)據(jù)庫連接失敗"
res.close                            '關(guān)閉結(jié)果集和連接，并且置為空
Set res = nothing
conn.close
Set conn = nothing
else
Reporter.ReportEvent micPass,"testing","數(shù)據(jù)庫連接成功"
res.open strSql,conn '執(zhí)行查詢語句
res.MoveFirst       '將記錄集游標(biāo)指到記錄集的最開始
Do
   Reporter.ReportEvent micPass,"file",cstr(res(0))+" : "+cstr(res(1))  '循環(huán)遍歷查詢結(jié)果，并且保持到reproter對(duì)象中，直到記錄集到達(dá)末尾，循環(huán)結(jié)束
   res.MoveNext
Loop until res.eof = true
res.close
Set res = nothing
conn.close
Set conn = nothing
End If
低級(jí)錄制
在無法識(shí)別對(duì)象時(shí)使用
利用Vbs運(yùn)行外部程序
WSH也就是用來解析Vbs的宿主，本身包含了幾個(gè)個(gè)常用對(duì)象：
1、scrīpting.FileSystemObject  —>  提供一整套文件系統(tǒng)操作函數(shù)
2、scrīpting.Dictionary  —>  用來返回存放鍵值對(duì)的字典對(duì)象
3、Wscrīpt.Shell  —>  提供一套讀取系統(tǒng)信息的函數(shù)，如讀寫注冊(cè)表、查找指定文件的路徑、讀取DOS環(huán)境變量，讀取鏈接中的設(shè)置
4、Wscrīpt.NetWork  —>
提供網(wǎng)絡(luò)連接和遠(yuǎn)程打印機(jī)管理的函數(shù)。（其中，所有scrīpting對(duì)象都存放在SCRRUN.DLL文件中，所有的Wscrīpt對(duì)象都存放在WSHOM.ocx文件中。）
現(xiàn)在我們需要的是第三個(gè)對(duì)象，好了，讓我們先連接一下對(duì)象看看，在記事本的編輯窗口中輸入：
Set ōbjShell = CreateObject(“Wscrīpt.Shell”)
objShell.Run “notepad”
Objshell.run “calc”

自建日志
Public Sub logfile(message)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fileSystemObj, fileSpec
Dim currentTime
currentDate = Date
currentTime = Time
testName = "log"
Set fileSystemObj = CreateObject("scrīpting.FileSystemObject")
fileSpec ="f:"log.txt"
If Not (fileSystemObj.FileExists(filespec)) Then
Set logFile = fileSystemObj.CreateTextFile(fileSpec, ForWriting, True)
logFile.WriteLine("###############################################")
logFile.WriteLine (currentDate & currentTime & " Test: " & environment.Value("TestName") )
logFile.WriteLin("######################################")
logFile.Close
Set logFile = Nothing
End If
Set logFile = fileSystemObj.OpenTextFile(fileSpec, ForAppending, False, True)
logFile.WriteLine (currentDate & " "& currentTime & " " & message)
logFile.Close
Set logFile = Nothing
Set fileSystemObj = Nothing
End Sub
logfile(“ok")
Vb6生成dll
Environment對(duì)象
檢查頁面文字顯示顏色
Set Elements = Browser(“WisdomCRM客戶關(guān)系管理系統(tǒng)”).Object.Document.all.tags(“div”)’tags（“td”）為在td中檢查
For each Element in Elements
  If Element.InnerText="執(zhí)行團(tuán)隊(duì)" Then
strhtml=Element.Innerhtml
n=instr(strhtml,"color=red")
If n=0 Then
   msgbox "Text color is red!"
exit for
End If
  End If
Next
關(guān)閉重復(fù)的頁面
Dim loginwin
Set loginwin = descrīption.Create()                            '創(chuàng)建對(duì)象名為loginwin的對(duì)象
loginwin( "name").value="WisdomCRM客戶關(guān)系管理系統(tǒng)" '對(duì)象屬性及值

Set child=desktop.ChildObjects (loginwin)
cout=child.count
msgbox cout
For i=1 to cout
child(i-1).close  '循環(huán)尋找這個(gè)對(duì)象
Next
獲取當(dāng)前測(cè)試的路徑
Path = environment("TestDir")'獲取當(dāng)前測(cè)試的路徑
msgbox path
獲取本機(jī)ip
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

for each IPConfig in IPConfigSet
if Not IsNull(IPConfig.IPAddress) then
for i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
Msgbox IPConfig.IPAddress(i)
next
end if
next
點(diǎn)亮對(duì)象
highlight
fireEvent用法
針對(duì)Link對(duì)象，onmouseover時(shí)間, 還有onchange, onclick, ondblclick, onblur, onfocus, onmousedown, onmouseup, onmouseout, onsubmit, onreset, onpropertychange事件可以使用
sendkeys實(shí)例
Set wshshell=createobject(“wscrīpt.shell”)
其使用格式為：object.SendKeys string “object”：表示W(wǎng)shShell對(duì)象 “string”：表示要發(fā)送的按鍵指令字符串，需要放在英文雙引號(hào)中。 1.基本鍵　　一般來說，要發(fā)送的按鍵指令都可以直接用該按鍵字符本身來表示，例如要發(fā)送字母“x”，使用“WshShell.SendKeys "x"”即可。當(dāng)然，也可直接發(fā)送多個(gè)按鍵指令，只需要將按鍵字符按順序排列在一起即可，例如，要發(fā)送按鍵“happy”，可以使用“WshShell.SendKeys "happy"”。
sendkeys實(shí)例
2.特殊功能鍵對(duì)于需要與Shift、Ctrl、Alt三個(gè)控制鍵組合的按鍵，SendKeys使用特殊字符來表示： Shift---------WshShell.SendKeys "+" Ctrl---------WshShell.SendKeys "^" Alt---------WshShell.SendKeys "%" 由于“+”、“^”這些字符用來表示特殊的控制按鍵了，如何表示這些按鍵呢？只要用大括號(hào)括住這些字符即可。例如: 要發(fā)送加號(hào)“+”，可使用“WshShell.SendKeys "{+}"” 另外對(duì)于一些不會(huì)生成字符的控制功能按鍵，也同樣需要使用大括號(hào)括起來按鍵的名稱，例如要發(fā)送回車鍵，需要用“WshShell.SendKeys "{ENTER}"”表示，發(fā)送向下的方向鍵用“WshShell.SendKeys "{DOWN}"”表示。 Space---------WshShell.SendKeys " " Enter---------WshShell.SendKeys "{ENTER}" ←---------WshShell.SendKeys "{RIGHT}" ↑---------WshShell.SendKeys "{UP}" F1---------WshShell.SendKeys "{F1}" Tips:如果需要發(fā)送多個(gè)重復(fù)的單字母按鍵，不必重復(fù)輸入該字母，SendKeys允許使用簡(jiǎn)化格式進(jìn)行描述，使用格式為“{按鍵數(shù)字}”。例如要發(fā)送10個(gè)字母“x”，則輸入“WshShell.SendKeys "{x 10}"”即可。

先錄制取得初始腳本，再做簡(jiǎn)單的修改和參數(shù)化，再進(jìn)行封裝形成可重用的函數(shù)，最后回放調(diào)試，形成了最終的腳本。

5^#

發(fā)表于 2010-1-26 17:28 | 只看該作者

1.WEB表格類型單元格,不能直接用set錄入,需用以下函數(shù)
Function beizhu()
Dim MyWebElement
Set MyWebElement = Browser("費(fèi)用申請(qǐng)單").Page("費(fèi)用申請(qǐng)單").WebElement("備注").Object
'MyWebElement.innerHTML = DataTable("備注", dtLocalSheet)
MyWebElement.innerHTML = "已經(jīng)修改"
End Function
2.登錄判斷
Function login()
Dim value
if Browser("EAS系統(tǒng)登錄").Page("賬號(hào)重復(fù)登錄").WebButton("忽略").Exist then
Browser("EAS系統(tǒng)登錄").Page("賬號(hào)重復(fù)登錄").WebButton("忽略").Click
End If
End Function
3.快捷鍵盤的函數(shù)
Set Wsh = CreateObject("Wscript.Shell")
Wsh.SendKeys"{DOWN}"
set oShell = Nothing
4.windows窗體TAB，簡(jiǎn)便切換
Browser("EAS Portal").Window("金蝶BI平臺(tái) - 主題配置 -- 網(wǎng)頁對(duì)話框").Type micTab
5.啟動(dòng)IE
SystemUtil.Run DataTable("URL", dtLocalSheet)
6.選中表格
Browser("EAS Portal").Page("EAS Portal").Frame("content").WebElement("WebElement").Click
innertext的值為表格內(nèi)容
7.自帶了隨機(jī)數(shù)參數(shù)，可用于賦值和檢查
8.環(huán)境變量進(jìn)行賦值
Environment("TCase") = testCaseName

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。

国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看