cs_Tioneb
Messages postés193Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention29 juillet 2015
-
17 mars 2007 à 13:42
cs_Tioneb
Messages postés193Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention29 juillet 2015
-
17 mars 2007 à 16:03
Salut,
Je suis en train de faire un programme qui se chargera (entr'autre) de bloquer l'accès à certains programmes (pour éviter que les enfants jouent de trop!). Donc j'ai mis un timer à 10ms et à chaque cycle il regarde si un programme non autorisé est lancé et si c'est le cas, il fait un killprocess dessus. Mon problème est le suivant: Dans taskmgr je vois que lorsque le timer est en route l'occupation du fichier d'échange (dans l'onglet performance) augmente à vue d'oeil et au bout d'un certains temps windows est obligé d'en augmenter sa taille. Et c'est un sérieux problème puisque le programme doit tourner en tache de fond!
Voici le code du timer:
Dim TabBloque() As String, iTAB As Long
Private Sub TempoABloquer_Timer()
TabBloque() = Split(ProgABloquer, "|")
For iTAB = 1 To UBound(TabBloque())
If IsApplicationRunning(TabBloque(iTAB)) = True Then
KillProcessus TabBloque(iTAB)
End If
DoEvents
Next iTAB
End Sub
Dans la variable ProgABloquer il y a les paramètres pour savoir s'il faut être actif ou pas et les programmes à bloquer (ex: 1|calc.exe|notepad.exe|trucmuche.exe ). Ensuite pour chaque prog je regarde s'il est démarré et si oui, je le kill.
Si quelqu'un sait pourquoi ça me fait ça, qu'il n'hésite pas.
Merci d'avance
--------------------------------------------------------------------------
Visitez mon site sur http://bp-software.ifrance.com/
cs_Tioneb
Messages postés193Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention29 juillet 2015 17 mars 2007 à 14:55
je ne connais pas la fonction erase; comment tu l'écris?
et pour les 10ms c'est pour que ça fasse plus joli => je voulais pas que le prog se lance, on le voit et il disparait. Mais bon, s'il faut ça pour que ça marche normalement je suis d'accord.
--------------------------------------------------------------------------
Visitez mon site sur http://bp-software.ifrance.com/
cs_Tioneb
Messages postés193Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention29 juillet 2015 17 mars 2007 à 16:03
Merci beaucoup; je viens de faire des tests et ta solution fonctionne, mais j'ai dû augmenter aussi l'interval du timer. Mais bon, comme je l'ai dis si ça ne peut marcher que comme ça, ça me va. Encore merci
PS: pour infos j'ai mis le timer à 300ms
--------------------------------------------------------------------------
Visitez mon site sur http://bp-software.ifrance.com/