|
发表于 2017-7-8 13:51:22
|
显示全部楼层
湖南省娄底市
- .版本 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_鼠标左键被按下, 逻辑型
- .参数 横向位置, 整数型
- .参数 纵向位置, 整数型
- .参数 功能键状态, 整数型
- .子程序 _忘记密码_鼠标左键被按下, 逻辑型
- .参数 横向位置, 整数型
- .参数 纵向位置, 整数型
- .参数 功能键状态, 整数型
- 载入 (密码找回, , 真)
复制代码 |
|