SOS,怎么实现IE最大化,最小化?

sywen0309

我现在碰到个棘手的问题.
程序是这样的: 收到一封email后,弹出一个网页,这个网页显示后,会自动最小化.

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

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

谢谢大家,帮我想想.

yhzmw

试了半天。好像browser不支持maximize，minimize方法

yhzmw

最小化可以直接实现，在百度下面的例子：Browser("百度一下，你就知道").WinMenu("SystemMenu").Select "最小化(N)"
最大化比较麻烦（因为最小化后页面在toolbar上面）

yhzmw

实现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

我去试试,谢谢~~~