|
发表于 2013-8-5 22:53:01
|
显示全部楼层
内蒙古自治区呼和浩特市
本帖最后由 |﹎℡若即 于 2013-8-5 22:54 编辑
[e]
.版本 2
.支持库 iext
.支持库 EThread
.子程序 _超级链接框2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果真 (超级列表框1.取表项数 () ≠ 0)
a = 编辑框1.内容
文本 = 分割文本 (a, #换行符, )
.计次循环首 (取数组成员数 (文本) + 1, i)
启动线程 (&查询, 到整数 (超级列表框1.取标题 (超级列表框1.现行选中项, 1)), )
.计次循环尾 ()
.如果真结束
超级列表框1.现行选中项 = 0
[/e]
把这两个子程序替换掉
[e]
.版本 2
.支持库 iext
.支持库 EThread
.子程序 查询
.参数 查询QQ, 整数型
.局部变量 局_查询QQ, 文本型
.局部变量 昵称, 文本型
.局部变量 d, 文本型
局_查询QQ = 到文本 (查询QQ)
' 取昵称-------------------------------------------------------------------------
d = 到文本 (网页_取网页源码 (“http://base.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?uins=” + 局_查询QQ + “&get_nick=1”))
昵称 = 文本_取出中间文本 (d, #常量1, #常量2)
超级列表框1.置标题 (超级列表框1.现行选中项, 2, 昵称)
超级列表框1.现行选中项 = 超级列表框1.现行选中项 + 1
[/e] |
|