autohotkey实现预加载并复用一些图像

; 预加载并复用一些图像

Pics := []
; 寻找几张图像用来展示
Loop, Files, %A_WinDir%\Web\Wallpaper\*.jpg, R
{
    ; 载入找到的图像并添加到数组中
    Pics.Push(LoadPicture(A_LoopFileFullPath))
}
if !Pics.Length()
{
    ; 如果发生找不到文件的情形，将正确的路径手动添加到上述的loop循环中
    MsgBox, No pictures found!  Try a different directory.
    ExitApp
}
; 创建图标控件,保持第一张图的宽高比
Gui, Add, Pic, w600 h-1 vPic +Border, % "HBITMAP:*" Pics.1
Gui, Show
Loop 
{
    ; 切换图片!
    GuiControl, , Pic, % "HBITMAP:*" Pics[Mod(A_Index, Pics.Length())+1]
    Sleep 3000
}
return
GuiClose:
GuiEscape:
ExitApp