QQ空间登录例子

部分代码：

.版本 2

.子程序 Login, 文本型, 公开
.参数 uin, 文本型
.参数 Pass, 文本型
.局部变量 ncode, 逻辑型
.局部变量 bin, 字节集
.局部变量 code, 文本型
.局部变量 str, 文本型
.局部变量 bool, 逻辑型
.局部变量 reg, 正则表达式类
.局部变量 url, 文本型
.局部变量 code_, 文本型

_到状态 (“init.”)
QQ.Init ()
_到状态 (“Check.”)
ncode ＝ QQ.Check (uin, Pass, code_)
.如果 (ncode)
    分组框验证码.可视 ＝ 真
    _到状态 (“Ncode.”)
    QQ.Ncode ()
    .计次循环首 (3, )
        _到状态 (“GetCode.”)
        bin ＝ QQ.GetCode ()
        图片框1.图片 ＝ bin
        .判断循环首 (取文本长度 (code) ＜ 4)
            code ＝ 编辑框验证码.内容
        .判断循环尾 ()
        编辑框验证码.内容 ＝ “”
        _到状态 (“CheckCode.”)
        bool ＝ QQ.CheckCode (code)
        .如果真 (bool ＝ 假)
            分组框验证码.可视 ＝ 假
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()

.否则
    编辑框验证码.内容 ＝ code_
.如果结束
_到状态 (“Login.”)
str ＝ QQ.Login ()
.如果真 (寻找文本 (str, “登录成功”, , 假) ≠ -1)
    reg.创建 (“(http.*?)'”, str)
    url ＝ reg.取子匹配文本 (1, 1)
    输出调试文本 (“url” ＋ url)
    返回 (“登录成功”)
.如果真结束
返回 (str)