mycattish 发表于 2010-11-23 13:58:05

QTP怎么录制Menu条以及子菜单啊

前辈，在线等，QTP录制菜单条不显示脚本，该怎么去录制啊,识别出来时 WebElement无法识别的元素！

yunbin_7 发表于 2010-11-23 14:26:29

你打开Object Spy之后，捕获对象时按住ctrl键，当鼠标由手型变成指针型时，是可以捕获到指定的对象的。你试试看。。

mycattish 发表于 2010-11-23 14:32:13

我知道你说的方法，我也试了，但是捕获不到那个对象，而且脚本根本不产生这段代码

xiaozhai 发表于 2010-11-23 16:51:21

等高手出现

shark_jr 发表于 2010-11-24 17:48:05

添加span的onmouseover事件。在脚本中写
XX.fireEvent "onmouseover",5,5

sunnyswu 发表于 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}"      '模拟按下回车键完成最后一步

mycattish 发表于 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]
查看完整版本: QTP怎么录制Menu条以及子菜单啊