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