51Testing软件测试网 »
Coffey111111的个人空间
欢迎访问 Coffey111111 的个人空间
我的论坛主题
-
2007-01-10 09:43:23 / [QuickTest Professional]
fileName = Environment.ExternalFileNameIf (fileName = "") ThenEnvironment.LoadFromFile("C:\example.xml")End If'显示外部文件中一个环境变量的值msgbox Environment("MyVarName")请问大家在msgbox Environment("MyVarName") 一句中的MyVarName参数是外部文件中的什么环境变量?具体的是什么的环境变量我不清楚,请大家指教~~
查看(1269)
评论(6)
-
2007-01-05 08:47:25 / [QuickTest Professional]
Browser("Browser").Page("Page_2").Check CheckPoint("Page_2")Browser("Browser").Page("Page_2").WebList("filter1").Select "1 周以来"'With .Frame("****")'.WebList("filter1").Select "一天"Dimc1,s1c1=Browser("Browser").Page("Page_2").WebList("filter1").GetROProperty("items count")msgbox c1s1=Browser("Browser").Page("Page_2").WebList("filter1").GetItem(c1)msgbox s1就是执行这段脚本没有通过,出现这个结果,不知道为什么?请大师指教~~C:\Documents and Settings\Administra.
查看(1287)
评论(7)
-
2006-12-20 13:53:25 / [QuickTest Professional]
Dim aPublic Function CheckObjectDesription(parent, descr)Dim oDesc' Create description objectSet oDesc = Description.Create()arProps = Split(descr, ",")For i = 0 To UBound(arProps)arProp = Split(arProps(i), ":=")If UBound(arProp) = 1 ThenPropName = Trim(arProp(0))PropValue = arProp(1)oDesc(PropName).Value = PropValueEnd IfNext' Get all child objects with the given descriptionSet children = parent.ChildObjects(oDesc)If children.Coun.
查看(1523)
评论(8)
-
2006-12-20 11:18:41 / [QuickTest Professional]
Err.Raise 6'发生溢出错误。MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)Err.Clear' 清除错误。该程序在运行时出现提示“Err.Raise 6'发生溢出错误。MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)Err.Clear' 清除错误。”的错误,不知道有谁能帮帮解决?
查看(1505)
评论(7)
-
2006-12-12 11:27:50 / [QuickTest Professional]
用相对与窗体录制,为什么我选的窗体QTP没有识别出来呀?请教大家~~
查看(882)
评论(0)