QQ昵称验证

晓风残月梦微凉 · 发表于 2018-11-22 16:59:39

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)
返回_昵称＝局_昵称
.如果真 (参数_验证文本＝局_昵称)
返回 (真)
.如果真结束
返回 (假)