ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 6350|回复: 4

[转帖]SHELL语句用法心得

[复制链接]

TA的精华主题

TA的得分主题

发表于 2003-6-18 14:51 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖已被收录到知识树中,索引项:VBA函数
【SHELL语句用法心得】 一. 调用系统“创建快捷方式”向导   是否为VB不支持创建快捷方式而于着急呢?虽然您可以调用vb5stkit.dll中的fCreateShellLink函数但它是为安装程序设计的,快捷方式的默认路径总是从当前用户的“\Start Menu\Programs”开始,也就是说,如果您的Windows系统装在C盘上,您无法通过 fCreateShellLink 函数把快捷方式创建到D盘上去。   现在,给大家介绍一种极为方便、巧妙的方法: 用Shell语句调用系统“创建快捷方式”向导。   新建一个项目,在窗体上放一个按钮,双击此按钮,加入以下代码: Private Sub Command1_Click()   Open App.Path & "\temp.lnk" For Output As #1   Close #1 '以上两句在程序所在目录建立一个临时文件   Shell "Rundll32.exe AppWiz.Cpl,NewLinkHere "& App.Path & "\temp.lnk" End Sub   (注意:Shell语句中NewLinkHere后面跟着一个空格才是引号,否则将出错。)   运行程序,按一下命令按钮,怎么样?“创建快捷方式”向导出现了,如果创建成功,快捷方式将取 代临时文件temp.lnk的位置,如果选取消,temp.lnk 也会自动消失。当然,您可以在硬盘的任意位置建立 temp.lnk。好,现在又可以为您的程序增添一项新功能了。Enjoy! 二. Rundll32.exe的用途   我们知道,用Shell语句只能调用可执行文件,即 exe、com、bat 和 pif 文件,有时我们想要调用其他一 些系统功能该怎么办呢?此时,Windows提供的 Rundll32.exe可大显身手了。下面我们来认识一下这些用法,也许会给您带来一点惊喜。   1.要打开设置系统时间的控制面板文件 (Timedate.cpl),只需运行如下代码:   Shell "Rundll32.exe   Shell32.dll,Control_RunDLL Timedate.cpl"   至于打开其他控制面板文件,相信您一定能够举一反三,尝试一下,换个文件名就成了。   2.要运行某一快捷方式(*.lnk)则可以用以下代码:   She11 "Rundll32.exe url.dll, FileProtocolHandler X"   (X代表要运行的文件,包括路径,下同。)   3. 也可以这样写来打开ActiveMovie控制:   Shell "RUNDLL32.EXE amovie.ocx,Rundll",1   而用Shell "RUNDLL32.EXE amovie.ocx,Rundll /play X",1 将直接播放媒体文件。   4. Shell "rundll32.exe desk.cpl,InstallScreenSaver X”当然是安装屏幕保护啦,如果你写了一个屏幕保护程序,那么可以在安装程序中写上它,而不一定要装到system目录下。顺便提一下,VB不是自捞一个“Application Setup Wizard”么?它的VB源代码都在安装目录下的 “\setupkit\setup1”中放着呢,好好把它研究一下。 你完全能做出富有个性的安装程序来。   5.按住shift键,右击某一文件,菜单中会出现 “打开方式”选项,这也许已不是什么秘密。但现在, 用shell "rundll32.exe shell32.dll OpenAs_RunDLL X" 便能直接调用“打开方式”框。   6. 甚至能用这样一句来打印文件(包括HTML所 支持的所有文本与图像格式):   Shell "rundll32.exe MSHTML.DLL,PrintHTML X”, 1   怎么样?是不是小有收获呢?这下,您一定会对 Rundll32.exe这个平时不起眼的文件另眼相待了,它可是系统运行必不可少的部件呢!其实 Shell+Rundll32 还能调用其他许多系统功能,比如关于NetMeeting和Telnet方面的。如果您有兴趣,可以 到往册表的“我的电脑\HKEY_CLASSES_ROOT\”或“我的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES”下 去看看,本文的内容大都是从那里“抄”来的。只要有足够的决心、信心、耐心,您一定能发现更多有价值的东西。Good luck!

TA的精华主题

TA的得分主题

发表于 2004-10-31 17:25 | 显示全部楼层
這是資訊帖子,不是 零 回覆帖子

TA的精华主题

TA的得分主题

发表于 2009-3-24 21:03 | 显示全部楼层
谢谢!
这样是不是方便一点:(?)

[转帖]【SHELL语句用法心得】

