lancer arreter des programmes du gestionnaire

Version imprimable

18/09/2009, 23h30
kurtaliasdiablo

lancer arreter des programmes du gestionnaire

Bonjour à tous,

j'aimerais créer un petit programme qui permet de supprimer un programme du gestionnaire des tâches en utilisant une minuterie.

En fait c'est pour que Realplayer s'arrête à une certaine heure.

l'histoire de la minuterie je sais me débrouiller mais ce que je n'ai jamais utilisé, ce sont des instructions systèmes permettant de bidouiller les programmes :P

Est-ce que vous avez des conseils pour moi ?

merci
21/09/2009, 12h39
pitchalov

Salut.

Penche-toi vers la méthode Terminate de l'objet WMI Win32_Process, ça pourrait être ce que tu recherche.
23/09/2009, 20h09
kurtaliasdiablo

merci,

j'ai pu retrouver un bout de code fait sur un site en sachant quelle méthode rechercher et je suis en train de faire les modifications à ce que j'ai copié.

Cependant, je suis entrain de faire des comparaisons de valeurs de minutes et d'heure pour ma minuterie et je remarque que, par exemple si je fais 58=58, il me renvoie faux (j'utilise les MsgBox pour mes tests). Je ne sais pas qui est fou mais c'est bien la première fois que je vois ça.

Je travaille avec VBS Factory pour info.

Je sais d'avance qu'on peut faire plus simple comme code car j'ai commencé au plus simple. Mais avec les trucs bizarre que j'ai rencontré, j'ai utilisé différente façon pour faire les tests (j'ai bidouillé quoi...:P).

et voici la phase de code pour les tests:

Do

MsgBox("1")

TempHourNow = Hour(Now())
TempMinNow = Minute(Now())

MsgBox(min)

If min=TempMinNow Then condition=true End If

MsgBox(condition)
MsgBox(TempMinNow)

WScript.sleep 2000

MsgBox("2")

Loop Until condition

Le seul truc que cette portion devra faire c'est comparer les valeur d'heure et minute choisie avec InputBox et ne pas surchargé le CPU avec le WScript.sleep

je crois que j'ai tout dit

des conseils ?
24/09/2009, 09h29
pitchalov
Ouais, un ptit conseil.

Ton InputBox te renvoie une String, et tu la compares avec un nombre, donc effectivement les deux ne sont pas égaux, et ta condition te renverra toujours False.

Essaie comme ça :
Code:

1 2 3 4 ... min = CInt(min) If min=TempMinNow Then condition=true End If ...
Les fonctions VarType et TypeName peuvent t'aider dans ces cas là.

c'était bien ça merci.

pour ceux qui veulent, je vous le laisse (copier dans bloc-note, enregistrer sous *.vbs).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill, heure, min, TempHourNow, TempMinNow
strComputer = "."
strProcessKill = InputBox("Entrer le nom de l'exécutable à killer:", "Saisie programme")
 
strProcessKill = "'" & strProcessKill & "'"
 
heure = InputBox("Entrer l'heure de fermeture(H):", "saisie heure")
min = InputBox("Entrer l'heure de fermeture(min):", "saisie minutes")
MsgBox("la minuterie est lancée. thx to you")
 
Do
 
TempHourNow = Hour(Now())
TempMinNow = Minute(Now())
 
heure=CInt(heure)
min=CInt(min)
 
WScript.sleep 1000
 
Loop Until min=TempMinNow
 
 
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
 
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
 
WScript.Quit

merci à tous:ccool:

24/09/2009, 12h34
ProgElecT

Citation:

Envoyé par kurtaliasdiablo

c'était bien ça merci
............
merci à tous:ccool:

Si resolu, bouton :resolu: