怎么用易语言实现禁止某程序运行

使用正则表达式来完成，参考代码如下：

.版本 2

.支持库丛升简 eAPI

.支笑燃持库 RegEx

.支持库 EThread

.程序集 窗口程序集1

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

时钟1.时钟周期 ＝ 100

.子程序 禁止运行

.局部变量 进程, 进程信息, , "0"

.局部变渗裤量 正则, 正则表达式

.局部变量 n, 整数型

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

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

正则.创建 (“QPCMgr.*.exe”, 假)

.如果真 (正则.匹配 (进程 [n].进程名称))

终止进程 (进程 [n].进程名称)

信息框 (“根据自身情况设置”)

.如果真结束

.计次循环尾 ()

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

启动线程 (&禁止运行, , )

1楼

不想别人用你的电脑上qq、玩游戏？做个简单的批处理文件，别人只以为是程序文件丢失。

先新建一个文件夹

◆新建文档，输入需要禁止升则的程序名，例如qq.exe，文件名另存为list.ini

◆记事本粘帖下面代码，文件名另存为禁止运行.bat

@echo

off

set

route=hklm\software\microsoft\windows

nt\currentversion\image

file

execution

options

:fix

for

/f

%%i

in

(list.ini)

do

reg

add

"%route%\%%i"

/v

debugger

/t

reg_sz

/d

全盘禁止运行%%i

/f

>nul

2>nul

cls

◆记事本粘吵春棚帖下面代码，文件名另存为解除禁止.bat

@echo

off

set

route=hklm\software\microsoft\windows

nt\currentversion\image

file

execution

options

:unfix

for

/f

%%i

in

(list.ini)

do

reg

delete

"%route%\%%i"

/f

>nul

2>nul

cls

隐藏文件夹，收工，需要时禁止，不需要时森蔽解除。

下面的代码保存为.vbs。 时间为24小时制。 每隔15秒卖州昌扫描一次，发现QQ就关闭，开始时间8:20

结束时间:9:50， 可自己更改。 当前时间超过结束时间，脚本自动结束。

-----------------------------------------------代码如下-------------------------------------------------------

Dim wsh

sTart = "中扒8:20"

eTart = "9:50"迹丛

Set wsh = CreateObject("Wscript.Shell")

Tims = FormatDateTime(Time,4)

chTST tims

Sub chTST(tim)

sT = FormatDateTime(sTart,4)

eT = FormatDateTime(eTart,4)

If (tim>sT) And (tim<eT) Then

wsh.Run "taskkill /f /im qq.exe",,True

If tim >eT Then

WScript.Quit

End If

WScript.Sleep 15000

Sel = Chr(34)&WScript.ScriptFullName&Chr(34)

Wsh.Run Sel,,True

End If

End Sub

---