51Testing软件测试论坛

标题: SOS,怎么实现IE最大化,最小化? [打印本页]

作者: sywen0309 时间: 2007-4-6 14:45
标题: SOS,怎么实现IE最大化,最小化?
我现在碰到个棘手的问题.
程序是这样的: 收到一封email后,弹出一个网页,这个网页显示后,会自动最小化.

问题是:QTP录制后,这个自动最小化的动作会消失,不管我等多久,这个网页都不会被最小化了.如果手动最小化的话,程序不认可,此后的操作会出现异常. 大家谁知道怎么解决么?

如果此问题可以解决,那么我如果让这个最小化的网页又最大化?

谢谢大家,帮我想想.

作者: yhzmw 时间: 2007-4-9 13:56
试了半天。好像browser不支持maximize，minimize方法

作者: yhzmw 时间: 2007-4-9 15:13
最小化可以直接实现，在百度下面的例子：Browser("百度一下，你就知道").WinMenu("SystemMenu").Select "最小化(N)"
最大化比较麻烦（因为最小化后页面在toolbar上面）

作者: yhzmw 时间: 2007-4-9 16:01
实现ie最大化最小化的完整脚本，在第一步最小化的时候比较慢，不知道什么原因。
Browser("百度一下，你就知道").WinMenu("SystemMenu").Select "最小化(N)"
coun= window("Window").WinToolbar("运行应用程序").GetItemsCount  '得到工具栏中的所有程序
For i = 1 to coun
cname= window("Window").WinToolbar("运行应用程序").GetItemProperty(i,"name") '取他们的name值
If  cname = "百度一下，你就知道 - Microsoft Internet Explorer"  Then
wait 1
window("Window").WinToolbar("运行应用程序").Press i ,micRightBtn
   Exit For
   End If
Next
index = 5 '最大化操作在右键的第五项。
Set WshShell = CreateObject("Wscript.Shell")
   For i = 1 To index
   WshShell.sendKeys "{DOWN}" '在弹出的右键菜单中依次下移到第五个
   wait 1
   Next
WshShell.sendKeys "{ENTER}"  '选择最大化操作
wait 1
Set WshShell = nothing

[ 本帖最后由 yhzmw 于 2007-4-12 14:58 编辑 ]

作者: sywen0309 时间: 2007-4-9 16:22
标题: 谢谢你
我去试试,谢谢~~~

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