手机号码多线程批量查归属地源码
部分代码：
.版本 2 .子程序 Search, 文本型 .参数 Phone, 文本型 .局部变量 Url, 文本型 .局部变量 Res, 文本型 .局部变量 Ret, 文本型, , "2" .局部变量 Regex, 正则表达式类 Url ＝ “http://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]) .如果真结束 返回 (“查询失败”)
