|
发表于 2013-12-27 19:48:29
|
显示全部楼层
山东省德州市
.版本 2
.程序集 窗口程序集1
.程序集变量 处理过的进程, 整数型, , "0"
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 1000 ' 这个时间可是修改的大一些
.子程序 _时钟1_周期事件
.局部变量 取到的进程数组, 整数型, , "0"
.局部变量 n1, 整数型
.局部变量 n2, 整数型
.局部变量 待处理的数组, 整数型, , "0"
.局部变量 n3, 整数型
.局部变量 n4, 整数型
编辑框_已经处理的进程.内容 = “”
.计次循环首 (取数组成员数 (处理过的进程), n2) ' 把已经处理的进程写入编辑框
编辑框_已经处理的进程.加入文本 (到文本 (处理过的进程 [n2]) + #换行符)
.计次循环尾 ()
进程_取ID数组 (“qq.exe”, 取到的进程数组, ) ' 通过进程名获取已经运行的程序的进程ID
.计次循环首 (取数组成员数 (取到的进程数组), n1) ' 取所有新启动的需要处理的进程ID
.如果 (寻找文本 (编辑框_已经处理的进程.内容, 到文本 (取到的进程数组 [n1]), , 假) = -1) ' 看取到的进程ID是否处理过
进程_结束 (取到的进程数组 [n1]) ' 如果没处理过就处理 这里修改成你需要写内存的命令
加入成员 (处理过的进程, 取到的进程数组 [n1]) ' 把修改掉的进程添加到处理过的进程
.否则
.如果结束
.计次循环尾 ()
|
|