Discussion :

[kurtaliasdiablo]

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


Est-ce que vous avez des conseils pour moi ?

merci

[pitchalov]

Salut.

Penche-toi vers la méthode Terminate de l'objet WMI Win32_Process, ça pourrait être ce que tu recherche.

[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...).

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 ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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à.

[kurtaliasdiablo]

c'était bien ça merci.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

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

Si resolu, bouton