找鼠标处点的个数

//注册大漠插件
PutAttachment ".\plugin", "RegDll.dll"
PutAttachment ".\plugin\dm", "dm.dll"
Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll")
Set dm = createobject("dm.dmsoft")
//注册大漠插件结束
/*dm_ret = dm.GetClientSize(hwnd,w,h)
MessageBox "宽度:"& w &",高度:"& h
dm_ret = dm.GetClientRect(hwnd,x1,y1,x2,y2)
MessageBox x1&"和"&x2&"和"&y1&"和"&y2*/
dm.GetCursorPos x,y
color = dm.GetColor(x,y)
s = dm.FindColorEx(0,0,2000,2000,color,1.0,0)
count = dm.GetResultCount(s)
index = 0
Do While index < count
dm_ret = dm.GetResultPos(s,index,intX,intY)
index = index + 1
Loop
MessageBox count&"个，"&color&"，X:"&x&"，Y："&y