51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2041|回复: 2
打印 上一主题 下一主题

[讨论] 实用函数错误 求9

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-11-6 19:28:48 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Browser("百度一下,你就知道").Page("百度一下,你就知道").Link("MP3").Click
Browser("百度一下,你就知道").Page("百度MP3——全球最大中文MP3搜索引擎").WebRadioGroup("lm").Select "#0"

'该函数的工作原理如下:可以获取所有界面上的Link对象(不用把要使用的Link 对象添加到Object Repository中),并可对这指定的LinkNmae进行点击操作。
Function WebLinkClick_Function_Module(IsHaveFrame,Object_Browser,Object_page,Object_Frame,LinkName)

Dim m_Link
Dim All_Link
Dim Count
Dim AllLinkName(3000)
Dim i,j,k
k = 0

If  IsHaveFrame= "" OR IsHaveFrame>1 Then
IsHaveFrame = 1
End If

Set m_Link=Description.Create()
m_Link("Link").Value="link"
If  IsHaveFrame  < 1 Then
    Set All_Link=Browser(Object_Browser).Page(Object_page).ChildObjects(m_Link)
Elseif IsHaveFrame >0 then
   Set All_Link=Browser(Object_Browser).Page(Object_page).Frame(Object_Frame).ChildObjects(m_Link)
End If

Count=All_Link.Count()
For  i= 0 To Count -1
     AllLinkName(j) =All_Link(i).GetROProperty( "Text" )
    If  AllLinkName(j) = LinkName Then
         All_Link(i).click
         Exit For
End If
j = j +1
   Next
End Function

If WebLinkClick_Function_Module(0,"百度一下,你就知道","百度MP3——全球最大中文MP3搜索引擎","","新 闻") Then
        msgbox "OK"
End If

Browser("百度一下,你就知道").Close




运行到
Set All_Link=Browser(Object_Browser).Page(Object_page).ChildObjects(m_Link)
就报错 General run error.
Line (21): "Set All_Link=Browser(Object_Browser).Page(Object_page).ChildObjects(m_Link)".
在往下走
就是 all_link 缺少对象

搞半天不知道哪里出了问题,上网求9
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-11-6 21:33:15 | 只看该作者

回复 1# 的帖子

1、 主要问题在这句m_Link("Link").Value="link"
    应该改为m_Link("micclass").Value = "Link"

2、 有Set All_Link=Browser(Object_Browser).Page(Object_page).ChildObjects(m_Link)就足够了,它能获取该页面中的所有Link对象,无论是否在Frame或是WebTable父对象下。只需很简单的几句代码就能达到目的了的
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2007-11-7 16:13:17 | 只看该作者
谢谢楼上的哥们,果然是这样
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-8 18:33 , Processed in 0.079277 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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