用金山词霸的dll文件实现屏幕取词

(声明：魏滔序原创，转贴请注明出处。)
引用XdictGrb.dll，自己到词霸目录找。
严重注意：要金山词霸2005的版本中的dll，2003版的我未测试成功。

新建项目，在新窗体中添加3个Label，名称默认。

窗体中代码如下：
Option Explicit
Implements IXDictGrabSink
Private gp As GrabProxy
Private Sub Form_Load()
    Set gp = New GrabProxy
    With gp
        .GrabEnabled = True
        .GrabInterval = 30
        .GrabMode = XDictGrabMouse
        .AdviseGrab Me
    End With
End Sub

Private Function IXDictGrabSink_QueryWord(ByVal WordString As String, ByVal lCursorX As Long, ByVal lCursorY As Long, ByVal SentenceString As String, lLoc As Long, lStart As Long) As Long
    Label1.Caption = "(" & lCursorX & "," & lCursorY & ")"
    Label2.Caption = "当前语句：" & SentenceString
    Label3.Caption = "当前字符：" & Mid(SentenceString, lLoc + 1, 1)
End Function