Aprire Microsoft Visual Basic da il pulsante di Windows "Start" .
2
Seleziona " Standard.EXE " nella scheda "Nuovo" e fare clic sul pulsante "Apri" .
3
Trascinare un pulsante dalla casella degli strumenti nel form. Fare doppio clic sul pulsante sul form per aprire la finestra del codice
4
Inserisci il seguente codice sotto la riga " Private Sub Command1_Click ( ) " : .
Dim objWMIService , Processo colProcessesDim come StringProcess = Set " VB6.exe " objWMIService = GetObject ( " winmgmts : " ) Set colProcesses = objWMIService.ExecQuery ( " Select * from Win32_Process dove nome = ' " & Process & "' ") Se colProcesses.Count ThenMsgBox ( " processo è in esecuzione " ) ElseMsgBox ( " processo non è in esecuzione " ) End If
5
Premere il tasto" F5 " per eseguire il codice in modalità di debug .
6
Click sul pulsante " Command1 " per eseguire il codice per determinare se un processo è in esecuzione. Una finestra di messaggio verrà visualizzato con il testo " processo è in esecuzione " se il processo di " VB6.exe " è in esecuzione.
Programmazione © www.354353.com