一个简单的调用QQ加好友接口开源

.版本 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读文件 (“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读文件 (“http://users.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?uins= ” ＋ 编辑框1.内容))
开始位置 ＝ 寻找文本 (昵称, “,”, , 假)
结束位置 ＝ 倒找文本 (昵称, #引号, , 假)
文本 ＝ 取文本中间 (昵称, 开始位置, 结束位置 － 开始位置)
起始位置 ＝ 寻找文本 (文本, #引号, , 假)
透明标签1.标题 ＝ 取文本右边 (取文本中间 (文本, 起始位置, 结束位置 － 起始位置), 取文本长度 (取文本中间 (文本, 起始位置, 结束位置 － 起始位置)) － 1)

@老衲法号黄牛