本帖最后由 阿福 于 2010-1-7 22:12 编辑
问题补充:按您下楼所提功能,应是“虚拟桌面专家”的功能,这个用au3我没写过,歉,有空时我负责了。
元月7日:见20#
为了升级快点,老板键也帮你写了吧。
例如你新建了一个桌面“game”,按ctrl+0回到工作桌面“Default”:
在主程序处加上:
HotKeySet("^0", "_ChangeDefaltDesktop")
再加上一个自定义函数:
Func _ChangeDefaltDesktop()
TrayItemSetState($desktops[$currentIndex][0], 4)
$currentDesktop="Default"
For $a = 1 to $count
If $desktops[$a][1] = $currentDesktop then
$currentIndex = $a
ExitLoop
EndIf
Next
_StoreDesktop(@DesktopDir, $desktopsDir & '\' & $currentDesktop, 0)
$newWallpaper = IniRead($desktopsDir &'\DesktopInfo.ini' , 'Background', $currentDesktop, '')
If $newWallpaper <> '' then _ChangeDesktopBackground($newWallpaper)
TrayItemSetState($desktops[$a][0], 1)
WinActivate('Program Manager')
Send('{F5}')
EndFunc
完整代码如下(上一楼的就不用下载了,只要下载这楼的,和上一楼的区别就是加了自定义函数_ChangeDefaltDesktop)
|