为编程爱好者分享易语言教程源码的资源网
易语言源码视频(易学院) A全站文字广告,诚邀与您合作 建站,挂机器人,挂监控服务器 易语言实地培训火热招生 三叶资源网官方③群:33301895
每日必买商品 20块一小时,一小时一结账 299买3年腾讯云服务器 乐易论坛 三叶资源网官方③群:33301895

网站首页 易语言相关 网络相关源码 正文

QQ注册易语言源码

三叶资源网 2012-07-01 网络相关源码 340 ℃ 0 评论

资源介绍:

易语言QQ注册源码调用易语言模块彗星HTTP应用模块.ec和API函数实现QQ注册功能。

资源作者:

易语言源码网

资源界面:

.版本 2
.支持库 internet

.子程序 取dataArray, , 公开
.局部变量 ret, 文本型
.局部变量 ret1, 文本型
.局部变量 ret2, 文本型
.局部变量 url, 文本型
.局部变量 i, 整数型
.局部变量 cookie, 文本型

url = “http://reg.qq.com/cgi-bin/checkconn?seed0.676886265166” + 到文本 (取随机数 (1000, 9999))
ret = 到文本 (HTTP读文件 (url))
' ret = #g_dataArray
.判断循环首 (寻找文本 (ret, “error”, , 假) ≠ -1)
    HTTP读文件 (“http://reg.qq.com”)  ' 貌似有时候取不到g_dataArray,访问一次http://reg.qq.com就好了
    ret = 到文本 (HTTP读文件 (url))
.判断循环尾 ()
ret1 = 取文本之间 (ret, “(new Array”, “,new Array”)
g_dataArray1 = 分割文本 (ret1, “,”, )
.计次循环首 (取数组成员数 (g_dataArray1), i)
    g_dataArray1 [i] = 取文本之间 (g_dataArray1 [i], #引号, #引号)
    ' 输出调试文本 (g_dataArray1 [i])
.计次循环尾 ()
ret2 = 取文本之间 (ret, “,new Array(”, “)”)
g_dataArray2 = 分割文本 (ret2, “,”, )

资源下载:

文件下载


Tags:QQ注册

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网官方③群:三叶资源网官方③群

网站分类
随机tag
图像缩放标签单据编辑器线程图片格式转换器异或校验Charles亦表格彗星HTTP支持库集中营易语言保护壳软件源码易语言版本RapidJSONhtmlHelp代码框自绘视频上传FiddlerPostgreSQL数据库知乎引流12306抢票
最新评论