slore

'1.显示桌面
'直接调用系统显示桌面方法
Dim objSHA
Set objSHA = CreateObject("Shell.Application")
objSHA.ToggleDesktop
Set objSHA = Nothing


'2.激活窗口
Dim WshShell
Set WshShell = CreateObject("WSCript.Shell")
WshShell.Appactivate "窗口标题"
Set WshShell = Nothing