51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1875|回复: 9
打印 上一主题 下一主题

[求助] 如何通过代码控制Active Screen的级别

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-8-1 19:23:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如何通过代码控制Active Screen的级别???
默认级别为Partial  偶想通过代码来控制  看了下书 自动化对象模型里没介绍到怎么设置它  望知道的能不吝赐教啊!!  感激不尽!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2009-8-1 21:10:52 | 只看该作者
这个你也想代码控制-.-!控制欲满强...

想别的替代方案吧...
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2009-8-1 21:19:28 | 只看该作者
难道不行????
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2009-8-3 15:41:59 | 只看该作者
弱弱的问一下,我能不能用QTP来控制我的????,做个
for循环行不?
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2009-8-3 15:43:19 | 只看该作者
原帖由 lvguobin 于 2009-8-3 15:41 发表
弱弱的问一下,我能不能用QTP来控制我的????,做个
for循环行不?

怎么回事 为什么这????四个字是乱码?
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2009-8-3 15:44:02 | 只看该作者
原帖由 wshyzhywx 于 2009-8-1 21:19 发表
难道不行????

你的也乱码了吗?
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2009-8-3 22:28:38 | 只看该作者
-。-!内含敏感字符被系统屏蔽~楼上两位淫荡,鉴定完毕
回复 支持 反对

使用道具 举报

该用户从未签到

8#
 楼主| 发表于 2009-8-4 10:12:06 | 只看该作者
自己顶  期待有人解答这个问题
回复 支持 反对

使用道具 举报

该用户从未签到

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

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

'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
回复 支持 反对

使用道具 举报

该用户从未签到

10#
 楼主| 发表于 2009-8-10 14:01:13 | 只看该作者
谢谢楼上提供  不是偶不想研究呀    看帮助里根本就找不到这个资料
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-14 16:46 , Processed in 0.074075 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表