微软核心模块shell32.dll的应用

以你之姓@ 2022-02-02 01:39 230阅读 0赞

没有想到shell32.dll还隐藏着很多实用的功能函数，比如打开文件夹，查找电脑，最小化所有窗体等等，这个shell32.dll既是一个标准的COM，还是一个可以作为普通的DLL进行函数引用。

[![182149228.gif][]][182149228.gif] [![182150595.gif][]][182150595.gif]

'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
'\*\*模 块 名：frmDemo  
'\*\*说 明：YFsoft 版权所有2006 - 2007(C)  
'\*\*创 建 人：叶帆  
'\*\*日 期：2006-08-29 10:55:17  
'\*\*修 改 人：  
'\*\*日 期：  
'\*\*描 述：微软核心模块shell32.dll的应用  
'\*\*版 本：V1.0.0  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
Option Explicit  
Dim MsShell As New Shell

'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
'\*\*函 数 名：cmdTest\_Click  
'\*\*输 入：Index(Integer) -  
'\*\*输 出：无  
'\*\*功能描述：  
'\*\*全局变量：  
'\*\*调用模块：  
'\*\*作 者：叶帆  
'\*\*日 期：2006-08-29 10:55:19  
'\*\*修 改 人：  
'\*\*日 期：  
'\*\*版 本：V1.0.0  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
Private Sub cmdTest\_Click(Index As Integer)  
On Error GoTo ToExit '打开错误陷阱  
'------------------------------------------------  
Select Case Index  
'------------------------------------------------  
Case 0: '查找电脑  
MsShell.FindComputer  
Case 1: '文件运行  
MsShell.FileRun  
Case 2: '查找文件夹  
MsgBox MsShell.BrowseForFolder(Me.hWnd, "查找文件夹", 0).Title  
Case 3: '层叠窗口  
MsShell.CascadeWindows  
Case 4: '查找文件  
MsShell.FindFiles  
Case 5: 'Windows帮助  
MsShell.Help  
Case 6: '窗口最小化  
MsShell.MinimizeAll  
Case 7: '恢复最小化  
MsShell.UndoMinimizeALL  
Case 8: '打开文件  
MsShell.Open ("c:windows otepad.exe")  
Case 9: '设置时间  
MsShell.SetTime  
Case 10: '关闭计算机  
MsShell.ShutdownWindows  
Case 11: '水平窗口  
MsShell.TileHorizontally  
Case 12: '垂直窗口  
MsShell.TileVertically  
Case 13: '路径名称  
MsgBox MsShell.NameSpace("c:windowssystem32").Title  
End Select  
  
'------------------------------------------------  
Exit Sub  
'----------------  
ToExit:  
MsgBox Err.Description  
End Sub

本文转自yefanqiu51CTO博客，原文链接：http://blog.51cto.com/yfsoft/323474，如需转载请自行联系原作者

[182149228.gif]: http://blog.51cto.com/attachment/201005/182149228.gif
[182150595.gif]: /images/20220202/dce7c7e19be54fbd9bafa4c2b06e6cc9.png