手机号码多线程批量查归属地源码
部分代码：
.版本 2
.子程序 Search, 文本型
.参数 Phone, 文本型
.局部变量 Url, 文本型
.局部变量 Res, 文本型
.局部变量 Ret, 文本型, , "2"
.局部变量 Regex, 正则表达式类
Url ＝ “//m.ip138.com/mobile.asp?mobile=” ＋ Phone
Res ＝ 编码_Utf8到Ansi (网页_访问 (Url))
Regex.创建 (#RegexStr, Res)
Ret [1] ＝ Regex.取子匹配文本 (1, 1)
Ret [2] ＝ Regex.取子匹配文本 (1, 2)
.如果真 (Regex.取匹配数量 () ≠ 0)
返回 (Ret [1] ＋ “-” ＋ Ret [2])
.如果真结束
返回 (“查询失败”)
