QQ昵称验证.版本 2
.子程序 莫_QQ昵称验证, 逻辑型, 公开, 利用QQ昵称验证 输入指定的QQ号 判断昵称是否等于验证的文本 ps:可以用于简单的网络验证 或者 版本验证
.参数 参数_QQ号, 长整数型, , cha询的QQ号
.参数 参数_验证文本, 文本型, , 要验证的文本
.参数 返回_昵称, 文本型, 参考, 返回获取到的QQ昵称
.局部变量 局_昵称, 文本型
.局部变量 局_开始位置, 整数型
.局部变量 局_结束位置, 整数型
.局部变量 局_起始位置, 整数型
' 局_昵称 = 到文本 (HTTP读文件 (“http://users.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?uins= ” + 参数_QQ号))
局_昵称 = 网页_访问S (“http://users.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?uins= ” + 到文本 (参数_QQ号), , , , , , , , , , , , , , , , , )
局_开始位置 = 寻找文本 (局_昵称, “,”, , 假)
局_结束位置 = 倒找文本 (局_昵称, #引号, , 假)
局_昵称 = 取文本中间 (局_昵称, 局_开始位置, 局_结束位置 - 局_开始位置)
局_起始位置 = 寻找文本 (局_昵称, #引号, , 假)
局_昵称 = 取文本右边 (取文本中间 (局_昵称, 局_起始位置, 局_结束位置 - 局_起始位置), 取文本长度 (取文本中间 (局_昵称, 局_起始位置, 局_结束位置 - 局_起始位置)) - 1)
返回_昵称 = 局_昵称
.如果真 (参数_验证文本 = 局_昵称)
返回 (真)
.如果真结束
返回 (假)
|