terminare un processo in vb (mal funzionamenti)

[KillerPenguin]

salve, cercando su google come fare per interrompere dei processi tramite vb ho trovato questo codice:

Codice: Seleziona tutto

Dim oLoc
        Dim oServ
        Dim oObjectSet
        Dim oProc
        Dim sWQL As String

        sWQL = "SELECT * FROM Win32_Process WHERE Name = 'co569k4l.tmp'"
        oLoc = CreateObject("WbemScripting.sWbemLocator")
        oServ = oLoc.ConnectServer(".", "root\cimv2")
        oObjectSet = oServ.ExecQuery(sWQL)
        For Each oProc In oObjectSet
            oProc.Terminate()
        Next

è totalmente funzionante, però io dovrei fare in modo di definire il nome del processo dei caratteri jolly. ho provato in questo modo:

Codice: Seleziona tutto

Dim oLoc
        Dim oServ
        Dim oObjectSet
        Dim oProc
        Dim sWQL As String

        sWQL = "SELECT * FROM Win32_Process WHERE Name = 'co*.tmp'"
        oLoc = CreateObject("WbemScripting.sWbemLocator")
        oServ = oLoc.ConnectServer(".", "root\cimv2")
        oObjectSet = oServ.ExecQuery(sWQL)
        For Each oProc In oObjectSet
            oProc.Terminate()
        Next

ma non va. Credo che il metodo in questione non accetta un percorso con wildcard ( come in questa discussione http://www.MegaLab.it/forum/topic76505.html ) che metodo uso?

[Andy94]

Nessuno, non sempre si può fare.
In questo caso devi conoscere precedentemente il jolly da utilizzare in quel momento, quindi dovrai trovare un modo per ottenerlo e compilare la stringa di conseguenza.

[KillerPenguin]

tempo fa quest'operazione la facevo con uno script cmd

Codice: Seleziona tutto

taskkill /f /im "setup.exe" /t

in questo modo avveniva un interruzione forsata ( /f)
del processo indicato e di tutti i processi "figli" ( /t)

ora siccome ho cominciato a "programmare " in VB vorrei compiere la stessa operazione in questo nuovo linguaggio (so che il dos non è un linguaggio) . Ovviamente non vorrei utilizzare la shell per eseguire il comando dal promtp. qualcuno sa tradurmi la riga nel complesso linguaggio del visual basic?

[M@ttia]

Innanzitutto, sempre basandomi sull'altra discussione, dove ti spiegavo come verificare se un processo esiste o no (avevamo creato l'array ListaProcessi con tutte le istanze di notepad), per killare i processi ti basta semplicemente fare:

Codice: Seleziona tutto

For Each p As Process In ListaProcessi
   p.Kill()
Next

anziché tutto il bloccone scritto sopra da te


Detto questo, non so come (se?) in VB si possano usare le wildcard, ma posso dirti che, se come nel tuo esempio sopra ti basta sapere se il processo inizia con una data sequenza di lettere, allora puoi fare a meno delle wildcard.

Supponiamo che, similmente al notepad sopra, abbiamo creato un array ListaProcessi contenente vari processi, e vogliamo killare tutti quelli che iniziano con mic (microfono.exe, microsoft Word 2010, ...). Allora:

Codice: Seleziona tutto

For Each p As Process In ListaProcessi
   If p.ProcessName.StartsWith("mic"))
      p.Kill()
   End If
Next

Allo stesso modo esistono poi StartsWith(), EndsWith(), Contains(), ... con i quali, combinandoli (AND, OR, NOT, ...) e giochicchiandoci un po', puoi sopperire alla mancanza di wildcard per i casi non troppo complessi... (qui la LISTA completa di tutte le operazioni che esistono per le stringhe di testo)

[KillerPenguin]

perfetto vi ringrazio infinitamente
P.S. la variabile doveva contenere questo vero?

Codice: Seleziona tutto

Dim ListaProcessi() As Process = Process.GetProcesses

[Andy94]

Esattamente.

[M@ttia]

Sì per averli tutti:

Codice: Seleziona tutto

Dim ListaProcessi() As Process = Process.GetProcesses()

(non dimenticare le parentesi aperte-chiuse alla fine come sopra!)

[KillerPenguin]

Sì per averli tutti:

Codice: Seleziona tutto

Dim ListaProcessi() As Process = Process.GetProcesses()

(non dimenticare le parentesi aperte-chiuse alla fine come sopra!)

VB non me le ha messe in automatico comunque le metto lo stesso. come mai si mettono?

[M@ttia]

VB non me le ha messe in automatico comunque le metto lo stesso. come mai si mettono?

Perché è una funzione, chiamata in questo caso senza parametri, ma ogni funzione ha sempre la forma nomefunzione(parametro1, parametro2, ...).

[KillerPenguin]

Ah, ok capito. Grazie :grin:

Inviato dal mio LG Optimous One