51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 4079|回复: 16
打印 上一主题 下一主题

[原创] 为什么取不到IE版本号

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2011-2-17 14:33:37 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
'最大化IE浏览器
Sub MaximizeBrowser1
Set BrowserObject = Description.Create()
BrowserObject("NativeClass").Value = "IEFrame"
Set WindowsBrowser = Desktop.ChildObjects(BrowserObject)  
brNum = WindowsBrowser.Count - 1   msgbox("browserNum:"&brNum)
For i = 0 To brNum
  ieVersion = WindowsBrowser(i).GetROProperty("Application")
          msgbox("ieVersion:"&ieVersion)
  wndTitle = WindowsBrowser(i).GetROProperty("title")
          msgbox("windowTitle:"&wndTitle)
    Set ObjectBrowser = Browser("micclass:=Browser", "index:="&i)
   If Instr(ieVersion,6) > 0 Then
         Window("regexpwndclass:=IEFrame","index:=0","text:="&wndTitle&".*").Maximize
    Else
         WindowsBrowser(i).Maximize
    End If
Next
  Set ObjectBrowser = Nothing
Set WindowsBrowser = Nothing
Set BrowserObject = Nothing
End Sub


上面的库函数是先遍历已经打开的IE,然后最大化IE.
只是想问下为什么用
ieVersion = WindowsBrowser(i).GetROProperty("Application")
msgbox("ieVersion:"&ieVersion)
取不到IE版本号?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2011-2-17 15:25:53 | 只看该作者

  1. strComputer = "192.168.1.101"

  2. Set objWMIService = GetObject("winmgmts:\\" & strComputer & _
  3.     "\root\cimv2\Applications\MicrosoftIE")

  4. Set colIESettings = objWMIService.ExecQuery _
  5.     ("Select * from MicrosoftIE_Summary")

  6. For Each strIESetting in colIESettings
  7.     Wscript.Echo "Version for: " & strComputer  & strIESetting.Version

  8. Next

复制代码
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2011-2-17 15:39:18 | 只看该作者
回复 2# edisonlzk

不懂.
回复 支持 反对

使用道具 举报

  • TA的每日心情
    慵懒
    2019-4-10 17:57
  • 签到天数: 35 天

    连续签到: 1 天

    [LV.5]测试团长

    4#
    发表于 2011-2-17 16:36:30 | 只看该作者
    用spy看下, 好像有version这个属性的, LZ试试
    msgbox Browser("CreationTime:=0").GetROProperty("version")
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2011-2-17 17:25:31 | 只看该作者
    回复 4# shingo0109

    指定对单个IE取版本我知道怎么取.
    现在是在循环里,这样取出来,值为空.
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
    发表于 2011-2-17 20:11:59 | 只看该作者
    本帖最后由 lyscser 于 2011-2-17 20:13 编辑

    看楼主很明显用的是我的函数,哈哈,在告诉你一个方法

    1. Public Function GetRegeditInfo(regKey)
    2.    Dim myResult:myResult = ""

    3.    Set ShellINFunc = CreateObject("WScript.Shell")
    4.    myResult = ShellINFunc.RegRead(regKey)
    5.    Set ShellINFunc = Nothing

    6.    GetRegeditInfo = myResult
    7. End Function

    8. ieVersion = GetRegeditInfo("HKCU\Software\Microsoft\Internet Explorer\version")
    9. msgbox ieVersion
    复制代码
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2011-2-17 20:15:45 | 只看该作者
    '最大化IE浏览器
    Sub MaximizeBrowser1
    Set BrowserObject = Description.Create()
    BrowserObject("Nat ...
    airforever 发表于 2011-2-17 14:33



    代码不是这样么?
    Public Function MaximizeBrowser
            Set BrowserObject = Description.Create()
            BrowserObject("NativeClass").Value = "IEFrame"
            Set WindowsBrowser = Desktop.ChildObjects(BrowserObject)
           
            For i = 0 To WindowsBrowser.Count - 1
                    ieVersion = WindowsBrowser(i).GetROProperty("version")
                    wndTitle = WindowsBrowser(i).GetROProperty("title")
                    Set ObjectBrowser = Browser("micclass:=Browser", "index:=" & i)
                    If         Instr(ieVersion,6) > 0 Then
                            Window("regexpwndclass:=IEFrame","index:=0","text:=" & wndTitle & ".*").Maximize
                    Else
                            WindowsBrowser(i).Maximize
                    End If       
                    Set ObjectBrowser = Nothing
            Next
           
            Set WindowsBrowser = Nothing
            Set BrowserObject = Nothing
    End Function
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
     楼主| 发表于 2011-2-17 22:57:01 | 只看该作者
    回复 7# lyscser


    一样的,换汤不换药.
    那你说为什么取不到ie的版本号呢?
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    慵懒
    2019-4-10 17:57
  • 签到天数: 35 天

    连续签到: 1 天

    [LV.5]测试团长

    9#
    发表于 2011-2-18 09:11:28 | 只看该作者
    回复 8# airforever


    LZ用的是GetROProperty("Application"), 应该是GetROProperty("version")吧,这样就行了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    10#
     楼主| 发表于 2011-2-18 09:17:32 | 只看该作者
    回复 9# shingo0109


    发帖之前试过了,仍不行的.
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    慵懒
    2019-4-10 17:57
  • 签到天数: 35 天

    连续签到: 1 天

    [LV.5]测试团长

    11#
    发表于 2011-2-18 09:24:45 | 只看该作者
    本帖最后由 shingo0109 于 2011-2-18 09:26 编辑

    回复 10# airforever


    我这边打开了3个IE6的浏览器, 用GetROProperty("version")试了下,跑这个脚本可以最大化啊, 不过没试过其他浏览器, 我只有IE6.
    version的值是internet explorer 6, 不知LZ取到的version还是为空么?
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    12#
    发表于 2011-2-24 23:01:37 | 只看该作者
    我发现的问题是 IE7 可以获取version属性,IE8没有version属性,感觉是QTP不支持IE8,或者别的属性,IE6 没环境测不了是什么情况,所以首先要搞清楚 楼主的测试环境是IE几
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    13#
    发表于 2011-2-25 14:29:03 | 只看该作者
    用这个属性,取个版本号不用搞得这么复杂吧,用 SPY看看不就清楚了,下面这句脚本亲试的,可以用。
    ie = Browser("CreationTime:=0").GetROProperty("application version")
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    14#
     楼主| 发表于 2011-2-25 17:37:06 | 只看该作者
    用这个属性,取个版本号不用搞得这么复杂吧,用 SPY看看不就清楚了,下面这句脚本亲试的,可以用。
    ie = B ...
    5555 发表于 2011-2-25 14:29



    我知道这个单条语句可以取得到啊,
    我问的是:调用那个过程,执行过程中为什么不能返回ieVersion.
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    15#
     楼主| 发表于 2011-2-25 17:37:53 | 只看该作者
    我发现的问题是 IE7 可以获取version属性,IE8没有version属性,感觉是QTP不支持IE8,或者别的属性,IE6 没 ...
    www4488 发表于 2011-2-24 23:01



    IE7
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    16#
    发表于 2011-2-25 18:53:27 | 只看该作者
    本帖最后由 xiaoyaoke 于 2011-2-25 18:54 编辑

    直接注册表里去取:

         HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer

         value: Version
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    17#
    发表于 2011-2-26 14:48:09 | 只看该作者
    直接注册表里去取:

         HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer

         value: Ve ...
    xiaoyaoke 发表于 2011-2-25 18:53


    越来越精了吗
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-14 11:35 , Processed in 0.077463 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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