.版本 2
.支持库 spec
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 延迟
.程序集变量 i, 整数型
.子程序 __启动窗口_创建完毕
置外形图片 (#外型, #白色)
_启动窗口.左边 ＝ 取屏幕宽度 () － 250
_启动窗口.顶边 ＝ 取屏幕高度 ()
时钟1.时钟周期 ＝ 70
置随机数种子 ()
延迟 ＝ 到整数 (取随机数 (40, 300) × 1000)
装载图片 (取运行目录 () ＋ “\1.bmp”, 真) ‘ 程序第一次启动的时候 加载的图片 必须有哦，不然会显示无图片了 其他不许修改
i ＝ 1
.子程序 _透明标签4_鼠标左键被按下, 逻辑型, , 不许修改
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
发送信息 (161, 2, 0)
.子程序 _图形按钮1_被单击
结束 ()
.子程序 _时钟1_周期事件, , , 不许修改
.如果 (_启动窗口.顶边 ≠ 取屏幕高度 () － 190 且 _启动窗口.左边 ＝ 取屏幕宽度 () － 250)
_启动窗口.可视 ＝ 真
_启动窗口.顶边 ＝ _启动窗口.顶边 － 10
.否则
时钟1.时钟周期 ＝ 0
延迟 (延迟)
时钟2.时钟周期 ＝ 70
.如果结束
.子程序 _时钟2_周期事件, , , 不许修改
.如果真 (_启动窗口.左边 ≠ 取屏幕宽度 () － 250)
时钟2.时钟周期 ＝ 0
返回 ()
.如果真结束
.如果 (_启动窗口.顶边 ≠ 取屏幕高度 ())
_启动窗口.顶边 ＝ _启动窗口.顶边 ＋ 10
.否则
时钟2.时钟周期 ＝ 0
延迟 (500)
时钟1.时钟周期 ＝ 70
.如果结束
.子程序 _透明标签1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
打开指定网址 (“http://www.lanxinbase.com”) ‘ 修改成你想打开的网址
.子程序 _透明标签1_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
打开指定网址 (“http://www.lanxinbase.com”) ‘ 修改成你想打开的网址
.子程序 _透明标签1_鼠标位置被移动, 逻辑型, , 不许修改
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
水波特效 (图片框1.取窗口句柄 (), 横向位置, 纵向位置, 5, 100)
.子程序 _时钟3_周期事件, , , 不许修改
水周期 (图片框1.取窗口句柄 ())
.子程序 _时钟4_周期事件, , , 修改图片替换信息，图片保存在程序目录下 必须以数字命名比如：1.bmp；后缀名必须是bmp
i ＝ i ＋ 1
装载图片 (取运行目录 () ＋ “\” ＋ 到文本 (i) ＋ “.bmp”, 真)
.如果真 (i ＝ 3) ‘ 如果有你10张图片 那么主力修改成10 当循环到第十张的时候会自动降到第一张、这里不是随机出现的 按顺序
i ＝ 1
.如果真结束
下面这个是重新找的一份，使用第三方支持库：
