How to toggle this var ? Logic help.

[caramen 71]

Hello guys,

Seem simple but i dont get it work.

I whant to list process only if process list is changing.

I canot toggle even playing with some process.

#include <Array.au3>


Global $aProcessListPrev1 , $aProcessListPrev2

While 1
    $aProcessListPrev1 = _ArrayToString(ProcessList (), " :: ", 4, 7, @CRLF, 2, 5)
    ;_ArrayDisplay($aProcessListPrev1)
    If $aProcessListPrev1 = $aProcessListPrev2 Then
       Msgbox(0,"","Scan proc KO")
       $ToggleProcessList = 1
       ;$aProcessListPrev1 = _ArrayToString(ProcessList (), " :: ", 4, 7, @CRLF, 2, 5)
       $aProcessListPrev2 = _ArrayToString(ProcessList (), " :: ", 4, 7, @CRLF, 2, 5)
    Else
       Msgbox(0,"","Scan proc OK")
       $ToggleProcessList = 0
       ;$aProcessListPrev1 = _ArrayToString(ProcessList (), " :: ", 4, 7, @CRLF, 2, 5)
       $aProcessListPrev2 = _ArrayToString(ProcessList (), " :: ", 4, 7, @CRLF, 2, 5)
    EndIf
    If $ToggleProcessList = 1 Then
       Msgbox(0,"","Toggle 1")
    Else
       Msgbox(0,"","Toggle 0")
    EndIf
WEnd

#include <Array.au3>


Global $aProcessListPrev1 , $aProcessListPrev2

While 1
    $aProcessListPrev1 = ProcessList ()
    ;_ArrayDisplay($aProcessListPrev1)
    If $aProcessListPrev1 = $aProcessListPrev2 Then
       Msgbox(0,"","Scan proc KO")
       $ToggleProcessList = 1
       ;$aProcessListPrev1 = ProcessList ()
       $aProcessListPrev2 = ProcessList ()
    Else
       Msgbox(0,"","Scan proc OK")
       $ToggleProcessList = 0
       ;$aProcessListPrev1 = ProcessList ()
       $aProcessListPrev2 = ProcessList ()
    EndIf
    If $ToggleProcessList = 1 Then
       Msgbox(0,"","Toggle 1")
    Else
       Msgbox(0,"","Toggle 0")
    EndIf
WEnd

I dont want to use _ArrayMaxIndex becose i am closing an application to open an other it will not toggle.

To say more:

I want to get $ToggleProcessList = 0 If Process list does not change

and $ToggleProcessList = 1 If process list change

I will do same with WinList

Edited February 3, 2019 by caramen

[Subz 826]

The first function _ArrayToString is incorrect, what are the last two delimiters "2, 5" when you only have 2 columns?  And why only the rows between 4 and 7?  Can't you use the processname to get the list down?

[caramen 71]

I just copy pasted it from help file. To point to an other logic.

 

I need to fix this to use in a function without processname.

[Subz 826]

Fix the _ArrayToString and you should be fine.

[caramen 71]

Thanks.

Not sure i think i got it :

#include <Array.au3>


Global $aProcessListPrev1 , $aProcessListPrev2 , $aProcessListPrev11 = 0 , $aProcessListPrev22 = 0

    $aProcessListPrev1 = ProcessList ()
    $aProcessListPrev11 = _ArrayToString($aProcessListPrev1, "|")
    MsgBox(0,"$aProcessListPrev11",""&$aProcessListPrev11)

While 1

    ;_ArrayDisplay($aProcessListPrev1)
    If $aProcessListPrev11 = $aProcessListPrev22 Then
       Msgbox(0,"","Scan proc IDEM NO NEXT")
       $ToggleProcessList = 1
       ;$aProcessListPrev1 = _ArrayToString(ProcessList (), "|", -1,-1)
       $aProcessListPrev2 = ProcessList ()
       $aProcessListPrev22 = _ArrayToString($aProcessListPrev2, "|" )
       MsgBox(0,"$aProcessListPrev22 NO NEXT",""&$aProcessListPrev22)
    Else
       Msgbox(0,"","Scan proc NO IDEM YES NEXT")
       $ToggleProcessList = 0
       ;$aProcessListPrev1 = _ArrayToString(ProcessList (), "|", -1 , -1 )
         $aProcessListPrev1 = ProcessList ()
         $aProcessListPrev11 = _ArrayToString($aProcessListPrev1, "|")
         $aProcessListPrev2 = ProcessList ()
         $aProcessListPrev22 = _ArrayToString($aProcessListPrev2, "|" )
       MsgBox(0,"$aProcessListPrev11 YES NEXT",""&$aProcessListPrev11)
       MsgBox(0,"$aProcessListPrev22 YES NEXT",""&$aProcessListPrev22)
    EndIf
    If $ToggleProcessList = 0 Then
       Msgbox(0,"","Toggle 0 NO IDEM YES NEXT")
    Else
       Msgbox(0,"","Toggle 1 YES IDEM NO NEXT")
    EndIf
 WEnd

Testing...

[caramen 71]

Yes it's working.

Edited February 3, 2019 by caramen