kob5891 发表于 2010-6-14 11:07:23

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

本帖最后由 kob5891 于 2010-6-23 16:57 编辑

网上找的屏幕取词 是调用金山词霸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 发表于 2010-6-23 16:58:58

高手多多关注下。。。。。。{:face (207):}

kob5891 发表于 2010-6-26 17:06:08

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

chenronting 发表于 2010-6-26 20:53:03

要回去了。。 路过帮顶。`~
页: [1]
查看完整版本: VB屏幕取词转换成au3代码 请高手帮一下