易语言监测某程序运行后触发事件

通过寻找进程里的进程名来监测某程序

如果有这个进程就触发事件

我把代码写出来给你看看

就以QQ会例

.版本

2

.支持库

eAPI

.程序集

窗口程序集1

.子程序

__启动窗口_创建完毕

.局部变量

进程列表,

进程信镇亏息,

,

"0"

.局部变量

计次,

整数型

进程列表

＝

取系统进程列表

()

.变量循环首

(1,

取数组成员数

(进程列表),

1,

计次)

.如果真

(到文本

(进程列表

[计次].进程名称)

＝

“QQ.exe”困闷)

信息框

(“QQ已开启”,

0,

)

.如果真结束

.变御尺神量循环尾

()

.版本 2

.程序集 窗口程序集_启动哪没猜窗口

.子程序 _时钟1_周期事件

鸣叫 ()

.子程序 __启动窗口_按下某键, 逻辑型察枯

.参数 键代码, 整数型

.参数 功能键李型状态, 整数型

.如果真 (功能键状态 ＝ 0 且 键代码 ＝ #空格键)

时钟1.时钟周期 ＝ 500

.如果真结束

.子程序 __启动窗口_放开某键, 逻辑型

.参数 键代码, 整数型

.参数 功能键状态, 整数型

.如果真 (功能键状态 ＝ 0 且 键代码 ＝ #空格键)

时钟1.时钟周期 ＝ 0

.如果真结束

很简单。一个时钟周期事件，两个变量培者，只要这个程序还在运行，你想关闭的程序就别想打开，而且程序名字不分大小写。配差薯

下面是代码，应该能看明白。

.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 800

.子程序 _时钟1_周期事件

进程, 进程信息, , "0" '变量：庆手进程， 类型：进程信息 数组：0

B, 整数型 '变量：B类型： 整数型

进程 ＝ 取系统进程列表 ()

. 计次循环首 (取数组成员数 (进程), B)

.如果真 (到小写 (进程 [B].进程名称) ＝ 到小写 (“E.exE”))

终止进程 (“e.EXe”)

.计次循环尾 ()

这样就OK了，希望我的解答对你能有帮助。

---