51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1619|回复: 7
打印 上一主题 下一主题

[求助] 关于Function的问题,提示类型不匹配

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2014-2-17 15:28:39 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Action1
Browser("micClass:=Browser").Navigate "bbs.51Testing.com"
Call NavigatePage("[QuickTest Professional]","论坛")


Function NavigatePage(linkName,keyWord)

        Set objBrowser = description.Create()
        objBrowser("micClass").value = "Browser"
       
        Set objPage = description.Create()
        objPage("micClass").value = "Page"
       
        Set objLink = description.Create()
        objLink("html tag").value = "A"
        objLink("text").value = linkName

        Dim checkTitle
    Browser(objBrowser).Page(objPage).Link(objLink).Click
        checkTitle=Browser(objBrowser).Page(objPage).GetROProperty("title")
       
        '验证title,如果checkTitle字符串含有“keyWord”,则表示成功进入某页面
        If Instr(checkTitle,keyWord)  <> 0 Then
                Reporter.ReportEvent micPass,"NavigatePage","Pass"
        Else
                Reporter.ReportEvent micFail,"NavigatePage","Fail"
        End If

        Set objBrowser = nothing
        Set objPage = nothing
        Set objLink = nothing
       
End Function

Run Error:
Cannot identify the object "[ Link ]" (of class Link). Verify that this object's properties match an object currently displayed in your application.

求高手解答,本人是初学者。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2014-2-17 16:14:13 | 只看该作者
怎么没人回答呢
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2014-2-17 22:50:03 | 只看该作者
有没有人解答呢
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2014-2-18 09:18:52 | 只看该作者
顶上~
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2024-10-4 10:34
  • 签到天数: 1208 天

    连续签到: 1 天

    [LV.10]测试总司令

    5#
    发表于 2014-2-18 13:45:08 | 只看该作者
    转义符的问题
    1. Dim obj
    2. Set a=Description.Create
    3. a("html tag").value = "A"
    4. a("micclass").value="Link"
    5. 'a("text").value="五周年活动专区"
    6. a("text").value="\[QuickTest Professional\]"

    7. set obj = Browser("Micclass:=Browser").Page("Micclass:=Page").ChildObjects(a)
    8. x= obj.count
    9. msgbox x
    10. For i=0 to x-1
    11. print obj(i).GetROProperty("innerText") &"|"

    12. Next
    复制代码



    发现不带[]号的link就好使 ,带了就不行 然后查了点资料http://www.threes.cn/html/2009/09/799.html

    只要把你代码改一句话就可以了
    1. Call NavigatePage("\[QuickTest Professional\]","论坛")
    复制代码
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
     楼主| 发表于 2014-2-19 09:52:57 | 只看该作者
    回复 5# 赵佳乐SMILE


        谢谢你,我已经解决了这个问题,完全没有想到这个[]符号的影响
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2024-10-4 10:34
  • 签到天数: 1208 天

    连续签到: 1 天

    [LV.10]测试总司令

    7#
    发表于 2014-2-20 09:47:18 | 只看该作者
    回复 6# JF贰


        恩 我也是第一次 知道
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2024-10-4 10:34
  • 签到天数: 1208 天

    连续签到: 1 天

    [LV.10]测试总司令

    8#
    发表于 2014-2-20 09:47:20 | 只看该作者
    回复 6# JF贰


        恩 我也是第一次 知道
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-27 20:01 , Processed in 0.069573 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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