[Ex] Process Editor ( By Moi =) )

[Utilisateur 1746 supprimé]

Voici un éditeur de processus. Pour éviter de faire des va et viens avec ctrl +alt+suppr vous avez ce beau logiciel . Soyez indulgent c'est mon premier logiciel. Merci ceux qui m'ont aidé.
Le code :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#Region 
#AutoIt3Wrapper_icon=1263742449_kcmprocessor.ico
#AutoIt3Wrapper_outfile=Process Editor.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_Language=1036
#EndRegion 

Global $list = ProcessList()

#Region ### START Koda GUI section ### Form=
$GuiAppli = GUICreate("Process Editor By Xavierdu07 / Maxime161", 630, 545, 192, 125)
GUISetBkColor(0x000000)
$EditProcesslist = GUICtrlCreateEdit("", 0, 4, 625, 501, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetData(-1, "                                                                        Voici votre liste de processus actifs :"& @CRLF)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor($EditProcesslist,0x000000)
$MyButton1 = GUICtrlCreateButton("Supprimer un processus", 32, 512, 148, 30, $BS_FLAT, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor($MyButton1,0x000000)
$MyButton2 = GUICtrlCreateButton("Ajouter un processus", 236, 512, 156, 30, $BS_FLAT, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor($MyButton2,0x000000)
$Actualise = GUICtrlCreateButton("Actualiser", 436, 512, 156, 30, $BS_FLAT, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor($Actualise,0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


for $i = 2 to $list[0][0]
    
    GUICtrlSetData($EditProcesslist, $list[$i][0] & " : " & $list[$i][1] & @CRLF,1)
next


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $MyButton1
            $Data = InputBox("ProcessEditor","Quel processus souhaitez-vous supprimer ?")
            $PID = ProcessExists($Data)
            ProcessClose($Data)
        Case $MyButton2
            $Data = InputBox("ProcessEditor","Quel processus souhaitez-vous ajouter ?")
            ShellExecute($Data)
        Case $Actualise
            $list = ProcessList()
            GUICtrlSetData($EditProcesslist, "")
            for $i = 2 to $list[0][0]
            GUICtrlSetData($EditProcesslist, $list[$i][0] & " ( PID : " & $list[$i][1] & " )" & @CRLF,1)
            next
    EndSwitch
WEnd

Lien de téléchargement :Process Editor

[networe]

Tu as ajouter deux boutons oui
Voici justement 'ta' version 2 avec les 2 boutons améliorés

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#Region 
#AutoIt3Wrapper_icon=1263742449_kcmprocessor.ico
#AutoIt3Wrapper_outfile=Process Editor.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_Language=1036
#EndRegion 

Global $list = ProcessList()

#Region ### START Koda GUI section ### Form=
$GuiAppli = GUICreate("Process Editor By Xavierdu07 / Maxime161", 630, 545, 192, 125)
GUISetBkColor(0x000000)
$EditProcesslist = GUICtrlCreateEdit("", 0, 4, 625, 501, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetData(-1, "                                                                        Voici votre liste de processus actifs :"& @CRLF)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor($EditProcesslist,0x000000)
$MyButton1 = GUICtrlCreateButton("Supprimer un processus", 32, 512, 148, 30, $BS_FLAT, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor($MyButton1,0x000000)
$MyButton2 = GUICtrlCreateButton("Ajouter un processus", 236, 512, 156, 30, $BS_FLAT, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor($MyButton2,0x000000)
$Actualise = GUICtrlCreateButton("Actualiser", 436, 512, 156, 30, $BS_FLAT, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor($Actualise,0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


for $i = 2 to $list[0][0]
    
    GUICtrlSetData($EditProcesslist, $list[$i][0] & " : " & $list[$i][1] & @CRLF,1)
next


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $MyButton1
            $Data = InputBox("ProcessEditor","Quel processus souhaitez-vous supprimer ?")
            $PID = ProcessExists($Data)
            ProcessClose($Data)
            Actualisa()
        Case $MyButton2
            $Data = InputBox("ProcessEditor","Quel processus souhaitez-vous ajouter ?")
            ShellExecute($Data)
            Actualisa()
        Case $Actualise
            Actualisa()
    EndSwitch
WEnd

Func Actualisa()
                $list = ProcessList()
            GUICtrlSetData($EditProcesslist, "")
            for $i = 2 to $list[0][0]
            GUICtrlSetData($EditProcesslist, $list[$i][0] & " ( PID : " & $list[$i][1] & " )" & @CRLF,1)
            Next
EndFunc

[sscssc]

est- il possible de crée un serveur qui afficherais les processus et le client qui scannerais sur un autre pc en local?

pas pour de mauvaise intention >< mon pc est pas super puissant et vu que j'ai 2 pc, je joue avec mon pc et avec mon autre pc je kill les processus qui plombe ma ram sans switch de fenêtre avec alt+tab qui est tres long sur mon pc quand je joue a wow par exemple =)

possible?
merci