Newsgroup: it.comp.lang.visual-basic
Titolo: [HELP] verificare se programma in esecuzione, quindi...

...se nomefile.exe è presente in task manager, allora lancio nomefile2.exe
altrimenti se nomefile.exe non è presente in task manager,
lancio nomefile.exe
attendo 6 secondi
lancio nomefile2.exe
il problema è che non sono uno sviluppatore VB6 ... potete aiutarmi per
favore?
Grazie anticipatamente  a tutti.
--
T.R.

questo è quanto ho scritto per ora:
Private Sub Form_Load()
Dim obj As Object
Dim LancioBat
On Error Resume Next
If obj("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE Name =
'file1.exe'") Then
Set obj = Nothing
    'codice per seguire un EXE
    Dim oWshShell
    Set oWshShell = CreateObject("WScript.Shell")
    oExec = oWshShell.Run("c:\directory\file2.exe") 'Esegue solo il file2 in
modalita standard
Set oWshShell = Nothing
Else
Dim RetVal
RetVal = Shell("c:\dir2\filebat.bat", vbHide) 'Esegue file1.exe, poi dipo 6
secondi esegue file2.exe
End If
Unload Me
End Sub
Praticamente la parte ELSE non viene considerata, parte sempre solo
file2.exe ... dove ho sbagliato?
--
T.R.

 favore?
La risposta e' sempre la stessa: google!!!
http://groups-beta.google.com/group/it.comp.lang.visual-basic/search?group=it.comp.lang.visual-basic&q=processo+in+esecuzione&qt_g=1&searchnow=Search+this+group
Non mi rivolgo in particolare a te, ma quel che non capisco e':
1. possibile non immaginare che una domanda come "programma in 
esecuzione?" e' gia' stata sicuramente fatta?
2. se uno riesce ad arrivare qui, cioe' conosce i newsgroups, conosce 
questo newsgroup, sa postare su un newsgroup, possibile che non sappia 
arrangiarsi e trovare la risposta?
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 Cut hyphens from my username!
hai perfettamente ragione, ma non essendo pratico di vb, ho gia verificato e
se sono a postare qui č perchč non sono
in grado di continuare da solo, volevo solo ricevere un help da qualcuno piů
preparato di me.
--
T-R

 Cut hyphens from my username!
hai perfettamente ragione, ma non essendo pratico di vb, ho gia verificato e


 preparato di me.
Prova a vedere qui:
http://vbnet.mvps.org/index.html?code/system/index.html
ciao


[cut]
ti ringrazio, ma da niubb all'ennesima potenza sono proprio arenato su
questo codice:
questo è quanto ho scritto per ora:
Private Sub Form_Load()
Dim obj As Object
Dim LancioBat
On Error Resume Next
If obj("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE Name
='file1.exe'") Then
Set obj = Nothing
    'codice per seguire un EXE
    Dim oWshShell
    Set oWshShell = CreateObject("WScript.Shell")
    oExec = oWshShell.Run("c:\directory\file2.exe") 'Esegue solo il file2 in
modalita standard
Set oWshShell = Nothing
Else
Dim RetVal
RetVal = Shell("c:\dir2\filebat.bat", vbHide) 'Esegue file1.exe, poi dipo 6
secondi esegue file2.exe
End If
Unload Me
End Sub
Questo è quanto ho scritto per dire che se il processo è attivo in task
allora lanci file2.exe altrimenti se non è attivo lanci filebat.bat ma porca
miseria non capisco cosa\dove ho sbagliato.
Grazie per eventuali aiuti,
T.R.

"strano...mavero"
Stai facendo un bel mischiotto di VB / VBS / WMI / BAT ...  vai
direttamente ad un "coso" che fa' tutto da solo in 7 righe  :
http://www.hiddensoft.com/autoit3/
scarica metti l'AutoIt3.exe in c:\programmi e fagli
aprire i file *.au3
Parameters
process The name of the process to check.
Success: Returns 1.
Failure: Returns 0 if process does not exist.
Checks to see if a specified process exists.
;codice che nel tuo esempio potrebbe essere :
;copia incolla su notepad e salva come process.au3
If ProcessExists("file1.exe") Then
 Run("c:\directory\file2.exe")
Else
Run("c:\directory\file1.exe")
Sleep("6000")
Run("c:\directory\file2.exe")
EndIf
;fine
Remarks
Process names are executables without the full path, e.g., "notepad.exe" or "calc.exe"
In order to work under Windows NT 4.0, ProcessWaitClose requires the file PSAIP.DLL which is freely available and redistributable
from Microsoft.
The process is polled approximately every 250 milliseconds.
--
Fosco