利用金山词霸dll 组件做屏幕截词软件

最新推荐文章于 2016-12-01 17:34:14 发布

原创最新推荐文章于 2016-12-01 17:34:14 发布 · 936 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#dll #金山 #integer #string #function #class

该博客介绍了如何利用金山词霸的DLL组件开发一个屏幕取词软件。在加载应用程序时，首先需要注册XdictGrb2.dll文件，然后添加对该文件的引用。通过创建和配置GrabProxy对象，实现XDICTGRB.IXDictGrabSink接口，可以捕获鼠标下的单词并显示相关信息，如句子、单词、光标位置等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Strict Off Option Explicit On Imports pcedm字段翻译.WebReference Imports System Imports System.Data Imports System.Data.OleDb Imports System.Web Imports System.Web.Services Imports System.Configuration Imports System.Windows.Forms Imports System.Net Imports System.IO Imports System.Reflection Imports System.Xml Imports XDICTGRB Public Class Form1 '首先运行 regsvr32 注册XdictGrb2.dll '然后添加引用这个文件 Inherits System.Windows.Forms.Form Implements XDICTGRB.IXDictGrabSink Dim MyService As New pcedm字段翻译.WebReference.ServiceDBDataSet Dim ip As String Dim flag As Integer Private gp As XDICTGRB.GrabProxy Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load '绘制不规则窗口 'Dim a As Region 'Dim b As New System.Drawing.Drawing2D.GraphicsPath() 'b.AddEllipse(0, 0, 200, 200) 'a = New Region(b) 'Me.Region = a '调用XDICTGRB gp = New XDICTGRB.GrabProxy With gp .GrabEnabled = True .GrabInterval = 30 .GrabMode = XDICTGRB.XDictGrabModeEnum.XDictGrabMouse .AdviseGrab(Me) 'Label1.Text = TypeName(Me) End With End Sub Private Function IXDictGrabSink_QueryWord(ByVal WordString As String, ByVal lCursorX As Integer, ByVal lCursorY As Integer, ByVal SentenceString As String, ByRef lLoc As Integer, ByRef lStart As Integer) As Integer Implements XDICTGRB.IXDictGrabSink.QueryWord ''Me.Hide() Label1.Text = SentenceString '鼠标所在语句 Label2.Text = SentenceString.Substring(lLoc, 1) '鼠标所在字符 Label3.Text = lCursorX.ToString() + " " + lCursorY.ToString() Label4.Text = GetWord(SentenceString, lLoc + 1) '取得单词 End Function '取得单词函数 Private Function GetWord(ByVal SentenceString As String, ByVal lLoc As Integer) As String Dim iR As Integer = 0 Dim iL As Integer = 0 Dim ilen As Integer = 0 ilen = SentenceString.Length Dim str As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" For iL = lLoc To 0 - 1 Step iL - 1 If str.IndexOf(SentenceString.Substring(iL, 1)) = -1 Then Exit For End If Next For iR = lLoc To ilen - 1 Step iR + 1 If str.IndexOf(SentenceString.Substring(iR, 1)) = -1 Then Exit For End If Next Return SentenceString.Substring(iL + 1, iR - iL - 1) End Function