2024年1月15日发(作者：)
SHELL命令在VBA中的妙用
SHELL命令在VBA中的妙用
SHELL命令在VBA中的妙用
想要文件关闭的时候进行备份？想要把DOS命令加入到日常中的应用中来？没问题，用SHELL就行了。
如你的前台一启动的时候就自动建立虚拟盘，可以在LOAD事件里加入：
shell "subst X: H:ushareMRP"
这样就可以在文件打开的时候自动把H:ushareMRP映射成X盘，有利于文件分发。
同理，也可以加入其它的如XCOPY命令来备份。
当然，你要是把DOS命令做成一个BAT文件执行，用SHEEL "PATH“,1
来执行.SHEEL语句后面的那个1的意思如下：
常数 值 描述
vbHide 0 窗口是隐藏的，并且焦点被传递给隐藏窗口。
vbNormalFocus 1 窗口拥有焦点，并且恢复到原来的大小与位置。
vbMinimizedFocus 2 窗口缩小为图符并拥有焦点。
vbMaximizedFocus 3 窗口最大化并拥有焦点。
vbNormalNoFocus 4 窗口被恢复到最近一次的大小与位置。当前
活动窗口仍为活动窗口。
vbMinimizedNoFocus 6 窗口缩小为图符。当前活动窗口仍为活动窗口。
VBA SHELL语句用法心得--转录
一、关于
过去，你曾经为了自己编的文件管理器能Format 磁盘、浏览器能自动拨号连接而求助于那位高傲的 API。现在，向你提供了更为平易近人的 方法来实现这些功能。
例如，要调用关机程序则为：shell “ ，exitwindOws”。
调用模块 命 令 结 果
,Control_RunDLL 打开控制面板
shell32,SHHelpShortcuts_Rundll
PrintersFolder 打开打印机文件夹
shell32,SHHelpShortcuts_Rundll FontsFolder
打开字体文件夹
shell32,SHHelpShortcuts_Rundll AddPrinter 添加新打印机向导
shell32,SHformatDrive 格式化软盘
shell32,Control_RunDLL 系统属性，
常规
shell32,Control_RunDLL ,,l 系统属性，设备管理器
shell32,Control_RunDLL ,,3 系统属性，性能
shell32,Control_RunDLL @1 添加新硬件向导
shell32,Control_RunDLL ,,1 添加/删除程序
shell32,Control_RunDLL ,,2 安装Windows部件
shell32,Control_RunDLL ,,3 制作启动盘
,DiskcopyRundll 复制磁盘
,RnaDial x (x为连接名称) 打开拨号边接对话框，若已连接，则显示连接状态对话框
,RnaWizard 新建拨号连接向导
shell32,Control_RunDLL ,,0 选择桌面
背景
shell32,Control_RunDLL ,,1 选择屏幕保护
shell32,Control_RunDLL ,,2 选择外观
shell32,Control_RunDLL ,,3 设置显示属性
shell32,Control_RunDLL @0 设置鼠标属性
shell32,Control_RunDLL @1 设置键盘属性，速度
shell32,Control_RunDLL @1,,1 设置键盘属性，语言
shell32,Control_RunDLL @2 打开打印机文件夹
shell32,Control_RunDLL @3 打开字体属性
shell32,Control_RunDLL @4 设置输入法
shell32,Control_RunDLL ,,add 添加调制解调器向导
shell32,Control_RunDLL @1 设置声音属性（也可以加入,,0到,,4的参数以选择不同的标签）
,exitwindows 关闭计算机
二、如何确定Shell语句调用的程序已经关闭
这个标题确实太长，但它确实概括了本节的内容。 当你需要等待由Shell启动的应用程序运行完毕时， 便会发现Shell语句只管调用，之后就撒手不管了，于 是我们不得不动用一下API函数了。当然我们可以用 API来完成全部的工作，但是如果那样的话，我们将要 面临CreateProcess这个非常复杂的函数，光写下它 和相关结构类型的宣告就超出一页纸了。别误会，我 说这些的目的只是为了让大家体会到下面我们将要做 的是多么简单的事。
只需按以下步骤step by step，便OK了。
1．新建一个项目，在窗体上放一个command1，再 添加一个Module。
2. 在Module中写入如下代码：
Option Explicit
以下声明了OpenProcess，GetExitCodeProcess 和Closeandle 三个API函数
Public Declare Function OpenProcess Lib"ker nel32"（ByVal
dwDesiredAccess As Long， ByVal bInheritHandle As Long， ByVal
dwProcessId As Long）As Long
Public Declare Function GetExitcodeProcess Lib “kernel32”（ByVal hProcess As Long， 1pExitcode As Long） As Long
Public Declare Function Closellandle Lib "Ker nel32”（ByVal
hobject As Long) As Long
Publi Const PROCESS_QUERY_INFORMATION= ＆H400
Public Const STATUS_PENDING ＝ ＆H103＆
3．打开窗体的代码窗口，写入如下代码：
Option Explicit
Private Sub RunShell（cmdline As String） 这个自定义过程完成了所有工作
Dim hProcess As Long
Dim ProcessId As Long
Dim exitCode As Long
ProcessId ＝ Shell（cmdline，1）'此处利用了 Shell当函数使用时返回的任务标识
hProcess＝OpenProcess（PROCESS_QUERY_INFOR MATION，False，ProcessId）
Do
Ca11 GetExitCodeProcess（hProcess，exitcode)
DoEvents
Loop While exitCode ＝ STATUS_PENDING
Call CloseHandle（hProcess)
MsgBox cmdline ＆ "已经关闭。"
End Sub
Private Sub Command1_Click（）
RunShell ””
End Sub
4·按F5运行，单击Command1运行计事本，关闭 计事本将弹出对话框“ 已经关闭。”
注意：由于本程序是用一个Do..Loop循环来侦测 进程的结束，所以那句DoEvents是绝不能少的，不然 你就只能用Ctrl＋Break来退出了。
三、激活一个正在运行的程序
让我们来考虑这样一种情况：我们在程序中定义 了某一操作是用Shell语句调用Windows的计算器，当 用户重复这一操作时，计算器已经在运行了。如果简 单地再使用Shell语句将打开计算器的另一个进程。 这显然是不合理的。这时我们需要做的是激活已运行 的计算器，下面这段简单的代码帮我们达到了目的、 相信大家一看就懂。
Private Declare Function FindWindow Lib “user32”Alias
“FindWindowA”（ByVal 1pClassName As String，ByVal
1pWindowName As String) As Long
Private Declare Function BringWindowToTop lib “user32”
（ByVal hwnd As Long）As Long
'以上声明了FindWindow和BringWindowToTop两 个API函数
Private Sub Command1-Click()
Dim hCalcWnd As Long
hCalcwnd ＝ Findwindow（“SciCalc”，”计算器”）
这里SciCalc是计算器的窗口类名，详见下一节
lf hCalcWnd＝0 Then
Shell（""，vbNormalFocus）
Else：BringWindowToTop（hCalcWnd）
End lf
End sub
四、如何获得窗口的类名
只是看过上节的读者大部会对窗口的类名提出疑 问，本节就是针对这个问题的。通过本节的内容，你 还能了解到如何跟踪鼠标，并找出它正经过哪个窗口。 好，让我们一步一步地来，这回代码可能稍多一些。
1．建立一个新项目，在窗体的General Decla rations部分写入以下代码，这些语句定义了要用到 的API函数、常量以及结构。
Option Explicit
Dim gbCancel As Boolean
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib “user32" （1pPoint
As POINTAPI） As Long
Private Declare Function WindowFromPoint Lib "user32”（ByVal
xPoint As Long，ByVal yPoint As long） As Long
Private DeClare Function GetClassName Lib “user32”Alias
"GetClassNameA”（ByVal hwnd As Long，ByVal 1pClassName As
String，ByVal aMaxCount As Long）As Long
2．在窗体上放一个Command1，把标题改成“开 始”，再放一个Label1，以下是事件的代码，也请大家 在相应位置写上。
Private Sub Command1_CliCk()
If n ＝"开始" Then
n = "停止"
Call Track
ElSe
n＝"开始"
gbCancel = True
End IF
End Sub
Private Sub Form_Load()
gbCancel = False '初始化循环取消变量
End Sub
Private Sub Form_QueryUnload（Cancel As In teger，UnloadMode
As Integer）
gbCancel = True '确保循环中断
End Sub
3．最后是关键部分，自定义的过程Track。
Sub Track()
Dim PT_Mouse As POINTAPI
Dim 1CurHwnd As Long
Dim 1PrvHwnd As Long
Dim IX As Long，1Y As Long
Dim tClassName As String
Dim 1Result As Long
1PrvHwnd = 0
Do
Call GetCursorPos（PT_Mouse） '获得鼠标位置
1X ＝PT_Mouse.x
1Y＝PT_Mouse.Y
1CurHwnd ＝ WindowFromPolnt（1X,1Y) '获得鼠 标箭头下窗口的句柄
If gbCancel ＝ True Then Exit Do
If 1CurHwnd <> 1PrvHWnd Then '若两值不等则 说明经过不同的窗口，保存新值
1PrvHwnd＝1CurHwnd
tClassName ＝ String$（256," "） '注意引号间 是空格
1Result ＝ GetClassName（1CurHwnd,tClassName,255) '这两句取出类名
tClassName ＝ Left$(tClassName, InStr （tClassName，vbNullChar） -1)
Labell，Caption = "鼠标通过:” ＆ tClassName
'也可写1CurHwnd以获得窗口句柄
End lf
DoEvents '决不可少！切记，切记！
Loop
End sub
运行此程序，按下"开始”按钮后，鼠标所经过的 窗口的类名将在Labell中显示出来。
发布评论