flex版類win任務管理器

2021-09-01 21:36:22 字數 2083 閱讀 8936

最近幹某活時，突然發現幾年前做的乙個監控模組，裡頭的乙個小canvas：類win任務管理器，效果圖：

下面是原始碼：

<?xml version="1.0" encoding="utf-8"?>


.common


this.maxiosent)


if(log.ioreceive>this.maxiosent)


iosentarr.push(log.iosent);


ioreceivearr.push(log.ioreceive);


}if(i==len-1)


}drawcpu(cpu1,cpuv+" %",tmp1,cpu1l);


drawcpu1(cpu2,0x00ff00,cpuarr);


drawcpu(pen1,mem.tofixed(2)+" %",tmp2,pen1l);


drawcpu1(pen2,0x00ffff,memarr);


if(true)


if(log.ioreceive>this.maxiosent)


iosentarr.push(log.iosent);


ioreceivearr.push(log.ioreceive);


if(true)


}private function drawdisk(disk1:canvas,d:number,total:number):void


private function resizecanvas():void


cpu2.height=(this.height-45-4*8)/3-4*8;


pen1g.y=(this.height-45-4*8)/3+8;


pen1.height=(this.height-45-4*8)/3-4*8;


pen2g.y=(this.height-45-4*8)/3+8;


pen2.width=this.width-(60+8*4)-8*3;


if(pen2.width<120)


pen2.height=(this.height-45-4*8)/3-4*8;


io1g.y=(this.height-45-4*8)/3*2+8;


io1.width=this.width-8*4;


if(io1.width<120+60+16+8)


io1.height=(this.height-45-4*8)/3-4*8;


disk1g.y=(this.height-45-4*8)+8;


disk1.width=this.width-8*4;


if(disk1.width<120+60+16+8)


initg(cpu1g,cpu1,35);


initg(pen1g,pen1,30);


initg(cpu2g,cpu2,90);


initg(pen2g,pen2,105);


initg(io1g,io1,75);


initg(disk1g,disk1,60);


//馬上重新畫圖，獲取最近的資料


var tmp1:number=0;


var cpuv:int=0;


if(cpuarr.length>0)


drawcpu(cpu1,cpuv+" %",tmp1,cpu1l);


drawcpu1(cpu2,0x00ff00,cpuarr);


tmp1=0;


var mem:number=0;


if(memarr.length>0)


drawcpu(pen1,mem.tofixed(2)+" %",tmp1,pen1l); 


drawcpu1(pen2,0x00ffff,memarr);


//iosent


if(true){


var tmpiosent:number=this.maxiosent+10;


var tmpioarr:array=new array();


var tmprearr:array=new array();


for(var i:int=0;i

任務管理器

dim url systemutil.run e 20111108 20111108 chinese hedexlite.exe process name inputbox 請輸入程序名 程序 hedexlite process list dialog windows 任務管理器 winlistvi...

linux任務管理器

在redhat2.4.20 8下編譯通過 由於本程式視窗部分由glad工具編制，源 不易貼出，現只給出部分 函式的 1，退出 按鈕 函式 void on button9 clicked gtkbutton button,gpointer user data 2，關機 按鈕 函式 void on bu...

遮蔽「任務管理器」

適用於win nt 2k xp,引數key為true,遮蔽 任務管理器 為false,任務管理器 可用 使用方法 disabletaskmgr true procedure disabletaskmgr key boolean var reg tregistry begin reg tregistr...