TaskMan

[MrCreatoR]

magician13134

About some part in your script - it's the part with animation of memory optimization ... you can do it using For...Next loop (it's shorter), here it is:

#region optimize fx
    $OptimizeMsg = "     Optimize Memory     "
    For $i = 1 To 16
        $OptimizeMsg = StringTrimRight(StringTrimLeft($OptimizeMsg, 1), 1)
        If $i = 5 Then $OptimizeMsg = "    >Optimize Memory<    "
        If $i = 10 Then $OptimizeMsg = "   >>Optimize Memory<<   "
        If $i = 13 Then $OptimizeMsg = "  >>>Optimize Memory<<<  "
        If $i = 15 Then $OptimizeMsg = " >>>Optimize Memory<<< "
        If $i = 16 Then $OptimizeMsg = ">>>>Optimize Memory<<<<"
        ControlSetText("Total Task Manager by Ben Perkins", "", $optimize, ">" & $OptimizeMsg & "<")
        Sleep(150)
    Next
    #endregion optimize fx

Edited March 13, 2007 by MsCreatoR

[magician13134]

Yeah, TTM was my first program I ever wrote so it's pretty bad compared to some of the things I do now. Plus that's an older version, I keep forgetting to bring the new one down, I removed that animation entirely, as it was pointless and only slowed it down...

Oh and for the loops, you could shorten it even more by nesting two loops, then multiply one by '>' and '<' and multiplying 5 minus the other for the amount of spaces... we had to do something like that in Programming I last year to make shapes.

Edited March 13, 2007 by magician13134

[freeman7]

@ TaskMan

  Quote

@freeman - Yoy?

(Line of a MsBox)

What did you ment by that yoy?

Case $Button_2
     $selected = GUICtrlRead($list)
     If $Selected = "" Then
           MsgBox(0, "Processes", "Pick a process to kill.")
     Else
           $processkill = MsgBox(4, "Processes", "Do yoy really want to kill process " & $selected & "?")
               if $processkill = 6 Then ; If killing accepted ProcessClose kills process you selected from process list
                       ProcessClose($selected)
                       GUICtrlSetData($List, "")
                       GUICtrlSetData($List, _FormatProcessList())
               EndIf
     EndIf

Edited March 30, 2007 by freeman7

[magician13134]

Oh, it was just a typo... I should've been clearer...

$processkill = MsgBox(4, "Processes", "Do yoy really want to kill process " & $selected & "?")