Prikazi cijelu temu 13.02.2014 15:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Ili možda isto sa VBA
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ZatvoriProgram(Imeprograma)
  2. Dim WO As Object
  3. Dim ProcesO
  4. Set WO = GetObject("winmgmts:")
  5.     Set ProcesO = WO.execquery("SELECT * FROM win32_process WHERE Name = '" & Imeprograma & "'")
  6.     For Each ProcesO In ProcesO
  7.         ProcesO.Terminate
  8.     Next
  9. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.