vb金山词霸的屏幕取词
2007-03-05 11:12
190 查看
到网上下一个XdictGrb.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 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
如果电脑里有金山词霸,可以从里面找
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
相关文章推荐
- “金山词霸”屏幕取词技术揭密(讨论稿)
- 金山词霸”屏幕取词技术揭密(讨论稿)
- 鼠标屏幕取词技术的原理和实现
- 鼠标屏幕取词技术的原理和实现
- 鼠标屏幕取词技术的原理和实现(转)
- 金山词霸”屏幕取词技术揭密(讨论稿)
- 金山词霸”屏幕取词技术揭密(讨论稿)
- 金山词霸”屏幕取词技术揭密(讨论稿)
- 使用金山词霸屏幕取词,卡巴斯基报警问题
- 屏幕取词 自动语音阅读软件
- 屏幕取词翻译
- 运用金山词霸组件开发属于自己的屏幕取词模块!!
- 鼠标屏幕取词技术的原理和实现
- c#实现屏幕取词源码下载
- 【Linux】ubuntu下词典软件Goldendict介绍(可屏幕取词)和StarDict(星际译王)的安装
- 浅谈屏幕取词划词与API HOOK、远程注入的关系以及技术原理
- android屏幕取词的简单实现(二)(使用OCR技术)
- 屏幕取词
- 鼠标屏幕取词技术的原理和实现
- 解决金山词霸和有道词典不能对pdf文档屏幕取词的方法