51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2897|回复: 6
打印 上一主题 下一主题

[原创] QTP怎么录制Menu条以及子菜单啊

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-11-23 13:58:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
前辈,在线等,QTP录制菜单条不显示脚本,该怎么去录制啊,识别出来时 WebElement无法识别的元素!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-11-23 14:26:29 | 只看该作者
你打开Object Spy之后,捕获对象时按住ctrl键,当鼠标由手型变成指针型时,是可以捕获到指定的对象的。你试试看。。
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2010-11-23 14:32:13 | 只看该作者
我知道你说的方法,我也试了,但是捕获不到那个对象,而且脚本根本不产生这段代码
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2010-11-23 16:51:21 | 只看该作者
等高手出现
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2010-11-24 17:48:05 | 只看该作者
添加span的onmouseover事件。在脚本中写
XX.fireEvent "onmouseover",5,5
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2010-11-24 22:54:57 | 只看该作者
不知道 模拟键盘是否可以实现该操作,我觉得大致应该没什么问题,
有问题,继续说
Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "ttpsetup.exe"        '启动安装程序
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 3000        '延时3秒
WshShell.SendKeys "s"        '模拟按下 S 键开始安装
WScript.Sleep 300        '延时0.3秒
WshShell.SendKeys "a"        '模拟按下 A 键同意协议
WScript.Sleep 300
WshShell.SendKeys "{ENTER}"        '模拟按下回车键执行下一步
WScript.Sleep 300
WshShell.SendKeys "{ENTER}"        '模拟按下回车键执行下一步
WScript.Sleep 300
WshShell.SendKeys "{ENTER}"        '模拟按下回车键执行下一步
WScript.Sleep 2000
WshShell.SendKeys "{TAB}"        '模拟按下 Tab 键选择安装项目
WScript.Sleep 300
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys " "        '模拟按下空格键去除安装百度超级搜霸一行前的√号
WScript.Sleep 300
WshShell.SendKeys "{ENTER}"        '模拟按下回车键完成最后一步
回复 支持 反对

使用道具 举报

该用户从未签到

7#
 楼主| 发表于 2010-12-3 14:55:08 | 只看该作者
谢谢大家了,我已经找到解决办法了!6楼的你的方法不正确,你回答的不是我的问题。
正确的应该条用外部API函数,如下:
'引用外部API
Extern.Declare micLong, "SetCursorPos", "user32.dll", "SetCursorPos", micLong, micLong
Extern.SetCursorPos 80,225   '鼠标移动到坐标 (基础数据管理)
'等待2秒时间进行一步操作
Wait(2)
Extern.Declare micVoid, "mouse_event", "user32.dll", "mouse_event", micLong, micLong, micLong, micLong, micLong
Extern.mouse_event 2,79,225,0,0    '鼠标按下
Extern.mouse_event 4,79,225,0,0    '鼠标抬起

Extern.SetCursorPos 93,241   '鼠标移动到坐标(供方管理)
Extern.SetCursorPos 249,241   '鼠标移动到坐标(供方区域维护)
要添加这段代码,其实这段代码是在录制过程中实在找不到对象控件的情况下使用,但是会增加脚本代码量。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-26 01:42 , Processed in 0.081187 second(s), 33 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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