vb实现仿金山词霸的屏幕取词功能
今天想要做类似金山词霸屏幕取词的功能，在网上找了一些资料，发现都很复杂。既然金山词霸已经实
现了，借用之:
金山词霸中2005中带了一个XdictGrb.dll，其实是一个COM组件，并且实现了一个取词的插件框架。
其中的有以下内容：
1 接口
1.1 GrabProxy 取词代理对象
Function AdviseGrab(XDictGrabSink As IXDictGrabSink) As Long
广播一个XDictGrabSink（如果要实现取词功能，你需要自己来实现这个接口，具体的方法后面会有介绍。（Visual Basic的示例，使用其他语言类似）） 接口，在需要取词的时候会调用XDictGrabSink的QueryWord方法，你可以在这里实现你需要的功能。
Property GrabEnabled As Boolean
是否取词的属性
Property GrabMode As XDictGrabModeEnum
设定取词的属性，XDictGrabFlagEnum的定义后面会讲到。
Property GrabFlag As XDictGrabFlagEnum
设定取词健，比如是否要结合Ctrl或者Shift.
Property GrabSystemCP As Long
这个属性暂时不太清楚。
Sub GrabWord(lCursorX As Long, lCursorY As Long)
取x,y坐标的词，估计是屏幕坐标。
Sub UnadviseGrab(lCookie As Long)
取消对XDictGrabSink接口的广播。
Property XDictGrabPlugins As IPluginsCollection
返回一个IPluginsCollection集合。
1.2 IPluginsCollection 插件集合对象
其中实现了一个插件的框架，但是如果只是要实现屏幕取词功能，也可以暂时不使用插件功能。
1.3 IXDictGrabPlugin 插件接口
1.4 IXDictGrabROT接口 名字不太明白是什么意思，用来注册和反注册插件。
1.5 IXDictGrabSink 自己要实现的接口，参见后面的例子。
Function QueryWord(WordString As String, lCursorX As Long, lCursorY As Long, SentenceString As String, lLoc As Long, lStart As Long) As Long
可以在这个方法中实现你自己要做的功能，WordString参数应该是鼠标所在处的单词，lCursorX是鼠标当前X坐标，lCursorY是鼠标当前Y坐标，SentenceString 是鼠标所在处整个句子，lLoc是鼠标所在处的字在整个句子中的位置，下标从0开始。lStart暂时不太清楚。
2 常量定义
2.1 XDictGrabFlagEnum
Const XDictGrabDisableButton = 4
不取按钮上的文字
Const XDictGrabDisableCaption = 8
不取标题栏的文字
Const XDictGrabDisableMenu = 2
不取菜单的文字
Const XDictGrabOnlyEnglish = 1
只取英文
以上几个常�
相关文档：
Dim strPath As String = Server.MapPath("~\文件夹")
'判断保存文件路径是否存在 不存在则创建
If Not Directory.Exists(strPath) Then
Directory ......
'工程-->引用 添加 Microsoft activex data objects 2.5 library
'工程-->部件 添加 Microsoft flexgrid control 6.0
Dim Cnn As New ADODB.Connection
Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access ......
转自：http://tieba.baidu.com/f?kz=139765011
每个函数都可以强制将一个表达式转换成某种特定数据类型。
语法
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression) ......
让VB菜鸟最快写出自己的外挂.通杀所有游戏.呵呵.
这年头,在这个论坛里面已经没有什么技术贴了...呵呵~发一篇惊天地,泣鬼神的帖子.当然这个只是模拟键盘的终极模拟.呵呵~
键盘是我们使用计算机的一个很重要的输入设备了，即使在鼠标大行其道的今天，很多程序依然离不开键盘来操作。但是 ......
自己整了4个目标用于扫描。以后可能可以自己添加删除（写到这儿忽然觉得C++的vector不能删除元素（反正C++ Primer里目前没找到）让人很郁闷）
Form1，须加一个Timer1
Dim CAngle As Integer 'Current Angle (Not Class Angle)
Private Sub Form_Load() '初始化
CAngle = 0
Me.BackColor = vbBlack
......
