Accueil > > > CHANGER PRIORITE PROCESSUS
 CHANGER PRIORITE PROCESSUS
 Information sur la source
 Description
CHANGE LA PRIORITE D'UN PROCESSUS ACTIF ici, le programme change la priorite du processus 'explorer.exe'
 Source
- 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
 Conclusion
Le programme utilise un script WMI en utilisant la classe Win32_process
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Limiter le nombre de processus [ par Adrien ]
à partir d'une liste d'adresses IP, je lance des batchs sur chacune des adresses mais le lancement en shell("batch.bat") m'ouvre les process "cmd" en
Dialogue entre processus [ par Hawk ]
'lut! J'aimerais savoir comment envoyer un message entre deux processus ( j'ai un processus maître qui crée x fils, les fils doivent retourner des inf
Processus : Urgent !! [ par Lead ]
Salut a tous, je recherche le moyen d'obtenir les noms internes des processus en court (La liste du Ctrl Alt Suprr), pas la liste des noms des executa
Les fonctions sur les processus ! [ par seyev ]
Salut à tous !Je crée un nouveau processus avec CreateProcess() et je récupère les différentes info par le dernier paramètre (dont l'id et le handle)M
Processus, c'est possible de les "pauser" ???????????? Aidez moi [ par Cyberdevil ]
Hello,Je fais comment pour faire une pause dans le système,c'est à dire que tout le programme en chargement ou en exécution soit "pauser" donc d'inter
Recherche le nom d'une fonction [ par eltaris ]
Je cherche une fonction (qui existe, je le sais) qui interrompt le processus en cours pendant un court instantpour que puissent s'exécuter d'autres pr
Tjrs, Tjrs Histoire de processus [ par Cyberdevil ]
Hello,J'ai une question a propos de vb, est ce que c'est possible de "pauser" tous les processus en cours puis de les relancer en faite ce que je veu
[?]KILL Processus excel.exe ??? [ par Steph73 ]
Bonjour,mon appli met à jours des tableaux sous excel. Mais si le fichier en question est déjà ouvert, ça plante! Je souhaite donc KILLER tout process
comment tester si word est ouvert ? [ par xavier ]
je voudrais tester si word est ouvertd'autre part est ce que qqun sait comment avoir accès aux processus en cours et si on peut terminer un processus
comment engager plusieurs processus simultanés ? [ par Ouneufe ]
Salut,Suis bien incapable de trouver quelle est la procédure pour exécuter plusieurs tâches en parallèle et échapper à une éxécution linéaire ?Quelqu'
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|