vb shell 问题

电脑 2022-12-24

VB中shell的大问题？

Shell 函数执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。语法 Shell(pathname[,windowstyle]) Shell 函数的语法含有下面这些命名参数：部分描述 pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。 Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。 wi

VB中关于Shell的问题

如果未指定文件的绝对路径，系统会首先在当前文件夹（一般就是你的程序所在的文件夹）查找文件，如果未找到，它会再去环境变量path中指定的路径中查找，如果仍未找到，它才会最终提示你“文件未找到”。值得说明的是，regsvr32.exe文件也是通过这种方式找到的。所以如果你的DLL文件是与你的程序放在同一文件夹的，你可以省略路径。当然从严谨的角度来说，最好还是加上路径为好。

VB中的shell函数的一些问题

taskkill 是命令行命令，就是和你在开始运行里输入这个命令一样 "taskkill /im 1.exe /f", vbHide " 是外部的命令由 cmd执行，你可以打开 cmd运行这个命令效果一样 / 表示参术而\表示的是路径， /IM是参数所以用 / 打开 txt 文件需要调用外部命令 NOTEPAD.EXE 不如打开 c:\bootbak.ini 就是 shell "NOTEPAD.EXE c:\bootbak.ini" 如果文件路径带有空格什么的就加表意符号双引号

VB程序里shell函数问题

Shell会返回执行程序的进程的标识号Pid，通过定时检查pid就能判断程序是否还在运行

以下函数返回指定的pid是否存在，

调用方法：MsgBox PidIsTrue(Shell("notepad.exe"))

PrivateTypePROCESSENTRY32
dwsizeAsLong
cntUsageAsLong
th32ProcessIDAsLong
th32DefaultHeapIDAsLong
th32ModuleIDAsLong
cntThreadsAsLong
th32ParentProcessIDAsLong
pcPriClassBaseAsLong
dwFlagsAsLong
szExeFileAsString*260
EndType
PrivateDeclareFunctionCreateToolhelpSnapshotLib"kernel32"Alias"CreateToolhelp32Snapshot"(ByVallFlagsAsLong,ByVallProcessIDAsLong)AsLong
PrivateDeclareFunctionProcessFirstLib"kernel32"Alias"Process32First"(ByValhSnapshotAsLong,uProcessAsPROCESSENTRY32)AsLong
PrivateDeclareFunctionProcessNextLib"kernel32"Alias"Process32Next"(ByValhSnapshotAsLong,uProcessAsPROCESSENTRY32)AsLong
PrivateDeclareFunctionCloseHandleLib"kernel32"(ByValhObjectAsLong)AsLong
PrivateFunctionPidIsTrue(ByValPidAsLong)AsBoolean
DimProcAsPROCESSENTRY32
DimsnapAsLong
DimtheloopAsLong
snap=CreateToolhelpSnapshot(15,0)
Proc.dwsize=Len(Proc)
theloop=ProcessFirst(snap,Proc)
DoWhiletheloop<>0
IfProc.th32ProcessID=PidThen
PidIsTrue=True
ExitFunction
Else
PidIsTrue=False
EndIf
theloop=ProcessNext(snap,Proc)
Loop
CloseHandlesnap
EndFunction