VB屏幕取词

Question

怎样用VB进行屏幕取词，不能用其它的软件。

Answer 1

可以用API,但难度太大...
可以用金山快译的XdictGrb2.dll
//引用XdictGrb2.dll
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 SubPrivate 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

Answer 2

你可以单独加XdictGrb2.dll，并注册

Answer 3

曾看过一遍技术文章说:取出并不是从屏幕上抓下显示的内容,而是Windows对所选区域中的内容进行重绘,在它重绘的过程中我们进行截取,从而得到了想要的内容

Answer 4

我的意思是这台电脑是独立的，不能安装任何软件（彻底隔离），上面只有一个VB，所以只能求助于VB了！

Answer 5

金山的人是写XdictGrb2.dll的，嘿嘿