在论坛显示易语言代码测试

精易如家酒店ジ

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

.子程序 注册线程
.局部变量 ptk, 文本型
.局部变量 ptk1, 文本型
.局部变量 Registration, 文本型
.局部变量 Cipher, 文本型
.局部变量 cd, 文本型
.局部变量 nickName, 文本型
.局部变量 zh, 文本型, , "0"
.局部变量 zh1, 文本型
.局部变量 句柄, 整数型
.局部变量 i, 整数型
.局部变量 mm, 文本型, , "0"

网页_清除Cookie (“58.com”)
ptk ＝ 彗星URL解码_UTF8 (到文本 (HTTP读文件 (“https://passport.58.com/reg/”)))
.如果 (编辑框1.内容 ＝ “%a”)
    nickName ＝ 文本_取随机字母 (7, 0)
.否则

.如果结束
.如果 (编辑框1.内容 ＝ “%a%A”)
    nickName ＝ 文本_取随机字母 (8, 2)
.否则

.如果结束
.如果 (编辑框1.内容 ＝ “%A”)
    nickName ＝ 文本_取随机字母 (7, 1)
.否则

.如果结束
.如果 (编辑框1.内容 ＝ “%1”)
    nickName ＝ 文本_取随机数字 (7, )
.否则

.如果结束
.如果 (编辑框1.内容 ＝ “%a%A%1”)
    nickName ＝ 文本_取随机字母 (2, 0) ＋ 文本_取随机字母 (2, 1) ＋ 文本_取随机数字 (3)
.否则

.如果结束
.如果 (编辑框1.内容 ＝ “%a%1”)
    nickName ＝ 文本_取随机字母 (3, 0) ＋ 文本_取随机数字 (3)
.否则

.如果结束
.如果 (编辑框1.内容 ＝ “%A%1”)
    nickName ＝ 文本_取随机字母 (4, 1) ＋ 文本_取随机数字 (3)
.否则

.如果结束
.如果 (编辑框1.内容 ＝ “%a%a”)
    nickName ＝ 文本_取随机字母 (8, 0)
.否则

.如果结束

Cipher ＝ 编辑框2.内容

调试输出 (nickName)
调试输出 (ptk)
ptk1 ＝ 取指定内容_MARS (ptk, #ptk前, #ptk后)
cd ＝ 取指定内容_MARS (ptk, #cd前, #cd后)
调试输出 (ptk1)
Registration ＝ 彗星URL解码_UTF8 (到文本 (访问网页_MARS (“http://passport.58.com/save”, “POST”, “ptk=” ＋ ptk1 ＋ “&cd=” ＋ cd ＋ “&nickName=” ＋ nickName ＋ “&txtemail=” ＋ 文本_取随机字母 (8, 0) ＋ “@163.com&password=” ＋ Cipher ＋ “&cpassword=” ＋ Cipher, , , “221.130.162.48:81”)))
调试输出 (Registration)
调试输出 (nickName)
调试输出 (到文本 (HTTP读文件 (“58.com/”)))
加入成员 (zh, nickName)
加入成员 (mm, Cipher)
.判断开始 (寻找文本 (Registration, #cg, , 假) ≠ -1)
    .计次循环首 (取数组成员数 (zh), i)
        句柄 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (句柄, 0, zh )
        超级列表框1.置标题 (句柄, 1, mm )
        ' 超级列表框1.置标题 (句柄, 2, 到文本 (取数组成员数 (zh)))
    .计次循环尾 ()

.默认
    信息框 (“?”, 0, )
[/e]

笑易笑

哈哈  我的成功了

果子

[e]

.版本 2

.子程序 取百度源码, 文本型
.局部变量 局_源代码, 文本型, 静态, , 返回的网页源代码

局_源代码 ＝ 网页_访问 (“http://www.baidu.com”)  ' 用 网页_访问() 命令来获得百度首页的源代码
返回 (局_源代码)

[/e]

紅顏じ亦沉淪ジ

== =|求中奖。。。

紅顏じ亦沉淪ジ

[e]

.版本 2
.支持库 internet

.子程序 子程序_取素材信息, 逻辑型, , 真表示成功,假失败
.参数 素材地址, 文本型
.参数 素材标题, 文本型, 参考
.参数 素材预览地址, 文本型, 参考
.参数 素材下载地址, 文本型, 参考
.局部变量 返回文本, 文本型
.局部变量 正则, 正则表达式类

返回文本 ＝ 编码_URL解码UTF8 (到文本 (HTTP读文件 (素材地址)))
正则.创建 (#文件匹配, 返回文本)
.如果真 (正则.取匹配数量 () ＞ 0)
素材标题 ＝ 正则.取子匹配文本 (1, 1)
素材预览地址 ＝ 正则.取子匹配文本 (1, 2)
素材下载地址 ＝ 正则.取子匹配文本 (1, 3)
返回 (真)
.如果真结束
返回 (假)
[/e]

笑易笑

测试哈呀
[e]
.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

信息框 (“欢迎来到精易论坛”, 64, )
[/e]

╰习惯清晨

虽然不知道是什么，貌似很强大的样子

御风软件

呼叫大神，不中全部变大婶~

御风软件

为了精币，继续顶~

御风软件

哎呦，这个插件不错啊