为编程爱好者分享易语言教程源码的资源网
好用的代理IP,游戏必备 ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
好用的代理IP,游戏必备 ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文

按键精灵用WMI对象列出系统所有进程

三叶资源网 2018-10-21 16:41:02 按键精灵Q语言 1260 ℃ 0 评论

用WMI对象列出系统所有进程

运行环境:分辨率:1440x900 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.3730

@一只鱼

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//           [用WMI对象列出系统所有进程]            //  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
VBS Dim WMI,objs,obj,stt,Enum1  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
VBS Set WMI = GetObject("WinMgmts:")  
VBS Set objs = WMI.InstancesOf("Win32_Process")  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
VBS stt=stt & vbcrlf & "For Each obj In objs "  
VBS stt=stt & vbcrlf & "Enum1 =  Enum1 & obj.Description & vbcrlf"  
VBS stt=stt & vbcrlf & "Next"  
VBS Execute(stt)  
VBSCall RunApp("notepad")  
Delay 1000  
SayExpression Enum1  
EndScript


来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
易CEF3浏览器支持库HPSocket原子锁电脑QQ吃鸡辅助vue多关键词筛选图片格式转换器TCP套接字火山安卓API源码酷Q插件hp-socket网页解析库Sqlite3数据库操作类LOL界面UIQQ看点评论酷Q智能机器人源码键盘钩子
最新评论