Changer priorite processus

Télécharger le projet
Commenter

Description

CHANGE LA PRIORITE D'UN PROCESSUS ACTIF
ici, le programme change la priorite du processus 'explorer.exe'

Source / Exemple : 


Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Sub Main()
Dim hProcess As Long
    Dim svc As Object
    Dim sQuery As String
    Dim oproc
    Dim valeur_priorite As Long
    
    Set svc = GetObject("winmgmts:root\cimv2")
    'le nom du processus dont il faut changer la priorite:
    sQuery = "select * from win32_process where name= 'explorer.exe'"
    For Each oproc In svc.execquery(sQuery)
    hProcess = OpenProcess(&H200, 0, oproc.ProcessId)
    'valeurs PRIORITES:
    ' &h4000=normale
    ' &h8000=normale+
    ' &h20=normale-
    ' &h80=haute
    valeur_priorite = &H8000
    SetPriorityClass hProcess, valeur_priorite
    Next
    
End Sub

Conclusion :


Le programme utilise un script WMI en utilisant la classe Win32_process
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.