在ie客户端调用windows系统资源

来源:互联网 发布:unity3d 雷电特效 编辑:程序博客网 时间:2024/06/13 07:22

long.htm
<HTML>
<HEAD>
<TITLE>Start Page</TITLE>

<OBJECT ID="oShell"
CLASSID="clsid:13709620-C279-11CE-A49E-444553540000">
</OBJECT>

<STYLE>
INPUT {width: 200} 
</STYLE>

<SCRIPT LANGUAGE="VBScript">
<!--
function fnStart(sMethod)
select case sMethod
case 0 
'Minimizes all windows on the desktop
oShell.MinimizeAll
case 1 
'Displays the Run dialog box
oShell.FileRun
case 2 
'Displays the Shut Down Windows dialog box
oShell.ShutdownWindows
case 3 
'Displays the Find dialog box
oShell.FindFiles
case 4 
'Displays the Date/Time dialog box
oShell.SetTime 
case 5 
'Displays the Internet Properties dialog box
oShell.ControlPanelItem "INETCPL.cpl"
case 6 
'Explores the My Documents folder
oShell.Explore "C:\My Documents"
case 7 
'Enables user to select folder from Program Files
oShell.BrowseForFolder 0, "My Programs", 0, "C:\Program Files" 
case 8 
'Opens the Favorites folder
oShell.Open "C:\WINDOWS\Favorites"
case 9 
'Displays the Taskbar Properties dialog box
oShell.TrayProperties
end select 
end function 
-->
</SCRIPT>

</HEAD>

<BODY>

</BODY>

</HTML>

0 0
原创粉丝点击