VB屏幕取词转换成au3代码 请高手帮一下

kob5891

网上找的屏幕取词 是调用金山词霸2005的一个XdictGrb.dll文件 里面有dll调用和属性设置 我不会整 au3水平有限 望高手多多指点

VB代码如下：
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 Sub Form_Unload(Cancel As Integer)
      Set gp = Nothing
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, 1000)
End Function


|_____源资料_____|

kob5891

高手多多关注下。。。。。。

kob5891

期待高手出现  出来 跑哪去了

chenronting

要回去了。。 路过帮顶。`~