震撼开源QQ显IP源码！

MrSimple

很好很强大  

474238210

为啥你在卖啊。。。。。

kiss717

看着还不错，拿来看看

RAP小Y

貌似很给力！

hshhsh321

好东西哇我要了

阿硕

震撼开源QQ显IP源码！

E族X

给力 ！要了 哈哈

ｇａｎｇsｔａ

本人，纯属路过。。。看看而已。。。

学习中的莱鸟

谢谢楼主

IV〓〓□靓

.版本 2
.支持库 RegEx
.支持库 iconv

.程序集 窗口程序集2
.程序集变量 Shang, 整数型

.子程序 _MainFrame_将被销毁

结束 ()
' --========  易语言资源网  (www.5A5X.com)  ======--
' 努力创建完善、持续更新的易语言学习例程源码资源站
' --================   www.5A5X.com  ===========--
' --==================   易语言资源网注意事项  ================--
' * 易语言资源网为易语言官方站、易语言官方论坛提供辅助资源站；
' 本易语言资源网( www.5A5X.com)所有软件和资料均为软件作者提
' 供和网友推荐发布而来，其版权归该软件和程序源码的合法拥有者所
' 有，本站易语言资源网整理收集仅供易语言用户学习和易语言技术研
' 究探讨使用，不得用于任何商业用途。如果由于以上原因造成的版权
' 纠纷本站概不负责！
' * 本站资源未经许可，任何网站不得非法盗链及抄袭本站资源；如引用
' 页面，请注明来自易语言资源网，谢谢合作！
' --=====================   www.5A5X.com  ================--


.子程序 _按钮1_被单击
.局部变量 url, 文本型
.局部变量 bin, 字节集
.局部变量 i, 整数型
.局部变量 index, 整数型
.局部变量 群号搜索, 正则表达式
.局部变量 群名称, 正则表达式
.局部变量 群人数, 正则表达式
.局部变量 结果, 搜索结果, , "0"
.局部变量 binstr, 文本型
.局部变量 info, 文本型
.局部变量 filename, 文本型
.局部变量 File, 整数型

url ＝ “http://id.qq.com/cgi-bin/sosoQunOnKeywords?srch={value}&pn={pn}&ps=18”
.如果真 (编辑框1.内容 ＝ “”)
    信息框 (“關鍵字不能為空！”, #错误图标, “錯誤”)
    返回 ()
.如果真结束

' 本源码来自易语言资源网(www.5A5X.com)
清除数组 (全_群号)
清除数组 (全_群名)
群号搜索.创建 (#QunUin_TZ, )
群名称.创建 (#Name_TZ, )
群人数.创建 (#Num_TZ, )
index ＝ 1
.判断循环首 (真)
    url ＝ “http://id.qq.com/cgi-bin/sosoQunOnKeywords?srch={value}&pn={pn}&ps=18”
    url ＝ 子文本替换 (url, “{value}”, URL编码1 (编辑框1.内容), , , 真)
    url ＝ 子文本替换 (url, “{pn}”, 到文本 (index), , , 真)
    bin ＝ 访问网页_MARS (url, “GET”, , 取COOKIE (“id.qq.com”))
    bin ＝ 编码转换 (bin, #编码_UTF_8, #编码_GB18030, )
    binstr ＝ 到文本 (bin)
    .如果真 (binstr ＝ #常量1)
        跳出循环 ()
    .如果真结束
    ' 本源码来自易语言资源网(www.5A5X.com)
    清除数组 (结果)
    结果 ＝ 群号搜索.搜索全部 (binstr)
    .计次循环首 (取数组成员数 (结果), i)
        加入成员 (全_群号, 结果 .取子匹配文本 (binstr, 1, ))
    .计次循环尾 ()
    结果 ＝ 群名称.搜索全部 (binstr)
    .计次循环首 (取数组成员数 (结果), i)
        加入成员 (全_群名, 结果 .取子匹配文本 (binstr, 1, ))
    .计次循环尾 ()
    结果 ＝ 群人数.搜索全部 (binstr)
    .计次循环首 (取数组成员数 (结果), i)
        加入成员 (全_群人数, 结果 .取子匹配文本 (binstr, 1, ))
    .计次循环尾 ()
    index ＝ index ＋ 1
.判断循环尾 ()
filename ＝ 到文本 (取现行时间 ()) ＋ “.txt”
File ＝ 打开文件 (filename, #重写, #禁止读写)
.计次循环首 (取数组成员数 (全_群名), i)
    info ＝ 全_群号 ＋ “|||” ＋ 全_群名 ＋ “|||” ＋ 全_群人数 ＋ #换行符
    写出文本 (File, info)
.计次循环尾 ()
关闭文件 (File)
信息框 (“采集完毕 共采集到” ＋ 到文本 (取数组成员数 (全_群号)) ＋ “个群，数据文件：” ＋ filename, 0, )
' 本源码来自易语言资源网(www.5A5X.com)

.子程序 URL编码1, 文本型
.参数 字符串, 文本型
.局部变量 N
.局部变量 e字符, 文本型
.局部变量 文本, 文本型
.局部变量 B, 字节集

B ＝ 编码转换 (到字节集 (字符串), #编码_GB2312, #编码_UTF_8, )
.计次循环首 (取字节集长度 (B), N)
    .判断开始 (B [N] ≥ 33 且 B [N] ≤ 122)
        文本 ＝ 文本 ＋ 字符 (B [N])
    .默认
        e字符 ＝ 取十六进制文本 (B [N])
        e字符 ＝ “%” ＋ 取重复文本 (2 － 取文本长度 (e字符), “0”) ＋ e字符
        文本 ＝ 文本 ＋ e字符
    .判断结束
    ' 本源码来自易语言资源网(www.5A5X.com)
.计次循环尾 ()
返回 (文本)