Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Microsoft Visual Basic pomocou tlačidla Windows " Štart " .
2
zvoľte " Standard.exe " pod záložkou " Nový " a kliknite na tlačidlo " Otvoriť " .
3
Presuňte tlačidlo z krabice nástrojov do formulára . . Dvakrát kliknite na tlačidlo na formulári otvorte okno kód
4
Vložte nasledujúci kód pod riadok " Private Sub Command1_Click ( ) " :
Dim objWMIService , colProcessesDim Process ako StringProcess = " VB6.exe " Set objWMIService = GetObject ( " winmgmts : " ) Set colProcesses = objWMIService.ExecQuery ( " SELECT * FROM Win32_Process kde name = ' " & Process & " ' " ) Ak colProcesses.Count ThenMsgBox ( " Process je Running " ) ElseMsgBox ( " Process nie je spustená " ) End If
5
Stlačte tlačidlo " F5 " spustiť kód v režime ladenia .
6
Click na tlačidlo označené " Command1 " spustiť kód pre určenie , či je spustený proces . Okno s hlásením sa zobrazí text " proces beží " v prípade , že proces " VB6.exe " beží .