• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.5
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[分享脚本] 两种不同格式的图片对比,不过觉的准确率有些问题 [复制链接]

1#
前几天看到个贴子要找同文件夹下两种不同格式图片相同的 无聊做了个试试,不过可能因为不同格式转换成BMP,颜色点有问题 对比时我试了6张图,有1张就是找不到。现在发出来,大家看下有没有办法改进的
要做个大的窗体 放入一个图片合子 座标设在0,0
Dim 文件名1(), 文件名2(), a, b, 路径, 文件类型1, 文件类型2, 重复文件


//图片hwnd = Form1.PictureBox1.Hwnd
hwnd=form1.hwnd
TracePrint 图片hwnd
TracePrint hwnd
//这输入图片存放路径
路径 = "d:\1\"
//这输入图片格式
文件类型1 = "jpg"
文件类型2="gif"
a=-1
b = - 1
s=0
数组 = lib.文件.遍历指定目录下所有文件名(路径)
For i = 0 To UBound(数组)-1
文件 = cstr(数组(i))
类型字数 = InStrRev(数组(i), ".")
类型=Right(文件,Len(数组(i))-类型字数)
If 类型 = 文件类型1 Then
a = a + 1
Redim Preserve 文件名1(a)
文件名1(a) = 文件
ElseIf 类型 = 文件类型2 Then
b = b + 1
Redim Preserve 文件名2(b)
文件名2(b) = 文件
End If
Next
TracePrint a
TracePrint b
For j = 0 To ubound(文件名2)
Form1.PictureBox1.Picture = 路径 & 文件名2(j)
Delay 200
Rect = Plugin.Window.GetWindowRect(Form1.PictureBox1.Hwnd)
MyArray = Split(Rect, "|")
x1 = Clng(MyArray(0))+2
TracePrint x1
y1 = Clng(MyArray(1))+2
TracePrint y1
x2 = Clng(MyArray(2))-2
y2 = Clng(MyArray(3))-2
TracePrint form1.PictureBox1.Width
Call Plugin.Pic.PrintScreen(x1+2, y1+2, x2, y2, 路径&"/t/"&j&".bmp")
Delay 200
For i = 0 To ubound(文件名1)
Form1.PictureBox1.Picture = 路径 & 文件名1(i)
Delay 200
XY = Plugin.Bkgnd.FindPic(hwnd, 0, 0, 536, 544, 路径&"/t/"&j&".bmp" , 0, 0.5)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint x
TracePrint y
// XY = Plugin.Pic.FindPic(0, 0, 1920, 1080, 路径 & 文件名1(i), 0, 0.5)
// iZB = InStr(XY, "|")
// X = CLng(Left(XY, iZB - 1))
// Y = CLng(Right(XY, Len(XY) - iZB))
// TracePrint x
// TracePrint y
If x > 0 Then
s=s+1
重复文件=重复文件 & 文件名1(i) & "=" & 文件名2(j)
End If
next
Next
MsgBox s&"个重复,"& 重复文件
附上源文件
您所在的用户组无法下载或查看附件


2#

附上源文件

3#

495,1227

谭飞
4#


5#

RestartScript11122

6#


7#

看看

8#

回复是一种美德

总有技术让你痴迷,总有帖子为你而写,总有朋友陪伴你学习按键的时光


深 度 技 术 ★ 只 为 游 戏 的 美 好


【按键学院免费交流QQ群号】:3群—170084238(请加)、安卓群: 115768679(请加)、 1群—376122403、 2群—372671254。

按键学院报名网址

9#

觉的准确率有些问

10#

多谢分享 下来学学

11#

来,大家看下有没有办法改进的
要做个大的窗体 放入一个图片合子 座标设在0,

12#

看看

13#

大家看下有没有办法改进的

14#

看一看

15#

好好学习,天天向上。

16#

看看

17#

应该有用吧?

18#

看一看

19#

谢谢

20#

学习一下

发新话题 回复该主题