• 首页
  • 教程
  • 资源
  • 脚本
  • 源码库
  • 新闻
  • 卖脚本
  • 用户中心
加入收藏  返回官网
你的位置:按键精灵资源站
查找全部相同图片[只需要2个条件]
发布: 2010-01-02 10:48:54 | 作者: | 来源: 按键精灵资源站
{:2_41:}  通过半天实验终于写出来了
先拿"5"来做实验 呵呵先看下效果
条件1.图片的高
条件2.图片的宽
下载地址请访问原帖
下载地址请访问原帖
下载地址请访问原帖
下载地址请访问原帖
[code]UserVar g=73 图片高
UserVar k=31 图片宽
Gosub 屏幕图片
MessageBox "结果一共有[ "&I&" ]个"
i=0
For gs
MessageBox zb(i)
i=i+1
EndFor
//========弹出结果
EndScript
Sub 屏幕图片
VBSCall Call GetScreenResolution(cx,cy)
//=============分辩率
dim zb(50),gs,i
i=0:gs=0:x1=0:y1=0:x2=1024:y2=768
//==========赋值
VBSCall Call FindPic(x1,y1,x2,y2,"5.bmp",0.8,x,y)
If x>0 and y>0
x1=x-10:y1=y-10:x2=1024:y2=y+g+15
//==============设置坐标
Rem xh
Rem 再继续找
VBSCall Call FindPic(x1-5,y1-5,x2+5,y2+5,"5.bmp",0.8,x,y)
If x>0
//===========在设定坐标内找图
zb(gs)=x&","&y
i=i+1:x1=x+k+2:y5=y+g+5:gs=gs+1
Goto xh
Else
EndIf
Else
EndIf
VBSCall Call FindPic(x,y5,1024,768,"5.bmp",0.8,x,y)
//=========减去Y后.在Y下面找图.判断还有没有其他图片
If x>0
x1=x:y1=y:x2=1024:y2=y+g+15
Goto 再继续找
EndIf
Return 屏幕图片[/code]