. I find both of their interfaces to be somewhat lacking, I created an AHK script to help usage of DupDetector. VisiPics interface is really clunky/awkward to me, but sometimes it's useful.
library files: LB.ahk and AHK_Extra.ahk.
It's also configured for a multi-button mouse that has shift on a Thumb button, and an XButton4 XButton5 (Logitech's MX518).
I can put those required Library files up for download if anyone wants to play with the script below. It would likely require some tweaking as far as hotkeys go for one's own usage.
The script is a little bit RAW, but it takes two to three times as much time and work to make a script foolproof. I just deal with the quirks, as there's always an InputBox/Question before it will MOVE/COPY or Delete a file.
Code: Select all
;;
;; Balderstrom, Feb.01 2011
;; -- DupDet.ahk
;;
;; Automation Script for Prismatic's DupeDetector.
;;
DD_GetText(byRef winID, byRef imgNam1, byRef imgNum1, byRef imgNam2="", byRef imgNum2="")
{
checkMatchNo:=winID
LB_ControlGetID( cID, "ListBox1", winID:=WinExist("Dup Detector ahk_class #32770"))
cTxt:=LB_QueryText( cID, LB_QueryCursor(cID))
if( SubStr(cTxt, 1, 12) == "; Match no: " )
{
if( checkMatchNo <> -1 )
{
MsgBox,,,% "Match#: " SubStr(cTxt, 13), 1
return
}
ControlSend, ListBox1, {Down}, ahk_id %winID%
cTxt:=LB_QueryText( cID, LB_QueryCursor(cID))
}
RegExMatch(cTxt, "^Image (\d) path: (.*)$", dTmp)
imgNum1:=dTmp1, imgNam1:=dTmp2
;MsgBox, imgNum1: %imgNum1%
ControlFocus, ListBox1, ahk_id %winID%
Send, % (imgNum1 == 2) ? "{Up}" : "{Down}"
cTxt:=LB_QueryText(cID, LB_QueryCursor(cID))
RegExMatch(cTxt, "^Image (\d) path: (.*)$", dTmp)
imgNum2:=dTmp1, imgNam2:=dTmp2
; MsgBox, % "(" imgNum1 ") :: " imgNam1 "`n(" imgNum2 ") :: " imgNam2
return (imgNum1)
}
#ifWinActive, Dup Detector ahk_class #32770
MButton::
{
if( imgNum:=DD_GetText(winID, imgNam1, imgNum1, imgNam2, imgNum2))
{
MsgBox, 0x4,, % "Delete (" imgNum ")`n " (imgNum==1 ? "Left" : "Right") " Image?`n" ,4
ifMsgBox, NO
return
ControlFocus, % "Button" (3 + imgNum), ahk_id %winID%
Send, {Enter}
}
return
}
#l::
{
if( imgNum:=DD_GetText(winID, imgNam1, imgNum1, imgNam2, imgNum2))
{
ControlFocus, % "Button" (3 + imgNum), ahk_id %winID%
;; Button4 == Delete Image 1
;; Button5 == Delete Image 2
}
return
}
$LButton::
{
if( MouseInWindow( mControl, aWin:=WinActive("Dup Detector ahk_class #32770")))
ControlFocus, Static12, ahk_id %aWin%
Send, % GetKeyState("LButton", "P") ? "{LButton Down}" : ""
}
$LButton UP::
{
if(GetKeystate("LButton", "P"))
return
if( MouseInWindow( mControl, aWin:=WinActive("Dup Detector ahk_class #32770")))
{
ControlGetFocus, aFocus, A
MouseGetPos,,,,mCtrl, 2
ControlGet( aCtrl:="HWND#", aFocus, "A" )
ControlGetText( cTxt, aCtrl )
Send, {LButton Up}
if( mCtrl <> aCtrl )
return
if( cTxt == "Back" || cTxt == "Next" )
ControlSend, ListBox1, {Down}, ahk_id %aWin%
return
}
Send, {LButton Up}
return
}
WheelDown::
WheelUp::
{
if(GetKeyState("Shift"))
ControlSend, ListBox1, % (A_ThisHotkey == "WheelUp" ? "{Up}" : "{Down}"), A
else
Send, {%A_ThisHotkey%}
return
}
XButton2::
{
if( imgNum:=DD_GetText(winID:=-1, imgNam1, imgNum1, imgNam2, imgNum2))
{
SplitPath(imgNam1, file1, path1)
SplitPath(imgNam2, file2, path2)
if( GetKeyState("Shift") && copyFile:=1 )
MsgBox, 0x4,, % "COPY IMG (" imgNum ") TO (" (mod(imgNum, 2) + 1) ") ??`n " (mod(imgNum,2) ? "--->>" : "<<---")
else
MsgBox, 0x4,, % "Move IMG (" imgNum ") TO (" (mod(imgNum, 2) + 1) ") ??`n " (mod(imgNum,2) ? "--->>" : "<<---")
ifMsgBox, NO
return
if( copyFile && !(copyFile:=0))
{
FileCopy, %imgNam1%, %path2%
ControlFocus, % "Button" (3 + imgNum), ahk_id %winID%
}
else
{
FileMove, %imgNam1%, %imgNam2%, 1
ControlFocus, Button7, ahk_id %winID%
}
Send, {Enter}
Sleep, 250
ControlSend, ListBox1, {Down}, ahk_id %aWin%
}
return
}
~RButton::
{
if(!GetKeyState("Shift"))
return
if( closeIV && !(closeIV:=0))
{
WinClose, ahk_pid %ivPID1%
WinClose, ahk_pid %ivPID2%
return
}
if(!imgNum:=DD_GetText(winID:=-1, imgNam1, imgNum1, imgNam2, imgNum2))
return
EnvGet, gImageView, gImageView
Run, %gImageView%\IrfanView\i_view32.exe %imgNam1%,,,ivPID1
Run, %gImageView%\IrfanView\i_view32.exe %imgNam2%,,,ivPID2
closeIV:=1
}
return
#ifWinActive ahk_class IrfanView
{
~RButton::
if(!GetKeyState("Shift"))
return
if( closeIV && !(closeIV:=0))
{
WinClose, ahk_pid %ivPID1%
WinClose, ahk_pid %ivPID2%
ifWinActive, IrfanView ahk_class #32770
Send, {Tab}{Tab}{Enter}
}
WinActivate, Dup Detector ahk_class #32770
MouseMove, 229, 465
KeyWait, RButton
ifWinExist, ahk_class #32768
WinClose, ahk_class #32768
return
return
}
There are a few ideas I've had to improve it's usage, but it works well enough for me atm.
Does anyone know a way of finding "100% exact image duplicates" (preferably within TC, e.g. by using an addon; otherwise an external program) ?
"exact image duplicates": means that each pixel in image A has the same colour as in image B
Note that images can be 100% identical but have different file size and hash value (e.g. think of .jpeg images with comments or added/deleted exif data).
I have tested several "image duplicate finder" programs, and while they work extremely well for finding similar images, none of them offers the possibility to check if images are exactly identical. Some of them even display a "similarity percentage value", but - alas - 100% does not really mean 100% identical, but rather "a very close match" (which sometimes turns out to be 100% identical, but sometimes not). Bad terminology.
So how can I find 100% exact image duplicates ?
That's a big step forward! I will look into it ASAP.