iCentar

13.02.2014 15:17

zxz

Administrator

Registrovan od:03.02.2009
Lokacija:Tuzla

Predmet:Re: Ili moÅ¾da isto sa VBA

PreuzmiIzvorni kôd (Visual Basic):

Function ZatvoriProgram(Imeprograma)
Dim WO As Object
Dim ProcesO
Set WO = GetObject("winmgmts:")
Set ProcesO = WO.execquery("SELECT * FROM win32_process WHERE Name = '" & Imeprograma & "'")
For Each ProcesO In ProcesO
ProcesO.Terminate
Next
End Function

PodrÅ¡ka samo putem foruma, jer samo tako i ostali imaju koristi od toga.