这段QTP帮助中的代码没看明白，望指教

vincenthan

示例
以下示例在整个屏幕中搜索单词 Mercury，并在找到该单词时单击它。

l = -1

t = -1

r = -1

b = -1

Succeeded = TextUtil.GetTextLocation("16",0,l,t,r,b)

If Not Succeeded Then

MsgBox "找不到文本"

else

x = (l+r) / 2

y = (t+b) / 2

Set dr = CreateObject("Mercury.DeviceReplay")

dr.MouseClick x, y, 0

End If

其中的“16”是什么意思，怎么看都不懂，望大家指点

vincenthan

看意思感觉是很好理解，但操作时发现不是那么回事啊，16我怀疑是帮助里面打错了吧，至于后面的Mercury对象应该是另一回事，谁能提供一个好的例子让我来实验一下，这个例子应该不是贴上就能运行的吧，反正我每次执行都只会显示找不到文本，不知道怎样才能找到

xazaj

这段说明说的很详细了啊！
description：
Checks whether a specified text string is contained in a specified window area. If the

text string is located, the location coordinates are also returned.

描述：
检查特定的字符串是否存在指定的windows区域。如果这段字符串存在，就返回这个位置的坐标。


用法：
TextUtil.GetTextLocation(TextToFind, hWnd, Left, Top, Right, Bottom

[,MatchWholeWordOnly])

domo中的“16” 就是第一个参数 TextToFind

Argument ：TextToFind
Type ：    String  
Description ：The text string you want to locate.  

参数：TextToFind
类型： 字符串
描述：你想定位的字符串。


这些帮助文档都有的哦，多查查再问比较好！加油！

walker1020

查看一下帮助里面对 GetTextLocation的说明，不就明白了吗？ 另外，楼主的代码是从哪里找到的？

vincenthan

关于我3楼的提问还是没懂

LittleDuck

"Device Replay"是在提供坐标位置以后可以实现的鼠标和键盘操作。这个函数不能自动录制，需要在expert view中编程。
它有以下这些函数：
MouseMove x, y: Move the mouse to the screen coordinate (x,y).
MouseClick x, y, button: Move the mouse to the screen coordinate (x,y) and click the button(0=left; 1=middle; 2=right).
MouseDblClick x, y, button: Move the mouse to the screen coordinate (x,y) and double-click the button(0=left; 1=middle; 2=right).
DragAndDrop x, y, dropx, dropy, button: Drag the mouse from screen coordinate (x,y) to (dropx,dropy) with the button(0=left; 1=middle; 2=right) pressed.
PressKey key: Press a key using the ASCII code of the key.For example, Chr(13), vbCR and vbTab.
MouseDown x, y, button: Press the mouse button on screen coordinate (x,y).
MouseUp x, y, button: Release the mouse button on screen coordinate (x,y).
KeyDown key: Press a key using the ASCII code of the key.For example, Chr(13), vbCR and vbTab.
KeyUp key: Release a key using the ASCII code of the key.For example, Chr(13), vbCR and vbTab.
SendString string: Type a string.

板砖

不懂.

jifeng

哪来的这段文字阿？
我记得帮助里关于GetTextLocation不是这样描述的阿

yzem99

Set dr = CreateObject("Mercury.DeviceReplay")
我理解这个是设一个可以做回放操作的对象。

vincenthan

更让我不解的是其中的Mercury对象，是什么意思，哪里能找到相关的帮助，希望高人能指教一下

lantianwei

按照你的题意我觉得16应该换成"Mercury",不知道我说的对不对