.版本 2 .支持库 HtmlView .支持库 internet .支持库 iext .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 .判断开始 (编辑框1.内容 ＝ “”) 信息框 (“请输入QQ！”, 0, , ) .默认 超文本浏览框1.地址 ＝ “tencent://AddContact/?fromId=45&fromSubId=1&subcmd=all&uin=” ＋ 编辑框1.内容 ＋ “&website=www.oicqzone.com” ' 添加好友网址 .判断结束 .子程序 _编辑框1_内容被改变 .判断开始 (取文本长度 (编辑框1.内容) ＜ 5) .默认 获昵称及头像 () .判断结束 .子程序 获昵称及头像 .局部变量 昵称, 文本型 .局部变量 结束位置, 整数型 .局部变量 开始位置, 整数型 .局部变量 文本, 文本型 .局部变量 起始位置, 整数型 图片框1.图片 ＝ HTTP读文件 (“//q2.qlogo.cn/headimg_dl?bs=qq&dst_uin=” ＋ 编辑框1.内容 ＋ “&src_uin=*&fid=*&spec=100&url_enc=0&referer=bu_interface&term_type=PC”) ' 获取头像网址 昵称 ＝ 到文本 (HTTP读文件 (“//users.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?uins= ” ＋ 编辑框1.内容)) 开始位置 ＝ 寻找文本 (昵称, “,”, , 假) 结束位置 ＝ 倒找文本 (昵称, #引号, , 假) 文本 ＝ 取文本中间 (昵称, 开始位置, 结束位置 － 开始位置) 起始位置 ＝ 寻找文本 (文本, #引号, , 假) 透明标签1.标题 ＝ 取文本右边 (取文本中间 (文本, 起始位置, 结束位置 － 起始位置), 取文本长度 (取文本中间 (文本, 起始位置, 结束位置 － 起始位置)) － 1)