51Testing软件测试论坛

标题: QTP怎么录制Menu条以及子菜单啊 [打印本页]

作者: mycattish 时间: 2010-11-23 13:58
标题: QTP怎么录制Menu条以及子菜单啊
前辈，在线等，QTP录制菜单条不显示脚本，该怎么去录制啊,识别出来时 WebElement无法识别的元素！

作者: yunbin_7 时间: 2010-11-23 14:26
你打开Object Spy之后，捕获对象时按住ctrl键，当鼠标由手型变成指针型时，是可以捕获到指定的对象的。你试试看。。

作者: mycattish 时间: 2010-11-23 14:32
我知道你说的方法，我也试了，但是捕获不到那个对象，而且脚本根本不产生这段代码

作者: xiaozhai 时间: 2010-11-23 16:51
等高手出现

作者: shark_jr 时间: 2010-11-24 17:48
添加span的onmouseover事件。在脚本中写
XX.fireEvent "onmouseover",5,5

作者: sunnyswu 时间: 2010-11-24 22:54
不知道模拟键盘是否可以实现该操作，我觉得大致应该没什么问题，
有问题，继续说
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}"       '模拟按下回车键完成最后一步

作者: mycattish 时间: 2010-12-3 14:55
谢谢大家了，我已经找到解决办法了！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 '鼠标移动到坐标(供方区域维护)
要添加这段代码，其实这段代码是在录制过程中实在找不到对象控件的情况下使用，但是会增加脚本代码量。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)