资源介绍:
易语言QQ注册源码调用易语言模块彗星HTTP应用模块.ec和API函数实现QQ注册功能。
资源作者:
易语言源码网
资源界面:
.版本 2
.支持库 internet
.子程序 取dataArray, , 公开
.局部变量 ret, 文本型
.局部变量 ret1, 文本型
.局部变量 ret2, 文本型
.局部变量 url, 文本型
.局部变量 i, 整数型
.局部变量 cookie, 文本型
url = “//reg.qq.com/cgi-bin/checkconn?seed0.676886265166” + 到文本 (取随机数 (1000, 9999))
ret = 到文本 (HTTP读文件 (url))
' ret = #g_dataArray
.判断循环首 (寻找文本 (ret, “error”, , 假) ≠ -1)
HTTP读文件 (“//reg.qq.com”) ' 貌似有时候取不到g_dataArray,访问一次//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, “,”, )
资源下载: