北京农商银行篮球队员:VB中shell的用法

SHELL语句用法心得

一. 调用系统“创建快捷方式”向导
是否为VB不支持创建快捷方式而于着急呢？虽然 您可以调用vb5stkit．Dll中的fCreateShellLink函 数，但它是为安装程序设计的，快捷方式的默认路径 总是从当前用户的“＼Start Menu＼Programs”开始，也 就是说，如果您的Windows95装在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!

Shell 函数

执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

语法

Shell(pathname[,windowstyle])

Shell 函数的语法含有下面这些命名参数：

部分 描述
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。

windowstyle 命名参数有以下这些值：

常量 值 描述
vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。

说明

如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。

注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。

Shell 函数示例
本示例使用 Shell 函数来完成一个用户指定的应用程序。

' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 完成Calculator。

语法：ID=shell(“文件.exe”，Style)
功能：以Style参数所指定的方式来打开可执行文件窗口形式
ID：属Integer数据类型代表调用shell函数的传回值。
文件名.exe 其扩展名可省略文件名可以使用变量若有需要应该加上磁盘驱动器名与路径