复制按钮

SmallSung · 发表于 2013-5-8 20:14:56

[e]
.版本 2
.支持库 spec
.支持库 internet

.程序集窗口程序集1
.程序集变量游戏名称, 文本型, , "50"
.程序集变量游戏名称英文, 文本型, , "50"
.程序集变量游戏路径, 文本型, , "50"
.程序集变量游戏图标, 文本型
.程序集变量图片框, 图片框, , "50"
.程序集变量标签, 标签, , "50"

.子程序 __启动窗口_创建完毕
.局部变量返回信息, 文本型
.局部变量临时变量a, 文本型
.局部变量临时变量b, 文本型
.局部变量临时变量c, 文本型
.局部变量临时逻辑a, 逻辑型
.局部变量临时数组a, 文本型, , "50"
.局部变量临时数组b, 文本型, , "50"
.局部变量临时数组c, 文本型, , "50"
.局部变量临时数组d, 文本型, , "50"
.局部变量临时数组e, 文本型, , "50"
.局部变量临时循环a, 整数型
.局部变量临时循环b, 整数型
.局部变量临时循环c, 整数型
.局部变量临时循环d, 整数型
.局部变量临时循环e, 整数型
.局部变量图片框临时位置x, 整数型
.局部变量图片框临时位置y, 整数型
.局部变量标签临时位置x, 整数型
.局部变量标签临时位置y, 整数型

返回信息＝ HTTP.读网页 (“http://127.0.0.1/game.php”)
调试输出 (“获取网页信息完毕”)
' 获取网页信息
临时变量a ＝文本_取中间文本 (返回信息, “游戏名称” ＋ #换行符＋ “{”, “}”)
临时数组a ＝分割文本 (临时变量a, “|”, )
.计次循环首 (取数组成员数 (临时数组a), 临时循环a)
游戏名称 [临时循环a] ＝文本_取中间文本 (临时数组a [临时循环a], “(”, “[”)
游戏名称英文 [临时循环a] ＝文本_取中间文本 (临时数组a [临时循环a], “[”, “]”)
.计次循环尾 ()
调试输出 (“获取游戏名称完毕”)
' 获取游戏名称、游戏英文名称
临时变量b ＝文本_取中间文本 (返回信息, “游戏路径” ＋ #换行符＋ “{”, “}”)
临时数组b ＝分割文本 (临时变量b, “|”, )
.计次循环首 (取数组成员数 (临时数组b), 临时循环b)
游戏路径 [临时循环b] ＝文本_取中间文本 (临时数组b [临时循环b], 游戏名称英文 [临时循环b] ＋ “[”, “]”)
.计次循环尾 ()
调试输出 (“获取游戏路径完毕”)
' 获取游戏路径
临时变量c ＝文本_取中间文本 (返回信息, “游戏图标” ＋ #换行符＋ “{”, “}”)
游戏图标＝文本_取中间文本 (临时变量c, “(”, “)”)
调试输出 (游戏图标)
' 获取游戏路径图标
调试输出 (“获取游戏英文名称完毕”)
图片框临时位置x ＝图片框1.左边
图片框临时位置y ＝图片框1.顶边
重定义数组 (图片框, 真, 取数组成员数 (临时数组a))
.计次循环首 (取数组成员数 (临时数组a), 临时循环d)
复制窗口组件 (图片框1, 图片框 [临时循环d])
图片框 [临时循环d].左边＝图片框临时位置x
图片框 [临时循环d].顶边＝图片框临时位置y
图片框 [临时循环d].图片＝ HTTP读文件 (游戏图标＋ “/” ＋游戏名称英文 [临时循环d] ＋ “.ico”)
图片框 [临时循环d].标记＝到文本 (临时循环d)

图片框 [临时循环d].可视＝真

图片框临时位置x ＝图片框临时位置x ＋ 60
.计次循环尾 ()
调试输出 (“复制组件完毕”)
标签临时位置x ＝标签1.左边
标签临时位置y ＝标签1.顶边
重定义数组 (标签, 真, 取数组成员数 (临时数组a))
.计次循环首 (取数组成员数 (临时数组a), 临时循环e)
复制窗口组件 (标签1, 标签 [临时循环e])
标签 [临时循环e].左边＝标签临时位置x
标签 [临时循环e].顶边＝标签临时位置y
标签 [临时循环e].标题＝游戏名称 [临时循环e]
标签 [临时循环e].可视＝真
标签临时位置x ＝标签临时位置x ＋ 60

.计次循环尾 ()
调试输出 (“复制组件完毕”)
' 复制组件

[/e]

要求：
1.点击复制后的按钮可运行游戏
2.游戏路径为游戏路径[N] N代表第几个图片框
网页的内容：