MMBuilder28Tнл@ FiRE Task ManagertaskerY џџџџ—Ї Rectangle1џџџџџџр?ѓџџџМ VerdanaџџџџџџџџџџџџџџџџџџџџџџџџdРРРџџџџ“Listџџџџџџр?ѕџџџВ1 Courier NewџџџџџџџџџџџџџџџџџџџџШp** ЧэфЬЧ нои пЧнэх эх пЯ ШфцэгэЯ ЪЧ уЪф ЧэЪу ЧфЪЮЧШ дЯх Чв сэгЪ ШЧбаЧбэ Шдх ц Яб уЪлээб аЮэбх Шдх ЪЧ Чв Шэф ШбхџџџџЯListItems$,ItemsNum$,#,NumItemsџџџџfi=1NumItemsџџџџc%ArrayItem$ = GetArrayItem(Items$,#,i)џџџџOText ArrayItem$џџџџgiџџџџc#ReturnExt$=StrDel(ArrayItem$,26,70)џџџџc a$ = ' 'џџџџcb$ = ''џџџџc#chng$ = StrChange(ReturnExt$,a$,b$)џџџџOEditBoxchng$џџџџШ***********************џџџџЯListItems$,ItemsNum$,#,NumItemsџџџџfi=1NumItemsџџџџc%ArrayItem$ = GetArrayItem(Items$,#,i)џџџџOText ArrayItem$џџџџgiџџџџџџџџdРРРџџџџ STextBTNРРР€р?џџџRefreshѓџџџМ Arialџџџџc?cmd$ = 'HIDE,WAIT /c del "c:\out.txt" & tasklist >"c:\out.txt"'џџџџcmd.execmd$џџџџOIn$ C:\out.txtџџџџcNa$ = 'Image Name PID Session Name Session# Mem Usage'џџџџcb$ = ''џџџџcchange$ = StrChange(In$,a$,b$)џџџџcNa$ = '========================= ====== ================ ======== ============'џџџџc"change$ = StrChange(change$,a$,b$)џџџџ#Scriptџџџџc&change$ = StrChange(change$,SLine$,b$)џџџџ#Script1џџџџc&change$ = StrChange(change$,SLine$,b$)џџџџc0To_file=StrToFile(c:\out.txt,change$,FALSE,TRUE)џџџџШ!*********************************џџџџЬList-1џџџџЫList C:\out.txtџџџџцListNAMEџџџџџџџџџџџџџџџџџџџџџџџџdРРРџџџџ˜ЅTextџз€Рр?ѕџџџМ TahomaџџџџџџџџџџџџџџџџџџџџџџџџdРРРџџџџV` RectangleРРРџџџр?ѕџџџМ TahomaџџџџџџџџџџџџџџџџџџџџџџџџdРРРEditBox$EditBoxNџџџџY]EditBoxРРРр?ѕџџџМ TahomaџџџџџџџџџџџџџџџџџџџџџџџџdРРРџџџџ fЖTextBTN2РРР€р?џџџKillѕџџџМ Tahomaџџџџc-task$ = 'HIDE,WAIT /F /IM "' + EditBox$ + '"'џџџџc a$ = '.exe 'џџџџc b$ = '.exe'џџџџctask$=StrChange(task$,a$,b$)џџџџc a$ = '.exe 'џџџџctask$=StrChange(task$,a$,b$)џџџџ taskkill.exetask$џџџџdCBK_ReturnVal <> 0џџџџErrorџџџџeџџџџ#TextBTNџџџџШ(****************************************џџџџШ)** task$ = 'HIDE,WAIT /F /IM ' + EditBox$џџџџШ** Run("taskkill.exe","task$")џџџџџџџџџџџџџџџџџџџџџџџџdРРРџџџџzџџџŽŠџџџžScriptџџџџџџр?Any comments here ArialџџџџcPosStr=0џџџџcOpenFile$ = 'C:\out.txt'џџџџcEditBox$ = 'cmd.exe'џџџџd OpenFile$<>''џџџџШ ** get number of lines from fileџџџџcNumOfLines=NOL(OpenFile$)џџџџcSubStr$=EditBox$џџџџШ$** change searched word to lowercaseџџџџcSubStrLow$=LOW(SubStr$)џџџџfi=1 NumOfLinesџџџџШ** get new line from fileџџџџc!SLine$=StrFromFile(OpenFile$,i,1)џџџџШ"** change loaded line to lowercaseџџџџcSLow$=LOW(SLine$)џџџџШ-** Get position of a SubString in loaded lineџџџџcPosStr=POS(SubStrLow$,SLow$)џџџџШ6** if substring is found then load line to text objectџџџџd PosStr<>0џџџџc$SLineRes$=StrFromFile(OpenFile$,i,1)џџџџШ ** exit loopџџџџШ.**********************************************џџџџclen=LEN(SLine$)џџџџШ.**********************************************џџџџџџџџeџџџџgiџџџџeџџџџџџџџџџџџџџџџџџџџџџџџdРРРџџџџzџџџžŠџџџЎScript1џџџџџџр?Any comments here ArialџџџџcPosStr=0џџџџcOpenFile$ = 'C:\out.txt'џџџџcEditBox$ = 'tasklist.exe'џџџџd OpenFile$<>''џџџџШ ** get number of lines from fileџџџџcNumOfLines=NOL(OpenFile$)џџџџcSubStr$=EditBox$џџџџШ$** change searched word to lowercaseџџџџcSubStrLow$=LOW(SubStr$)џџџџfi=1 NumOfLinesџџџџШ** get new line from fileџџџџc!SLine$=StrFromFile(OpenFile$,i,1)џџџџШ"** change loaded line to lowercaseџџџџcSLow$=LOW(SLine$)џџџџШ-** Get position of a SubString in loaded lineџџџџcPosStr=POS(SubStrLow$,SLow$)џџџџШ6** if substring is found then load line to text objectџџџџd PosStr<>0џџџџc$SLineRes$=StrFromFile(OpenFile$,i,1)џџџџШ ** exit loopџџџџШ.**********************************************џџџџclen=LEN(SLine$)џџџџШ.**********************************************џџџџџџџџeџџџџgiџџџџeџџџџџџџџџџџџџџџџџџџџџџџџdРРРџџџџЋыText1џ­[€Рр?Memail: dr.mfire@gmail.com my site: http://vb-delphi-cpp.blogfa.comѓџџџМ"VerdanaџџџџџџџџџџџџџџџџџџџџџџџџdРРРє$TextBTN1џџџџџџџџџџџџH        wx { | ~  € ƒ„„…‡‡ˆˆˆ‰‰‰ŠŠŠа‰б‰жˆзˆи‡й‡к†л†мс€ст~т}у|у{ффууссппо л к й и з дг          Master Page 000џџџYєџџџџџџџџMaster Layer 000џџџYєџџџџџџџџŒ”я FiRE MaNaGeRFiRESoFTFiRE TaSK MaNaGeRfire-mmb.blogfa.com1.0.0.0