[R] Process list

[Utilisateur 1746 supprimé]

Bonsoir je ne sais pas comment faire pour éditer mon $Edit1 et y mettre une processlist

► Afficher le texte

J'ai essayé sa : #include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Processus actifs", 490, 490, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 489, 489, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN), 0)
GUICtrlSetData(-1, "Liste de Processus Actif :")
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
while 1
Guictrlsetdata($Edit1, ProcessList())
WEnd

Mais sans succés.

Et j'avais vu sa

► Afficher le texte

$list = ProcessList()
for $i = 1 to $list[0][0]
msgbox(0, $list[$i][0], $list[$i][1])
next

dans les exemples. Mais je ne vois pas comment l'appliquer a mon $Edit1

Pouvez vous m'aider ?

[networe]

Je suis pas un pro mais ca affiche les Process. Reste a réglé l'affichage ^^

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Processus actifs", 490, 490, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 489, 489)
GUICtrlSetData(-1, "Liste de Processus Actif :")
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
while 1
$list = ProcessList()
for $i = 3 to $list[0][0]
Guictrlsetdata($Edit1, $list[$i][0])
Next
WEnd

[Utilisateur 1746 supprimé]

Le code est bon mais j'aimerais que sa aille à la ligne que sa fasse une liste .
Merci de ta réponse quand même

[ayuckers]

et voici pour vous, bonne continuation

► Afficher le texte

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

; declaration des variables
Global $list = ProcessList()

; creation et affichage de la GUI
#Region ### START Koda GUI section ### Form=
    $GuiAppli = GUICreate("Process List", 405, 307)
    $EditProcesslist = GUICtrlCreateEdit("", 0, 0, 401, 265)
    GUICtrlSetColor($EditProcesslist, 0x00FF00)
    GUICtrlSetBkColor($EditProcesslist, 0x000000)
    GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; pour le retour a la ligne utiliser @CRLF
for $i = 2 to $list[0][0]
    ; il faut metre 1 comme dernier parametre a GUICtrlSetData... sinon pas de retour a la ligne
    GUICtrlSetData($EditProcesslist, $list[$i][0] & " : " & $list[$i][1] & @CRLF,1)
next

; Boucle sans fin
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

[Utilisateur 1746 supprimé]

Merci
Maintenant j'ai un autre problème :
Quand je supprime un processus et que j'actualise, l'actualisation ne marche pas. Le processus éteint est encore dans la liste, alors qu'il ne fonctionne plus.

Voici mon code :

► Afficher le texte

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>


Global $list = ProcessList()

#Region ### START Koda GUI section ### Form=
$GuiAppli = GUICreate("Process Editor By Maxime161", 445, 545, 192, 125)
GUISetBkColor(0x000000)
$EditProcesslist = GUICtrlCreateEdit("", 0, 0, 441, 501, BitOR($ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetData(-1, "Pour afficher les processus et actualiser la liste, taper : Alt+r"& @CRLF)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1,0x000000)
$MyButton1 = GUICtrlCreateButton("Supprimer un processus", 32, 504, 148, 30, $BS_FLAT, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetBkColor(-1, 0x00FF00)
$MyButton2 = GUICtrlCreateButton("Ajouter un processus", 236, 504, 156, 30, $BS_FLAT, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("!r","_Refresh")

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)
EndSwitch
WEnd

Func _Refresh()
Sleep(1000)
GUICtrlSetData($EditProcesslist,"")
for $i = 2 to $list[0][0]
GUICtrlSetData($EditProcesslist, $list[$i][0] & " ( PID : " & $list[$i][1] & " )" & @CRLF,1)
next
EndFunc

[networe]

Tu as éssayer quelques trucs ? Je suis aussi nouveau que toi et j'ai réussi en 3 essais.

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

; declaration des variables
Global $list = ProcessList()

; creation et affichage de la GUI
#Region ### START Koda GUI section ### Form=
    $GuiAppli = GUICreate("Process List", 405, 307)
    $EditProcesslist = GUICtrlCreateEdit("", 0, 0, 401, 265)
    $Actualise = GUICtrlCreateButton("Actualisé",300,200,100,100)
    GUICtrlSetColor($EditProcesslist, 0x00FF00)
    GUICtrlSetBkColor($EditProcesslist, 0x000000)
    GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; pour le retour a la ligne utiliser @CRLF
for $i = 2 to $list[0][0]
    ; il faut metre 1 comme dernier parametre a GUICtrlSetData... sinon pas de retour a la ligne
    GUICtrlSetData($EditProcesslist, $list[$i][0] & " : " & $list[$i][1] & @CRLF,1)
next

; Boucle sans fin
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Actualise
            $list = ProcessList()
            GUICtrlSetData($EditProcesslist, "")
            for $i = 2 to $list[0][0]
            GUICtrlSetData($EditProcesslist, $list[$i][0] & " : " & $list[$i][1] & @CRLF,1)
            next
    EndSwitch
WEnd

[Utilisateur 1746 supprimé]

Merci à toi .

[jamesst20]

Salut, Voila j'ai aranger ton code

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>


Global $list = ProcessList()

#Region ### START Koda GUI section ### Form=
$GuiAppli = GUICreate("Process Editor By Maxime161", 445, 545, 192, 125)
GUISetBkColor(0x000000)
$EditProcesslist = GUICtrlCreateEdit("", 0, 0, 441, 501, BitOR($ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetData(-1, "Pour afficher les processus et actualiser la liste, taper : Alt+r"& @CRLF)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1,0x000000)
$MyButton1 = GUICtrlCreateButton("Supprimer un processus", 32, 504, 148, 30, $BS_FLAT, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetBkColor(-1, 0x00FF00)
$MyButton2 = GUICtrlCreateButton("Ajouter un processus", 236, 504, 156, 30, $BS_FLAT, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("!r","_Refresh")

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)
EndSwitch
WEnd

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

EndFunc

Bonne continuation

A+