PasteBIN
תגיות
התחבר
הרשמה
למה מירק?
עמוד ראשי
5678 הודעות
3399 נושאים
4465 רשומים
270 מחוברים כרגע
יוצר: Ocean
גירסא: V0.1
תיאור: מראה את רשימת ההפעלה שלכם ויכול להפסיקן
הפעלה: לשים את הקוד הבא ברימוט, ולהוריד את הקבצים המצורפים ולשים את התיקייה עצמה אם הקבצים בתיקייה של המירק לא רק את הקבצים! ללחוץ מקש ימיני בערוץ וללחוץ על Task Manager וזה נפתח.
תמונה:
קוד:
קוד: בחר הכל
dialog TM {
title "Task Manager"
size -1 -1 346 154
option dbu
box "Processes", 1, 1 0 345 138
list 2, 2 8 342 128, size
button "Refresh All Processes", 3, 2 140 98 12
button "End Process", 4, 273 140 70 12
}
menu status,channel {
Task Manager: TM
}
alias TM { dialog $iif(!$dialog(TM),-m,-x) TM TM }
on *:dialog:TM:close:*: { uset %exec.TM }
on *:dialog:TM:init:*: {
dll dlls\mdx.dll MarkDialog TM
dll dlls\mdx.dll SetControlMDX 2 listview report grid nosortheader rowselect flatsb > dlls\views.mdx
did -i $dname 2 1 headerdims 150 70 115 70 100
did -i $dname 2 1 headertext Image Name $chr(9) PID $chr(9) Session Name $chr(9) Session# $chr(9) Mem Usage
.timer -m 1 300 exec tasklist
}
on *:dialog:TM:dclick:2: { .run taskkill.exe /IM $gettok($did(TM,2).seltext,6,32) }
on *:dialog:TM:sclick:*: {
if ($did == 3) { did -r TM 2 | uset %exec.TM | exec tasklist }
if ($did == 4) { .run taskkill.exe /IM $gettok($did(TM,2).seltext,6,32) | exec tasklist }
}
alias exec {
; Called as identifier
if ($isid) {
if ($2) {
; Command callback
%__exec.command = $2
dll $exec.dll execA exec.pipe $1
unset %__exec.command
return $null
}
else {
; No callback, return first line
unset %__exec.identifier
dll $exec.dll execA exec.identifier $1
var %ret = %__exec.identifier
unset %__exec.identifier
return %ret
}
}
; Called as command
var %method = exec, %endmethod = noop, %mode = sync
if (-* iswm $1-) {
if (e isin $1) {
; Line separator between results
%endmethod = linesep -a
}
if (a isin $1) {
; Asynchronous mode
%mode = async
}
if (s isin $1) {
; Using a SIGNAL as callback parameter
%method = execS
}
elseif (k isin $1) {
; Using an alias as callback parameter
%method = execA
}
tokenize 32 $2-
}
else if ($show) {
; No switches and output not hidden, use default formatting
%method = execA
%endmethod = linesep -a
tokenize 32 exec.default $1-
}
if (%mode == async) {
if (linesep* iswm %endmethod) linesep -a
noop $dllcall($exec.dll, %endmethod, %method, $1-)
}
elseif (%mode == sync) {
if (linesep* iswm %endmethod) linesep -a
dll $exec.dll %method $1-
if (linesep* iswm %endmethod) linesep -a
}
}
; Helper methods
alias -l exec.dll { return dlls\exec.dll }
alias exec.default {
if ($1 == stdout && $2- != $null) {
if (%exec.TM == 1) { did -a TM 2 $2 $chr(9) $3 $chr(9) $4 $chr(9) $5 $chr(9) $6 $+ $7 }
if ($2 == System) { set -u3 %exec.TM 1 }
}
elseif ($1 == stderr && $2- != $null) echo $color(info) -a * $2-
}
alias exec.identifier {
if ($1 == stdout && $2 != $null && !%__exec.identifier) {
%__exec.identifier = $2-
}
}
alias exec.pipe { if ($1 == stdout) %__exec.command $2- }
קבצים מצורפים:
