资源描述:
《vb 编写任务管理器》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、VB编写任务管理器OptionExplicit'显示XP风格函数PrivateDeclareSubInitCommonControlsLib"comctl32.dll"()'显示消息函数PrivateDeclareFunctionMessageBoxLib"user32"Alias"MessageBoxA"(ByValhwndAsLong,ByVallpTextAsString,ByVallpCaptionAsString,ByValwTypeAsLong)AsLong'进程创建事件PrivateWithEventsCreateProcessEventA
2、sSWbemSinkAttributeCreateProcessEvent.VB_VarHelpID=-1'进程结束事件PrivateWithEventsDeleteProcessEventAsSWbemSinkAttributeDeleteProcessEvent.VB_VarHelpID=-1'进程属性更改事件PrivateWithEventsModificationProcessEventAsSWbemSinkAttributeModificationProcessEvent.VB_VarHelpID=-1PrivateSubcmdExit_Cli
3、ck()UnloadMeEndSubPrivateSubForm_Initialize()'显示XP风格InitCommonControlsEndSubPrivateSubcmdAbout_Click()MessageBox0,"欢迎你使用Chenhui530编写的“WMI进程管理器”实例源码!如"&vbNewLine&"果你在使用中发现有什么问题请及时通过以下方式转告联系我。"&Chr(13)&"QQ号码:285305530,335429附加消息:“VB技术交流”"&vbNewLine&"邮箱:Chenhui00530@163.com论坛:www.ch
4、enhui530.com","关于",vbInformationEndSubPrivateSubcmdKill_Click()DimiAsInteger,sumAsInteger,checkValueAsInteger'循环LISTVIEW筛选处于选中状态的ITEMFori=1TolvProcessexInfo.ListItems.CountIflvProcessexInfo.ListItems(i).SelectedThensum=sum+1IfUseWmiKillProcess(lvProcessexInfo.ListItems(i).SubItem
5、s(1))Then'Me.lvProcessexInfo.ListItems.RemoveicheckValue=checkValue+1EndIfEndIfNext'这里不能用VB自带的Msgbox函数,因为VB自带的MSGBOX函数会使程序暂时处于中断状态这样结束了的进程还会显示在LISTVIEW中'这个检测当选择多个进程时的结果IfcheckValue<>0ThenIfcheckValue=sumThenMessageBox0,"终止进程成功!!","提示",vbInformationElseIfcheckValue>0ThenMessageBox
6、0,"有部分进程终止失败!!","提示",vbInformationElseMessageBox0,"终止进程失败!!","提示",vbCriticalEndIfEndIfElseMessageBox0,"你还没有选择需要结束的进程呢!!","提示",vbInformationEndIfEndSubPrivateSubcmdRun_Click()frmRun.ShowEndSubPrivateSubForm_Load()DimobjSWbemServicesAsSWbemServices,processAsSWbemObject,processesAsS
7、WbemObjectSet,lvItemAsListItemDimprocessUserNameAsString,processPathAsString,iAsInteger,lgWorkingSetSizeAsLong'连接WMI服务IfConnectWmiServer(objSWbemServices,".")ThenMe.Show'限制鼠标更改窗体大小ControlSizefrmMain,False'遍历进程Setprocesses=objSWbemServices.ExecQuery("Select*FromWin32_Process")ForE
8、achprocessInprocessesDoEventsi=i+1status