Visual Basic 6 - Ripetere un'azione più volte

28/08/07 8:57

Postato originariamente da GrG:
Function TerminaProcesso(NomeProcesso As String)
On error resume next
For Each Processo In GetObject("winmgmts:"

.InstancesOf("win32_process"

If Processo.Name = NomeProcesso Then Processo.Terminate
Next
End Function

For x = 1 To 5
TerminaProcesso "nome processo"
Next x

aaa

28/08/07 9:09

GrG

si, è vero così si evita l'errore, però termina il processo solo la prima volta, cioè apro un'altro programma, apro il mio programma che lo fa chiudere se però poi lo rivado ad aprire nn me lo chiude.
Un'idea l'ho di come posso fare però dimmi come devo scrivere in codice questa frase:

se msnmsgr.exe è attivo...

cioè io so che per dire questo devo mettere:
if msnmsgr.exe = .... than...
però non sò come dire se è attivo.

aaa

28/08/07 9:13

c.ronaldo

No con error resume next dovrebbe funzionare ho provato col notepad e funzia...vedi bene

aaa

28/08/07 9:27

GrG

ma ogni volta che apri il notepad te lo chiude terminando il suo processo o te lo chiude solo la prima volta?

aaa

28/08/07 9:31

c.ronaldo

Ogni vollta...
In pratica lo chiude sempre,ma nel caso è gia chiuso non da errore

aaa

28/08/07 9:37

GrG

io ho messo
For x = 1 To 5
TerminaProcesso "notepad.exe"
Next x

dentro la sub form_load()
però quando avvio il programma me lo chiude solo la prima volta.
Mi puoi postare tutte le operazioni che hai fatto.
(es.) Ho aperto una nuova form poi...

aaa

28/08/07 9:41