Question

易语言关闭进程的代码。

请人写了几次了。都有漏洞。想请高手再写一次。。。要求是 1.运行程序后自动后台隐蔽运行。2.按某个组合热键可关闭此程序。3.程序运行后检测,关闭XXX.XXX进程（以前请人写的关闭XXX.XXX后他写的那个程序也关闭了，也就是说他写的代码只能关闭一次，我想要能永远关闭某个进程的程序。没啥恶意，就是不想让我的电脑变成游戏机。想杀所有游戏进程。

高手看到了希望帮帮我 吧用到的支持库 源码 等发 329610735@163.com
里 谢过！

Answer 1

添加一个时钟，将其名称改为“时钟1”，再添加一个标签，将其名称改为“标签1”，以下为源码：

.程序集 窗口程序集1
.程序集变量 关闭热键, 整数型

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

写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run”, “这里写上本程序的路径”) ' 这个命令可以让本程序开机启动， 不想要的话可以去掉。
时钟1.时钟周期 ＝ 300 ' 这里决定多少时间禁止一次
关闭热键 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 2, #F5键) ' 注册热键中的参数<3>的名称为“功能键”，类型为“整数型（int）”，初始值为“0”。可以为：0-无功能键；1-ALT键；2-CTRL键；4-SHIFT键或各键值之和。想要关闭本程序就必须按“CTRL键+F5键”。

.子程序 __启动窗口_被激活

_启动窗口.可视 ＝ 假
_启动窗口.在任务条中显示 ＝ 假

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

终止进程 (“这里写上需要禁止启动的程序的进程名”) ' 如果还要禁止其他程序的话还可以添加。

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ 关闭热键)
结束 ()
.如果真结束

Answer 2

.版本 2
.支持库 eAPI

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

_启动窗口.在任务条中显示 ＝ 假
_启动窗口.可视 ＝ 假
时钟1.时钟周期 ＝ 1000

.子程序 _时钟1_周期事件
.局部变量 进程句柄, 整数型
.局部变量 进程列表, 进程信息, , "0"
.局部变量 局部_计次, 整数型
.局部变量 进程ID, 整数型

进程列表 ＝ 取系统进程列表 ()
.计次循环首 (取数组成员数 (进程列表), 局部_计次)
.如果真 (进程列表 [局部_计次].进程名称 ＝ “xxx.xxx”) ' 你想要终止的程序
进程ID ＝ 进程列表 [局部_计次].进程标识符
进程句柄 ＝ 打开进程_ (1, 0, 进程ID)
输出调试文本 (终止进程_ (进程句柄, 0))
输出调试文本 (关闭内核对象_ (进程句柄))
.如果真结束

.计次循环尾 ()
.版本 2

.DLL命令 关闭内核对象_, 整数型, "kernel32", "CloseHandle", , , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的 非零表示成功，零表示失败。会设置GetLastError
.参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;

.DLL命令 终止进程_, 整数型, , "TerminateProcess", , 结束一个进程
.参数 进程的句柄, 整数型, , Long，指定要中断的一个进程的句柄
.参数 退出代码, 整数型, , Long，进程的一个退出代码

.DLL命令 打开进程_, 整数型, "kernel32.dll", "OpenProcess", , , 将句柄返回给过程对象
.参数 进程对象, 整数型, , dwDesiredAccess
.参数 继承句柄, 整数型, , bInheritHandle
.参数 进程标识符, 整数型, , dwProcessId