process_check.bas

来自「Usb Key loock vb soucrse code. ocx not f」· BAS 代码 · 共 38 行

Attribute VB_Name = "Process_check"
Public Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long

Public Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long

Public Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long

Public Const PROCESS_QUERY_INFORMATION = &H400
Public Const STATUS_PENDING = &H103&

Public Sub RunShell(cmdline As String) '// 寇何橇肺弊伐 备悼登菌绰瘤 犬牢窍绰 辑宏葛碘

Dim ProcessId As Long '橇肺技胶 酒捞叼
Dim hProcess As Long '坷锹等 橇肺技胶狼 八祸
Dim exitCode As Long '辆丰 内靛

ProcessId = Shell(cmdline, 1) '橇肺技胶 酒捞叼甫 僵阑 烹秦 角青(见败辑)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId)

'Do

Call GetExitCodeProcess(hProcess, exitCode)
'DoEvents

'Loop While exitCode = STATUS_PENDING
If exitCode = STATUS_PENDING Then
   Call CloseHandle(hProcess)
End If
'MsgBox "[USB System Locker] 橇肺弊伐捞 备悼登瘤 臼疽嚼聪促." & vbCrLf & _
'       "" & vbCrLf & _
'       "溜矫, 橇肺弊伐阑 磊悼 备悼矫诺聪促.", vbInformation, frmmain.Caption
End Sub