|
6楼

楼主 |
发表于 2015-2-23 14:08:26
|
只看该作者
山西省太原市
.版本 2
.支持库 internet
.支持库 iext
.程序集 窗口程序集1
.程序集变量 分割的文本, 文本型, , "0"
.程序集变量 文本1, 文本型
.程序集变量 文本2, 文本型
.程序集变量 文本3, 文本型
.程序集变量 fgwb, 文本型, , "0"
.程序集变量 文本a, 文本型
.程序集变量 文本b, 文本型
.程序集变量 文本c, 文本型
.子程序 __启动窗口_创建完毕
坏孩子_加载皮肤 (#坏孩子皮肤_经典黑)
加载Aero特效 ()
编辑框3.内容 = 编码_Utf8到Ansi (HTTP读文件 (“http://weibo.com/u/3754912562”))
fgwb = 分割文本 (编辑框3.内容, “¥”, )
文本a = fgwb [1]
文本b = fgwb [2]
文本c = fgwb [3]
透明标签1.标题 = 文本b
.子程序 _按钮1_被单击
编辑框1.内容 = 到文本 (HTTP读文件 (“http://dingduan.050ka.com/article/216.html”))
分割的文本 = 分割文本 (编辑框1.内容, “¥”, )
文本1 = 分割的文本 [1]
文本2 = 分割的文本 [2]
文本3 = 分割的文本 [3]
编辑框2.内容 = 文本2
编辑框2.内容 = 到文本 (子文本替换 (编辑框2.内容, “迅雷会员”, “迅雷会员账号:”, , , 真))
编辑框2.内容 = 到文本 (子文本替换 (编辑框2.内容, “爱密码首发密码”, “密码:”, , , 真))
编辑框2.内容 = 到文本 (子文本替换 (编辑框2.内容, “爱密码分享密码”, “密码:”, , , 真))
编辑框2.内容 = 到文本 (子文本替换 (编辑框2.内容, “<br/>”, #换行符, , , 真))
|
|