取本机已登录QQ附空间自动发说说例子

.计次循环首 (取数组成员数 (qq信息), i)
.如果真 (qq信息 [i].QQ ＝ 组合框1.内容)
clientkey ＝ qq信息 [i].clientkey
跳出循环 ()
.如果真结束

.计次循环尾 ()
全局_cookies ＝ 子程序_登录 (组合框1.内容, clientkey)
.如果 (全局_cookies ≠ “”)
全局_p_skey ＝ 文本_取出中间文本 (全局_cookies, “p_skey=”, “;”)
全局_登录qq ＝ 组合框1.内容
调试输出 (全局_p_skey)
信息框 (“登录成功”, 64, 全局_登录qq, )
.否则
信息框 (“登录失败”, 64, , )