后台搜色插件功能：可以在非最小化的窗口下运行，被其它窗口挡住或窗口在屏幕外也没问题（请用附件里的VB程序测试）缺点：最小化的窗口只能搜索到窗口标题，VB写的插件，配置低的机子效率比较低注意：使用插件时请先注册插件，代码如下：dimobj_Shell,objsetobj_Shell=createobject("WScript.Shell")obj_Shell.Run"regsvr32plugin\XingFan.dll/s"setobj=CreateObject("XingFan.QMHT")GetColorHT(参数1,参数2,参数3,参数4)参数1：窗口句柄，不指定窗口请设0（搜索屏幕）参数2：是否刷新内存中的图像数据类型：布尔值（True\False)参数3：X坐标参数4：Y坐标返回：指定点的颜色数据类型：字符串例子：dimobj_Shell,obj,Colorsetobj_Shell=createobject("WScript.Shell")obj_Shell.Run"regsvr32plugin\XingFan.dll/s"setobj=CreateObject("XingFan.QMHT")//上面是插件的注册和创建，放在脚本前面，使用一次即可Color=obj.GetColorHT(0,True,100,100)VBSCallMessageBox(Color)ColorExHT(参数1,参数2,参数3,参数4,参数5,参数6)参数1：窗口句柄，不指定窗口请设0（搜索屏幕）参数2：是否刷新内存中的图像数据类型：布尔值（True\False)参数3：X坐标参数4：Y坐标参数5：要判断的颜色数据类型：字符串参数6：相似度（设置范围：0.1~1)数据类型：单精度返回：True\False数据类型：布尔值例子：dimobj_Shell,obj,Colorsetobj_Shell=createobject("WScript.Shell")obj_Shell.Run"regsvr32plugin\XingFan.dll/s"setobj=CreateObject("XingFan.QMHT")Color=obj.GetColorHT(0,True,100,100)Ifobj.ColorExHT(0,True,100,100,Color,0.9)=TrueVBSCallMessageBox("YES")ElseVBSCallMessageBox("NO")EndIfFindColorHT(参数1,参数2,参数3,参数4,参数5,参数6,参数7,参数8,参数9,返回值1,返回值2)参数1：窗口句柄，不指定窗口请设0（搜索屏幕）参数2：是否刷新内存中的图像数据类型：布尔值（True\False)参数3：左上角X坐标参数4：左上角Y坐标参数5：右下角X坐标参数6：右下角Y坐标参数7：要搜索的颜色数据类型：字符串参数8：搜索方向（设置范围0~8）0-从中间开始搜索1-X从左至右Y从上至下、2-X从右至左Y从上至下3-X从左至右Y从下至上、4-X从右至左Y从下至上5-Y从上至下X从左至右、6-Y从下至上X从左至右7-Y从上至下X从右至左、8-Y从下至上X从右至左参数9：相似度（设置范围：0.1~1)数据类型：单精度返回值1：找到颜色的X坐标（找不到返回-1）【要是指定了窗口句柄，返回的坐标是相对该窗口左上角的偏移值】返回值2：找到颜色的Y坐标（找不到返回-1）例：dimobj_Shell,obj,Colorsetobj_Shell=createobject("WScript.Shell")obj_Shell.Run"regsvr32plugin\XingFan.dll/s"setobj=CreateObject("XingFan.QMHT")callobj.FindColorHT(0,True,0,0,800,600,"0000ff",0,0.9,x,y)VBSCallMessageBox("X坐标："&x&vbCr&"Y坐标："&y)学VB时间不长，插件存在什么问题请大家指正