在IE客户端调用windows系统资源
发布日期:2021-06-30 19:06:38 浏览次数:2 分类:技术文章

本文共 1794 字,大约阅读时间需要 5 分钟。

<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>

<H1>Start...</H1>

<INPUT type="button" value="Edit Taskbar Properties" οnclick="fnStart(9)"><br>
<INPUT type="button" value="Open Favorites Folder" οnclick="fnStart(8)"><br>
<INPUT type="button" value="Browse Program Files" οnclick="fnStart(7)"><br>
<INPUT type="button" value="Explore My Documents" οnclick="fnStart(6)"><br>
<INPUT type="button" value="Modify Internet Properties" οnclick="fnStart(5)"><br>
<INPUT type="button" value="Set System Time" οnclick="fnStart(4)"><br>
<INPUT type="button" value="Find a File or Folder" οnclick="fnStart(3)"><br>
<INPUT type="button" value="Shut Down Windows" οnclick="fnStart(2)"><br>
<INPUT type="button" value="Run" οnclick="fnStart(1)"><br>    
<INPUT type="button" value="Minimize All Windows" οnclick="fnStart(0)">     
</BODY>
</HTML>

 

转载地址:https://linuxstyle.blog.csdn.net/article/details/1535770 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!

上一篇:document.all与WEB标准
下一篇:列表框操作函数集合

发表评论

最新留言

表示我来过!
[***.240.166.169]2024年04月05日 13时24分11秒