|
|
发表于 2013-5-29 09:21:31
|
显示全部楼层
四川省巴中市
[e]
.版本 2
.支持库 xplib
.支持库 WaveEffect
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
初始化 ()
.子程序 初始化
.局部变量 对象, 对象
.局部变量 图片句柄, 整数型
XP风格 (1)
对象.创建图片对象 (#图片1)
图片句柄 = 对象.读数值属性 (“Handle”, )
水波初始化 (图片框1.取窗口句柄 (), 图片句柄, 30, 0)
.子程序 _图片框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
水波激起 (横向位置, 纵向位置, 8, 40)
.子程序 _按钮1_被单击
.局部变量 Temp, 文本型
.如果真 (寻找文本 (编辑框1.内容, “thunder://”, , 真) ≠ -1)
Temp = 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) - 10)
Temp = 到文本 (BASE64解码 (Temp))
编辑框2.内容 = 文本_取中间文本_字符串定位 (Temp, “AA”, “ZZ”)
.如果真结束
[/e] |
评分
-
| 参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻! |
查看全部评分
|