|
发表于 2017-7-8 13:46:14
|
显示全部楼层
湖南省娄底市
.版本 2
.支持库 iext
.支持库 internet
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.程序集变量 销毁, 文本型
.子程序 __启动窗口_创建完毕
_启动窗口.底图 = #图片1
广告.标题 = “每日一贴:” + 到文本 (HTTP读文件 (“http://static.blstudy.cf/ad/game01.txt”))
配置1 = “C:\Windows\happyrestaurant.ini”
.如果 (读配置项 (配置1, “account”, “username”, ) = “” 且 读配置项 (配置1, “account”, “password”, ) = “”)
透明标签4.标题 = “提示;请你先注册你游戏才能正常运作”
.否则
.如果结束
.子程序 __列表框1_右键被单击
弹出菜单 (用户, , )
.子程序 _透明标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
位置 = 2
.子程序 _透明标签2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
_启动窗口.销毁 ()
.子程序 _关于_被选择
信息框 (“?2017.版权所有”, 0, , )
.子程序 _按钮2_被单击
载入 (注册, , 真)
.子程序 _按钮1_被单击
.如果 (编辑框3.内容 = 读配置项 (配置1, “account”, “username”, ) 且 编辑框4.内容 = 读配置项 (配置1, “account”, “password”, ))
载入 (稍后, , 假)
销毁 ()
.否则
信息框 (“你得注册或重新登录”, 0, , )
.如果结束
.子程序 _广告_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
打开指定网址 (“http://static.blstudy.cf/ad/game01URL.HTML”)
.子程序 _菜单_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
弹出菜单 (帮助, , )
.子程序 _广告按钮_被单击
_启动窗口.高度 = 374
.子程序 _透明标签3_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.子程序 _忘记密码_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
载入 (密码找回, , 真)
|
|