|
64楼
发表于 2012-6-12 17:44:37
|
只看该作者
江苏省淮安市
.版本 2
.支持库 internet
.支持库 EThread
.支持库 spec
.程序集 窗口程序集1
.程序集变量 邀请码地址, 文本型
.程序集变量 会员地址, 文本型
.子程序 _按钮1_被单击
.局部变量 原文本, 文本型
原文本 = 文本_取出中间文本 (到文本 (HTTP读文件 (邀请码地址)), “【开始】”, “【结束】”)
.如果真 (寻找文本 (原文本, 编辑框1.内容, , 假) ≠ -1)
信息框 (“邀请码存在”, 0, )
返回 ()
.如果真结束
.如果 (Servereditthedata (邀请码地址, “邀请码地址”, “【开始】” + 原文本 + 编辑框1.内容 + “=未使用|” + “【结束】”) = 真)
刷新 ()
信息框 (“生成成功”, 0, )
.否则
信息框 (“生成失败”, 0, )
.如果结束
.子程序 _窗口1_创建完毕
启动线程 (&子程序1, , )
.子程序 子程序1
.局部变量 okeim, 逻辑型
.局部变量 登陆变量, 逻辑型
登陆变量 = Loginserver (“1137716847”, “250105540”, okeim)
.如果真 (okeim = 真)
信息框 (“登陆异常,请24小时后登陆”, 0, )
返回 ()
.如果真结束
.如果真 (登陆变量 = 假)
信息框 (“空间账号或密码错误”, 0, )
结束 ()
.如果真结束
调试输出 (“连接成功!!”)
|
|