注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

临颍中远电脑科技

专业装机,网吧维护,电脑维修,网络监控,数据恢复,

 
 
 

日志

 
 

AU3修改某人的进程管理器  

2010-09-07 14:55:29|  分类: AU3 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

#NoTrayIcon
#include <GUIConstants.au3>
#include <GuiListView.au3>

GUICreate("进程管理器", 257, 364)
$ListView1 = GUICtrlCreateListView("进程名                              |PID      ", 8, 8, 241, 305)
$Button1 = GUICtrlCreateButton("结束进程", 8, 328, 105, 25)
$Button2 = GUICtrlCreateButton("刷新列表", 144, 328, 105, 25)
GUISetState(@SW_SHOW)

list()
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   ExitLoop
  Case $Button1
   proclose()
  Case $Button2
   list()
 EndSwitch
WEnd
Exit

Func list()
 _GUICtrlListView_DeleteAllItems($ListView1)
 Local $list = ProcessList()
 For $i = 1 To $list[0][0]
  GUICtrlCreateListViewItem($list[$i][0] & "|" & $list[$i][1], $ListView1)
 Next
EndFunc   ;==>list

Func proclose()
 Local $pro = StringSplit(GUICtrlRead(GUICtrlRead($ListView1)), "|")
 If IsArray($pro) And $pro[0] >= 2 Then
  If ProcessExists($pro[1]) Then ProcessClose($pro[1])
 Else
  MsgBox(4096, "错误", "无法终止进程!")
 EndIf
 Sleep(1000)
 If ProcessExists($pro[1]) Then MsgBox(4096, "提示", "该进程无法被强行终止!")
 list()
EndFunc   ;==>proclose

  评论这张
 
阅读(615)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017