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

引用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