51Testing软件测试论坛

标题: 如何通过代码控制Active Screen的级别 [打印本页]

作者: wshyzhywx 时间: 2009-8-1 19:23
标题: 如何通过代码控制Active Screen的级别
如何通过代码控制Active Screen的级别???
默认级别为Partial 偶想通过代码来控制看了下书自动化对象模型里没介绍到怎么设置它望知道的能不吝赐教啊!! 感激不尽!

作者: dabeixiong 时间: 2009-8-1 21:10
这个你也想代码控制-.-!控制欲满强...

想别的替代方案吧...

作者: wshyzhywx 时间: 2009-8-1 21:19
难道不行????

作者: lvguobin 时间: 2009-8-3 15:41
弱弱的问一下，我能不能用QTP来控制我的？？？？，做个
for循环行不？

作者: lvguobin 时间: 2009-8-3 15:43

原帖由 lvguobin 于 2009-8-3 15:41 发表
弱弱的问一下，我能不能用QTP来控制我的？？？？，做个
for循环行不？

怎么回事为什么这？？？？四个字是乱码？

作者: lvguobin 时间: 2009-8-3 15:44

原帖由 wshyzhywx 于 2009-8-1 21:19 发表
难道不行????

你的也乱码了吗？

作者: dabeixiong 时间: 2009-8-3 22:28
-。-!内含敏感字符被系统屏蔽~楼上两位淫荡，鉴定完毕

作者: wshyzhywx 时间: 2009-8-4 10:12
自己顶期待有人解答这个问题

作者: dabeixiong 时间: 2009-8-9 19:40
兄弟不好意思~光顾着开你们玩笑了没说啥正经的...我见过一段实例代码~希望对你有所帮助，我个人认为有些偏的问题还得靠自己不断地研究，祝你好运~.~!

'************************************************************************************************************************

'Description:

'

'This example opens QuickTest and configures its Active Screen options to minimum level.

'************************************************************************************************************************

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable

Dim qtActiveScreenOpt 'As QuickTest.ActiveScreenOptions ' Declare the Active Screen Options object variable

Dim qtWebActiveScreen 'As QuickTest.WebActiveScreen ' Declare the Web Active Screen object variable

' Set object variables and open QuickTest

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object

qtApp.Launch ' Start QuickTest

qtApp.Visible = True ' Make the QuickTest application visible

Set qtActiveScreenOpt = qtApp.Options.ActiveScreen ' Return the Active Screen Options object

If qtActiveScreenOpt.CaptureLevel <> "None" Then ' If the current capture level is not "None"

' Configure the Active Screen general options (not applicable for all environments)

qtActiveScreenOpt.CaptureLevel = "Minimum" ' Capture properties only for recorded object

' Configure the Active Screen options related to Web

Set qtWebActiveScreen = qtActiveScreenOpt.Web ' Return the Web Active Screen object

qtWebActiveScreen.ActiveScripts = "Disabled" ' Prevent running scripts when loading a page in Active Screen

qtWebActiveScreen.CaptureOriginalHTMLSource = True ' Capture the original HTML source of Web pages before any scripts have run

qtWebActiveScreen.LoadActiveXControls = False ' Do not load ActiveX controls in the Active Screen pane

qtWebActiveScreen.LoadImages = False ' Do not load images in the Active Screen pane

qtWebActiveScreen.LoadJavaApplets = False ' Do not load Java Applets in the Active Screen pane

qtWebActiveScreen.LoadingTimeout = 20 ' Set 20 seconds as the maximum time for the Active Screen to load a page

Set qtWebActiveScreen = Nothing ' Release the Web Active Screen object

End If

Set qtActiveScreenOpt = Nothing ' Release the Active Screen Options object

Set qtApp = Nothing ' Release the Application object

作者: wshyzhywx 时间: 2009-8-10 14:01
谢谢楼上提供不是偶不想研究呀看帮助里根本就找不到这个资料

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)