VB CreateProcess代码

最新推荐文章于 2023-09-03 14:32:10 发布

原创

最新推荐文章于 2023-09-03 14:32:10 发布 · 4.7k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vb #attributes #string #security #function #integer

这是一个VB代码示例，展示了如何使用CreateProcess函数创建并运行一个进程。通过声明和使用各种函数如CreateProcess、CloseHandle等，该代码创建了一个管道来获取命令行输出，并提供了RunCommand函数供外部调用，可以指定是否等待进程结束和显示窗口状态。

Attribute VB_Name = " Run_Command "

Option Explicit

Option Base 0

'Powered by barenx

Private Declare Function CreateProcess() Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, _

ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, _

ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDirectory As String, _

lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long

Private Declare Function CloseHandle()Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long

Private Declare Function ReadFile()Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Long) As Long

Private Declare Function WaitForSingleObject()Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long