!壁纸助手

/*
Name:壁纸助手
Version:1.0
Author:lyuchen
E-mail:lyuchen@sohu.com
*/

#NoTrayIcon
#SingleInstance, Force

Gui, -MaximizeBox -MinimizeBox +AlwaysOnTop
Gui, Margin, 5, 5
Gui, Add, Button, gChange, 切换
Gui, Add, Button, x+5 gDelete, 删除
Gui, Show, AutoSize Center, 壁纸助手
Return

GuiClose:
GuiEscape:
ExitApp
Return

Change:
Gui, Submit, Nohide
ControlClick, x1279 y0, Program Manager,, Right
WinWait, ahk_class #32768
Send, {N}
Return

Delete:
Gui, Submit, Nohide
RegRead, Wallppaper, HKEY_CURRENT_USER,SoftwareMicrosoftInternet ExplorerDesktopGeneral, WallpaperSource
FileRecycle, %Wallppaper%
MsgBox, 0,, %Wallppaper%`n已移入回收站, 0.5
ControlClick, x1279 y0, Program Manager,, Right
WinWait, ahk_class #32768
Send, {N}
Return
;#IfWinActive, 壁纸助手
N::Goto Change
C::Goto Delete