为编程爱好者分享易语言教程源码的资源网
每日必买商品 易语言实地培训火热招生 建站,挂机,机器人服务器 A全站文字广告,诚邀与您合作 三叶资源网官方③群:33301895
C全站文字广告,诚邀与您合作 乐易论坛 热门服务器秒杀 D全站文字广告,诚邀与您合作 三叶资源网官方③群:33301895

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

QQ注册易语言源码

三叶资源网 2012-07-01 网络相关源码 404 ℃ 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,(三叶资源网官方⑤群:7366443

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

欢迎 发表评论:

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

网站分类
随机tag
验证码自动识别服务端伊对APP协议宏插件Safengine自动打铃Access数据库变量数据交换dom界面设计画板源码新浪股吧填表登录编码转换类登录软件流量监控程序十六进制屏幕锁屏工具表白程序Windows Shell
最新评论