6 lines
328 B
Plaintext
6 lines
328 B
Plaintext
|
Public Shared Sub A(ByVal ProcessName As String)
|
||
|
|
Dim proc As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses
|
||
|
|
If System.Diagnostics.Process.GetProcessesByName(ProcessName).Length >= 1 Then
|
||
|
|
System.Threading.Thread.Sleep(10000)
|
||
|
|
End If
|
||
|
|
End Sub
|