SaveFolder := "d:\desktop\autosave" ;要保存的位置
global WechatProfileFolder := "D:\Documents\WeChat Files\wxid_xxxxxxx" ;微信个人存档位置,一般在我的文档下面
IfNotExist % SaveFolder
FileCreateDir % SaveFolder
global TmpImgPath := WechatProfileFolder "\FileStorage\Temp\MM_WeChat_Image.dat"
LastSize := GetTmpImgSize()
LastHWnd := ""
Loop
{
WinWait, ahk_class ImagePreviewWnd
{
WinGet, TmpHwnd, ID, ahk_class ImagePreviewWnd
if(TmpHwnd<>LastHWnd)
{
LastHWnd := TmpHwnd
while(LastSize <> (TmpSzie := GetTmpImgSize()))
{
LastSize := GetTmpImgSize()
Sleep, 500
}
FileCopy, % TmpImgPath, % SaveFolder "\" Clipboard ".jpg", 1
WinClose, ahk_id %TmpHwnd%
}
else
Sleep, 500
}
}
GetTmpImgSize()
{
IfExist % TmpImgPath
{
FileGetSize, size, % TmpImgPath
return size
}
else
return 0
}
62 queries in 1.935 seconds |