1.
If Ubound (Diagnostics. Process. GetProcessesByName (Diagnostics. Process. GetCurrentProcess. ProsseName)) & gt; 0 then
Messagebox. Show (" the program is running!" )
End the if
2.
Dim ps As new Process
For Each ps In Diagnostics. Process. GetProcesses
If pro. ProcessName="process name" Then
Messagebox. Show (" the program is running!" )
End the If
Next
3.
'write a function,
As a Boolean Function FindProcess (ProcessName)
Dim ps
'the enumeration process
For Each ps In GetObject (" winmgmts: \ \. \ root \ cimv2: win32_process "). The instances_ 'circulation process
If UCase (ps. Name)=UCase (ProcessName) Then
FindProcess=True
The Exit Function
End the If
Next
End the Function
,
=the following call processIf FindProcess (" XXXX. Exe ") Then 'in this modification for the program you are looking for
MsgBox. Show (" the program is running!" )
The Else
MsgBox. Show (" this program is not running!" )
End If
CodePudding user response:
Sending the wrong version of the.net has its own zone,CodePudding user response:
Where is it? Ha ha, I casually