QQ注册易语言源码

资源介绍：

易语言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, “,”, )

资源下载：