VB6.0 获取WebBrowser某个文字的坐标

在VB6.0中，如果你想要获取WebBrowser组件（Internet Explorer控件）内某个特定文字的坐标，可以使用HTMLDocument对象的`ElementFromPoint`方法结合DOM（Document Object Model）操作。以下是一个简单的步骤：

1. 首先，确保你的WebBrowser对象处于激活状态，并加载了网页。
2. 使用`Document`属性获取到HTML文档对象。
3. 然后，你可以通过`clientToDocument`方法将鼠标点击点转换为文档坐标，接着调用`getElementFromPoint`方法找到包含指定文字的元素。
4. 最后，从这个元素上获取`offsetLeft`和`offsetTop`属性，这两个值分别代表元素左上角相对于视口的水平和垂直位置。

示例代码可能如下所示：

Dim doc As HTMLDocument
Set doc = WebBrowser1.Document

' 模拟鼠标点击事件
Dim clickX As Integer, clickY As Integer ' 假设clickX和clickY是你希望查找的文字所在的屏幕坐标
Dim element As HTMLElement
element = doc.ElementFromPoint(clickX, clickY)

If Not element Is Nothing Then
    Dim left As Integer, top As Integer
    left = element.offsetLeft
    top = element.offsetTop
    
    ' 这里left和top就是你要的文字在页面中的坐标
    Debug.Print "Text's position: Left = " & left & ", Top = " & top
Else
    MsgBox "No element found at the given point."
End If