一. 调用系统“创建快捷方式”向导
  是否为VB不支持创建快捷方式而于着急呢?虽然您可以调用vb5stkit.dll中的fCreateShellLink函数但它是为安装程序设计的,快捷方式的默认路径总是从当前用户的“\Start Menu\Programs”开始,也就是说,如果您的Windows系统装在C盘上,您无法通过 fCreateShellLink 函数把快捷方式创建到D盘上去。

  现在,给大家介绍一种极为方便、巧妙的方法: 用Shell语句调用系统“创建快捷方式”向导。

  新建一个项目,在窗体上放一个按钮,双击此按钮,加入以下代码:
Private Sub Command1_Click()
Open App.Path & "\temp.lnk" For Output As #1
Close #1 '以上两句在程序所在目录建立一个临时文件
Shell "Rundll32.exe AppWiz.Cpl,NewLinkHere " & App.Path & "\temp.lnk"
End Sub

  (注意:Shell语句中NewLinkHere后面跟着一个空格才是引号,否则将出错。)

  运行程序,按一下命令按钮,怎么样?“创建快捷方式”向导出现了,如果创建成功,快捷方式将取 代临时文件temp.lnk的位置,如果选取消,temp.lnk 也会自动消失。当然,您可以在硬盘的任意位置建立 temp.lnk。好,现在又可以为您的程序增添一项新功能了。
Enjoy!

二. Rundll32.exe的用途
  我们知道,用Shell语句只能调用可执行文件,即 exe、com、bat 和 pif 文件,有时我们想要调用其他一些系统功能该怎么办呢?此时,Windows提供的 Rundll32.exe可大显身手了。下面我们来认识一下这些用法,也许会给您带来一点惊喜。  

  1.要打开设置系统时间的控制面板文件 (Timedate.cpl),只需运行如下代码:
  Shell "Rundll32.exe  Shell32.dll,Control_RunDLL Timedate.cpl"
  至于打开其他控制面板文件,相信您一定能够举一反三,尝试一下,换个文件名就成了。  

  2.要运行某一快捷方式(*.lnk)则可以用以下代码:
  She11 "Rundll32.exe url.dll, FileProtocolHandler X"
  (X代表要运行的文件,包括路径,下同。)   
  
  3. 也可以这样写来打开ActiveMovie控制:
  Shell "RUNDLL32.EXE amovie.ocx,Rundll",1
  而用Shell "RUNDLL32.EXE amovie.ocx,Rundll /play X",1 将直接播放媒体文件。

  4. Shell "rundll32.exe desk.cpl,InstallScreenSaver X”当然是安装屏幕保护啦,如果你写了一个屏幕保护程序,那么可以在安装程序中写上它,而不一定要装到system目录下。顺便提一下,VB不是自捞一个“Application Setup Wizard”么?它的VB源代码都在安装目录下的 “\setupkit\setup1”中放着呢,好好把它研究一下。 你完全能做出富有个性的安装程序来。

  5.按住shift键,右击某一文件,菜单中会出现 “打开方式”选项,这也许已不是什么秘密。但现在,
用shell "rundll32.exe shell32.dll OpenAs_RunDLL X" 便能直接调用“打开方式”框。

  6. 甚至能用这样一句来打印文件(包括HTML所支持的所有文本与图像格式):
  Shell "rundll32.exe MSHTML.DLL,PrintHTML X”, 1
  怎么样?是不是小有收获呢?这下,您一定会对 Rundll32.exe这个平时不起眼的文件另眼相待了,它可是系统运行必不可少的部件呢!其实 Shell+Rundll32 还能调用其他许多系统功能,比如关于NetMeeting和Telnet方面的。如果您有兴趣,可以 到往册表的“我的电脑\HKEY_CLASSES_ROOT\”或“我的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES”下去看看,本文的内容大都是从那里“抄”来的。只要有足够的决心、信心、耐心,您一定能发现更多有价值的东西。
Good luck!

TA的精华主题

TA的得分主题

发表于 2009-3-24 22:52 | 显示全部楼层
谢谢guzhen9315重新整理帖子的格式

TA的精华主题

TA的得分主题

发表于 2022-11-9 15:19 | 显示全部楼层
guzhen9315 发表于 2009-3-24 21:03
谢谢!
这样是不是方便一点:(?)

Open App.Path & "\temp.lnk" For Output As #1要求对象怎么弄?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-19 09:03 , Processed in 0.038075 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表