Setos=CreateObject("wscript.shell")

Setos0=CreateObject("shell.application")

Do

input1=InputBox("请选择："+chr(13)+chr(13)+_

"1.全部窗口最小化"+chr(13)+_

"2.窗口状态复原"+chr(13)+_

"3.窗口均匀平铺"+chr(13)+_

"4.窗口纵向平铺"+chr(13)+_

"5.窗口重叠展开"+Chr(13)+_

"6.资源管理器"+chr(13)+_

"7.设置系统时间"+Chr(13)+_

"8.刷新系统菜单"+Chr(13)+_

"9.手动设置开始菜单"+Chr(13)+_

"10.搜索文件"+Chr(13)+_

"11.搜索计算机"+Chr(13)+_

"12.运行"+Chr(13)+_

"13.帮助"+Chr(13)+_

"14.打开文件夹"+Chr(13)+_

"15.挂起系统"+Chr(13)+_

"16.关闭系统"+Chr(13)+_

"","vbsshell32功能调用")

SelectCaseinput1

Case1

os0.MinimizeAll

Case2

os0.UndoMinimizeALL

Case3

os0.TileHorizontally

Case4

os0.TileVertically

Case5

os0.CascadeWindows

Case6

p1=os.SpecialFolders("desktop")

os0.Explore(p1)

Case7

os0.SetTime

Case8

os0.RefreshMenu

Case9

os0.TrayProperties

Case10

os0.FindFiles

Case11

os0.FindComputer

Case12

os0.FileRun

Case13

os0.Help

Case14

Setpath1=os0.BrowseForFolder(0,"选择要打开的文件夹:",0)

Ifpath1IsNothingThen

Else

os0.Open(path1.self.path)

EndIf

Case15

os0.Suspend

Case16

os0.ShutdownWindows

Case""

ExitDo

CaseElse

os.Popup"选择错误",2,"错误",64+0

EndSelect

loop