$oShell = ObjCreate("shell.application") ;创建对象
$oShell.SetTime()
Sleep(800)
$oShell.ShutdownWindows()
Sleep(800)
If $oShell.IsServiceRunning ("Beep")="True" Then
MsgBox(64,"服务-Beep","在运行中……")
$oShell.ServiceStart("Beep",false)
Else
$oShell.ServiceStop("Beep",true);停用用"Beep"服务 其实已经停用了 不改变原的设置
EndIf
;$oShell.ServiceStop("Beep",true) 真正停用 启动类型会更改成"3"-手动
MsgBox(64,"双点击间隔时间,以毫秒为单位。",$oShell.GetSystemInformation("DoubleClickTime"))
MsgBox(64,"处理器等级",$oShell.GetSystemInformation("ProcessorLevel"))
MsgBox(64,"处理器架构",$oShell.GetSystemInformation("ProcessorArchitecture")) ;0为X86 9为AMD64 6为IA64
MsgBox(64,"物理内存量",$oShell.GetSystemInformation("PhysicalMemoryInstalled"))
MsgBox(64,"Set to true if the operating system is Windows XP Professional Edition; otherwise, false.",$oShell.GetSystemInformation("IsOS_Professional"))
$oShell.BrowseForFolder(0,"请选择目标系统目录,如:C:\Windows",4,"::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
$oShell.MinimizeAll() ;最小化所有窗口
Sleep(500)
$oShell.UndoMinimizeALL() ;还原窗口
$oShell.open("c:") ;打开C:\
$oShell.FileRun() ;调用运行对话
$oShell.FindFiles() ;调用搜索窗口
|