如何通过代码控制Active Screen的级别

wshyzhywx

如何通过代码控制Active Screen的级别???
默认级别为Partial  偶想通过代码来控制  看了下书 自动化对象模型里没介绍到怎么设置它  望知道的能不吝赐教啊!!  感激不尽!

dabeixiong

这个你也想代码控制-.-!控制欲满强...

想别的替代方案吧...

wshyzhywx

难道不行????

lvguobin

弱弱的问一下，我能不能用QTP来控制我的？？？？，做个
for循环行不？

lvguobin

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

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

lvguobin

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

你的也乱码了吗？

dabeixiong

-。-!内含敏感字符被系统屏蔽~楼上两位淫荡，鉴定完毕

wshyzhywx

自己顶  期待有人解答这个问题

dabeixiong

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

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

'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

谢谢楼上提供  不是偶不想研究呀    看帮助里根本就找不到这个资料