论坛风格切换
正版合作和侵权请联系 sd173@foxmail.com
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
购买邀请后未收到邀请联系sdbeta@qq.com
会声会影2023旗舰版 Parallels 19破解    
发帖 回复
返回列表
  • 2964阅读
  • 2回复

[其他]进程管理器(脚本) [复制链接]

 上一主题 下一主题
离线vs007
*
 
发帖
*
今日发帖
最后登录
1970-01-01
只看楼主 倒序阅读 使用道具 楼主  发表于: 2009-05-24 01:31:19


复制代码
  1. <HTML>
  2. <HEAD>
  3. <TITLE>程序设置</TITLE>
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  5. <HTA:APPLICATION
  6. ID="MyhyliApp"
  7. APPLICATIONNAME="设置程序"
  8. VERSION="1.0"
  9. SCROLL="no"
  10. INNERBORDER="no"
  11. CONTEXTMENU="no"
  12. CAPTION="yes"
  13. SHOWINTASKBAR="yes"
  14. SINGLEINSTANCE="yes"
  15. SYSMENU="yes"
  16. WINDOWSTATE="normal"
  17. NAVIGABLE="yes"
  18. />
  19. <script>
  20. <!--
  21. var curMenu=null;
  23. function initializeUI() {
  24. var i;
  25. for(i=0;i<document.all.tags('span').length;i++) {
  26. if(document.all.tags('span').className=='menuUp') {
  27. document.all.tags('span').attachEvent("onmouseover", onmenuOver);
  28. document.all.tags('span').attachEvent("onmouseout", onmenuOut);
  29. document.all.tags('span').attachEvent("onmousedown", onmenuDown);
  30. }
  31. }
  32. }
  34. function onmenuOver() {
  35. obj=event.srcElement;
  37. obj.className='menuOver';
  39. if(curMenu!=null && eval('sub'+curMenu.id+'.style.visibility=="visible"')) {
  40. curMenu.className='menuUp';
  41. obj.className='menuDown';
  42. eval('sub'+curMenu.id+'.style.visibility="hidden"');
  43. eval('sub'+obj.id+'.style.visibility="visible"');
  44. eval('sub'+obj.id+'.runtimeStyle.left=sub'+obj.id+'.style.left');
  45. eval('sub'+obj.id+'.runtimeStyle.top=sub'+obj.id+'.style.top');
  46. curMenu=obj;
  47. }
  48. }
  49. function hideMenu() {
  51. if(curMenu!=null && event.srcElement.tagName!='SPAN') {
  52. curMenu.className='menuUp';
  53. eval('sub'+curMenu.id+'.style.visibility="hidden"');
  54. curMenu=null;
  55. }
  56. }
  58. function onmenuOut() {
  59. obj=event.srcElement;
  61. if(eval('sub'+obj.id+'.style.visibility!="visible"')) {
  62. obj.className='menuUp';
  63. }
  64. }
  66. function onmenuDown() {
  67. obj=event.srcElement;
  69. if(curMenu!=null && curMenu!=obj) {
  70. obj.className='menuDown';
  71. eval('sub'+obj.id+'.style.visibility="visible"');
  72. eval('sub'+obj.id+'.runtimeStyle.left=sub'+obj.id+'.style.left');
  73. eval('sub'+obj.id+'.runtimeStyle.top=sub'+obj.id+'.style.top');
  75. curMenu.className='menuUp';
  76. eval('sub'+curMenu.id+'.style.visibility="hidden"');
  77. }
  78. else if(curMenu==obj) {
  79. if(obj.className!='menuDown') {
  80. obj.className='menuDown';
  81. eval('sub'+obj.id+'.style.visibility="visible"');
  82. eval('sub'+obj.id+'.runtimeStyle.left=sub'+obj.id+'.style.left');
  83. eval('sub'+obj.id+'.runtimeStyle.top=sub'+obj.id+'.style.top');
  84. }
  85. else {
  86. obj.className='menuUp';
  87. eval('sub'+obj.id+'.style.visibility="hidden"');
  88. }
  89. }
  90. else {
  91. obj.className='menuDown';
  92. eval('sub'+obj.id+'.style.visibility="visible"');
  93. eval('sub'+obj.id+'.runtimeStyle.left=sub'+obj.id+'.style.left');
  94. eval('sub'+obj.id+'.runtimeStyle.top=sub'+obj.id+'.style.top');
  95. }
  96. curMenu=obj;
  98. }
  100. function popupmenu() {
  101. curMenu=menu4;
  102. submenu4.runtimeStyle.pixelLeft=event.x;
  103. submenu4.runtimeStyle.pixelTop=event.y;
  104. submenu4.style.visibility='visible';
  105. }
  107. document.onclick=hideMenu;
  108. </script>
  110. <SCRIPT LANGUAGE="VBScript">
  111. dim owner(50),path(50),name(50),id(50),thread(50)
  113. Sub Window_onLoad
  114. initializeUI
  115. window.resizeTo 400,250
  116. window.moveTo 400,200
  117. End Sub
  119. sub getprocess()
  120. if process.options.length>1 then '如果原来已经有项目，则移除所有项目；'
  121. for i=1 to process.options.length
  122. process.options.remove(1)
  123. next
  124. end if
  125. i=1
  126. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") '连接到WMI；'
  127. Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")
  128. For each objProcess in colProcesses
  129. Set objOption = Document.createElement("OPTION") '添加option元素；'
  130. objOption.Text = objProcess.name
  131. objOption.Value = i
  132. process.Add(objOption) 'process列表框添加项目；'
  133. colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain) '获取用户；'
  134. name(i)=objProcess.Name '用数组储存程序名称；'
  135. id(i)=objProcess.ProcessID
  136. thread(i)=objProcess.ThreadCount
  137. owner(i)=strNameOfUser
  138. path(i)=objProcess.ExecutablePath
  139. i=i+1
  140. Next
  141. End sub
  143. sub getvalue()
  144. CurID=process.selectedindex
  145. read.value="进程名称:"&vbcrlf&name(CurID)&vbcrlf&"ID:"&id(CurID)&vbcrlf&"所有者:"&owner(CurID)
  146. read.value=read.value&vbcrlf & "线程数:"&vbcrlf&thread(CurID)&vbcrlf&"路径:"&vbcrlf&path(CurID)
  147. end sub
  149. sub killprocess() '停止进程'
  150. if process.selectedindex<1 then '如果没有选择进程，则退出函数；'
  151. exit sub
  152. end if
  153. prs=process.options(process.selectedindex).text '进程名称为列表框中选择名称；'
  154. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  155. Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process where name='"&prs&"'")
  156. For each objProcess in colProcesses
  157. objProcess.Terminate() '结束该进程。'
  158. next
  159. end sub
  161. sub about()
  162. txt="程序说明："&vbcrlf&vbcrlf&"本程序基于以下技术开发"&vbcrlf&"-DHTML"&vbcrlf&"-HTML-Application"
  163. txt=txt&vbcrlf&"FileSystemObject(FSO)"&vbcrlf&vbcrlf&"系统要求"&vbcrlf&"Internet Explorer 5.5以上"
  164. txt=txt&vbcrlf&"WinXP/Win98/Win2000"&vbcrlf&vbcrlf &"2006-5-1"
  165. read.value=txt
  166. end sub
  168. sub delfile(s)
  169. CurID=process.selectedindex
  170. if process.options.length<=1 or CurID<1 then
  171. exit sub
  172. end if
  173. set fso=createobject("scripting.filesystemobject")
  174. objFile=path(CurID) '获取文件名，文件路径'
  175. set myFile=fso.getfile(objFile) '获得文件对象'
  176. if s="d" then
  177. remind=msgbox("将要删除文件:"&vbcrlf&myFile&vbcrlf&"您是否确定!",vbOKCancel+vbQuestion+vbDefaultButton2,"提醒消息")
  178. if remind=1 then
  179. killprocess()
  180. myFile.delete
  181. else
  182. exit sub
  183. end if
  184. else
  185. set myFolder=myFile.parentfolder '取文件所在的文件夹；'
  186. set objShell=createobject("wscript.shell")
  187. objShell.run(myFolder)
  188. end if
  189. end sub
  190. </SCRIPT>
  191. <STYLE>
  192. body {
  193. margin:0px;
  194. background-color:menu;
  195. }
  196. td,a,div,textarea {
  197. font-family:宋体;
  198. font-size:12px;
  199. }
  200. .submenu {
  201. border:2px outset buttonhighlight;
  202. background-color:menu;
  203. position:absolute;
  204. top: 21px;
  205. z-index:13;
  206. padding:1px;
  207. overflow:hidden;
  208. visibility: hidden;
  209. }
  210. a.menutext {
  211. width:100%;
  212. color:menutext;
  213. text-decoration:none;
  214. padding:2px;
  215. }
  216. a.menutext:hover {
  217. background-color:#CCCCCC;
  218. color:#0066CC;
  219. border-top-color: #000000;
  220. border-right-color: #000000;
  221. border-bottom-color: #000000;
  222. border-left-color: #000000;
  223. }
  224. .menuUp {
  225. margin:1px 0px;
  226. padding-top:3px;
  227. padding-left:8px;
  228. padding-right:8px;
  229. border:1px solid menu;
  230. cursor:default;
  231. height:20px;
  232. position:relative;
  233. overflow: hidden;
  234. visibility: visible;
  235. }
  236. .menuOver {
  237. margin:1px 0px;
  238. padding-top:3px;
  239. padding-left:8px;
  240. padding-right:8px;
  241. border-left:1px solid buttonhighlight;
  242. border-top:1px solid buttonhighlight;
  243. border-right:1px solid buttonshadow;
  244. border-bottom:1px solid buttonshadow;
  245. height:20px;
  246. position:relative;
  247. }
  248. .menuDown {
  249. padding-top:4px;
  250. padding-left:9px;
  251. padding-right:7px;
  252. cursor:default;
  253. height:20px;
  254. position:relative;
  255. margin-top: 1px;
  256. margin-right: 0px;
  257. margin-bottom: 1px;
  258. margin-left: 0px;
  259. border-top-width: 1px;
  260. border-right-width: 1px;
  261. border-bottom-width: 1px;
  262. border-left-width: 1px;
  263. border-top-style: solid;
  264. border-right-style: solid;
  265. border-bottom-style: solid;
  266. border-left-style: solid;
  267. border-top-color: buttonshadow;
  268. border-right-color: buttonhighlight;
  269. border-bottom-color: buttonhighlight;
  270. border-left-color: buttonshadow;
  271. }
  272. .separator {
  273. width:100%;
  274. margin:2px;
  275. margin-top:-4px;
  276. height:12px;
  277. overflow:hidden;
  278. }
  279. .grid {
  280. width:9px;
  281. height:9px;
  282. font-size:1px;
  283. line-height:1px;
  284. border:1px solid black;
  285. vertical-align:absmiddle;
  286. }
  287. .en {
  288. font-family:Tahoma;
  289. font-size:11px;
  290. }
  291. #readingarea {
  292. width:100%;
  293. height:100%;
  294. background-color:#C0C0C0;
  295. color:#000000;
  296. font-size:14px;
  297. line-height:18px;
  298. letter-spacing:1px;
  299. padding:10px;
  300. }
  301. #process {
  302. width:100%;
  303. font-size:14px;
  304. font-family:Arial;
  305. }
  307. </STYLE>
  308. </HEAD>
  309. <BODY>
  310. <table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
  311. <tr>
  312. <td id=menubar onselectstart="return false" colspan="1">
  313. <span class="menuUp" id=menu1>文件</span><span class="menuUp" id=menu2>其它</span><span class="menuUp" id=menu3>帮助</span>
  314. <div id="submenu4" class=submenu style="left: 140px; width:100px">
  315. <a class="menutext" href=# title="刷新进程" onClick="getprocess()">　刷新进程</a>
  316. <a class="menutext" href=# title="结束进程" onClick="killprocess()">　结束进程</a>
  317. <div class="separator">
  318. <hr>
  319. </div>
  320. <a class="menutext" href=# title="删除进程对应文件" onClick="delfile('d')">　删除文件</a>
  321. <a class="menutext" href=# title="转到程序所在的文件夹" onClick="delfile('r')">　转到文件</a>
  322. <div class="separator">
  323. <hr>
  324. </div>
  325. <a class="menutext" href=# title="关于" onClick="about()">　关于软件</a> </div>
  326. <td><span class="menuUp" id=menu4></span></td>
  327. </tr>
  328. <tr>
  329. <td width="554" height="375" align="left" valign=top><textarea name="read" cols="" rows="" readonly wrap="virtual" id="readingarea" oncontextmenu="popupmenu()" > 系统进程管理
  330. 1、获取系统进程；
  332. 2、停止进程；
  334. 3、删除相关文件。</textarea></td>
  335. <td width=233 valign=top id=directory onselectstart="return false"><p>
  336. <select name="process" size=12 id=process onclick="getvalue()" ondblclick="killprocess()">
  337. <option selected>进程名称</option>
  338. </select>
  339. </p> </td>
  340. </tr>
  341. </table>
  342. <div id="submenu1" class=submenu style="left: 0px; width:120px">
  343. <a class="menutext" href="#" title="获取系统进程" onClick="getprocess()">　获得进程</a>
  344. <a class="menutext" href=# title="停止系统进程" onClick="killprocess()">　停止进程</a>
  345. <a class="menutext" href=# title="删除进程对应文件" onClick="delfile('d')">　删除文件</a>
  346. <div class="separator"><hr></div>
  347. <a class="menutext" href=# onClick="window.close()" title="退出程序">　关闭 </span></a>
  348. </div>
  349. <div id="submenu2" class=submenu style="left: 42px; width:120px">
  350. <a class="menutext" href=# title="课时安排查询">　课时查询</a>
  351. <a class="menutext" href=# title="生日提醒">　生日提醒</a>
  352. <div class="separator"><hr></div>
  353. <a class="menutext" href=# title="关闭计算机">　关机</a>
  354. <a class="menutext" href=# title="重新启动计算机">　重启</a>
  355. <a class="menutext" href=# title="注销">　注销</a>
  356. </div>
  357. <div id="submenu3" class=submenu style="left: 84px; width:100px">
  358. <a class="menutext" href="mailto:pcl_83@163.com" title="联系作者">　联系作者</a>
  359. <a class="menutext" href=# title="关于" onClick="about()">　关于软件</a></div>
  360. </BODY>
  361. </HTML> 


新建记事本，输入，保存为“进程管理器.hta”即可
点击进入下载页面: 进程管理器.rar (4 K) 下载次数:1
共1条评分
wjm8888 电魂 +2 闪电联盟因你而精彩! 2009-05-24
软件下载咨询 sdbeta@qq.com
 
回复
举报
离线lqwjkx
*
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 沙发  发表于: 2009-05-24 01:56:43
软件界面`。



很不错哦，很强大哈`。
回复
举报
离线wjm8888
闪电元勋

发帖
16065
今日发帖
最后登录
2021-06-28
只看该作者 板凳  发表于: 2009-05-24 21:08:45
很不错啊,谢谢分享
回复
举报
发帖 回复
返回列表