-
关注Ta
-
- 注册时间 2009-10-16
- 最后登录 2015-06-20
-
- 发帖265
- 在线117小时
- 精华0
- DB553
- 威望23
- 保证金0
- 桃子0
- 鲜花0
- 鸡蛋0
-
访问TA的空间加好友用道具
|
声明:这东西是茨克的东西,我只是进行了优化 嘿嘿说一下吧,这个源码他调用了5个模块,我看了之后觉得有许多没用的(不喜勿喷)就改了一下。具体修改内容:窗口淡入() 、寻找CF路径、模仿蟹君的风格(嘻嘻)。程序截图:- .版本 2
- .支持库 EThread
- .支持库 eAPI
- .支持库 spec
- .程序集 主程序
- .程序集变量 路径, 文本型
- .子程序 __启动窗口_创建完毕
- 淡入窗口 ()
- 时钟1.时钟周期 = 100 ' 100合适,否则占CPU
- 路径 = 取文本注册项 (4, “SOFTWARE\Tencent\CrossFire\InstallPath”, )
- .如果 (取文件尺寸 (路径 + “\rez\RB001.rez”) ≠ 6460261)
- 标签_卸载.可视 = 真
- .否则
- 标签_安装.可视 = 真
- .如果结束
- 启动线程 (&动画物体, , )
- ' ————————————————————————————————————————————
- ' 我把RB001.rez名字改了防止调试的时候乱写文件。注意改过来
- ' ————————————————————————————————————————————
- .子程序 _标签_安装_鼠标左键被按下, 逻辑型
- .参数 横向位置, 整数型
- .参数 纵向位置, 整数型
- .参数 功能键状态, 整数型
- 写到文件 (路径 + “\rez\RB001”, #不掉血)
- 标签_安装.可视 = 假
- 标签_卸载.可视 = 真
- 信息框 (“安装成功!可以把我关闭了!”, #信息图标, )
- .子程序 _标签_卸载_鼠标左键被按下, 逻辑型
- .参数 横向位置, 整数型
- .参数 纵向位置, 整数型
- .参数 功能键状态, 整数型
- 写到文件 (路径 + “\rez\RB002”, #原文件)
- 标签_卸载.可视 = 假
- 标签_安装.可视 = 真
- 信息框 (“卸载成功!可以把我关闭了!”, #信息图标, )
- .子程序 _时钟1_周期事件
- 动画物体 ()
- .子程序 淡入窗口
- .局部变量 i, 整数型
- _启动窗口.可视 = 真
- .计次循环首 (255, i)
- 设置窗口透明度 (_启动窗口.取窗口句柄 (), i)
- 延迟 (1)
- .计次循环尾 ()
- .子程序 动画物体
- 置随机数种子 ()
- _启动窗口.图片框1.移动 (取随机数 (0, 230), 取随机数 (0, 120), , )
【版权归茨克所有】
点击在新窗播放[ 此帖被装装装装装你妈B在2012-08-22 15:32重新编辑 ]
|