为编程爱好者分享易语言教程源码的资源网
广告位招租 程序员交流社区 挂机,挂机器人服务器95一年 易语言培训课大全 三叶资源网交流群④ 【采购季】上云仅¥223/3年
广告位招租 每日疯抢商品 建站服务器 便宜好看的文具盒 三叶资源网交流群④ 【采购季】上云仅¥223/3年
程序员交流社区 每日疯抢商品 建站服务器 便宜好看的文具盒 三叶资源网交流群④ 【采购季】上云仅¥223/3年

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

QQ注册易语言源码

三叶资源网 2012-07-01 网络相关源码 834 ℃ 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,(三叶资源网④群:72857039

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

欢迎 发表评论:

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

网站分类
随机tag
Printable易语言EXDUI界面例程Windows身份验证机构数组去重复微信战旗弹幕Java支持库多线程进程隐藏模拟器中控新浪博客仓库管理填表登录选择夹图片组QQ群成员提取phpotoshop保护壳FindPathbitlocker加密
最新评论
友情链接