POST无法获取数具 谢帮忙找原因 谢谢!!

思考

POST无法获取数具 谢帮忙找原因 谢谢!!

.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 post地址, 文本型
.局部变量 POST数据, 文本型
.局部变量 取回内容, 文本型
.局部变量 信息, 文本型
.如果 (编辑框1.内容 ＝ “”)
    信息框 (“请输入7位或11位的手机号码”, #错误图标, )
.否则
.如果结束
post地址 ＝ “http://ipseeker.cn/mobile.php”
POST数据 ＝ “mobile=” ＋ 编辑框1.内容 ＋ “&Submit=%B2%E9%D1%AF&job=search”
取回内容 ＝ 到文本 (彗星HTTP读文件 (post地址, “POST”, , , POST数据))
编辑框2.内容 ＝ 取文本右边 (到文本 (寻找文本 (取回内容, “所属地区”, , 假)), 6)
调试输出 ()

kingsee

还真是高手不少啊，佩服
取文本右边（）第一个参数是原文本
寻找文本 (取回内容, “所属地区”, , 假)  这句返回的是位置，你把他到文本以后程序是可以执行，但他是错误的

思考

[e].版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 post地址, 文本型
.局部变量 POST数据, 文本型
.局部变量 取回内容, 文本型
.局部变量 信息, 文本型

.如果 (编辑框1.内容 ＝ “”)
    信息框 (“请输入7位或11位的手机号码”, #错误图标, )
.否则

.如果结束
post地址 ＝ “http://ipseeker.cn/mobile.php”
POST数据 ＝ “mobile=” ＋ 编辑框1.内容 ＋ “&Submit=%B2%E9%D1%AF&job=search”
取回内容 ＝ 到文本 (彗星HTTP读文件 (post地址, “POST”, , , POST数据))
编辑框2.内容 ＝ 取文本右边 (到文本 (寻找文本 (取回内容, “所属地区”, , 假)), 6)
调试输出 ()
[/e]

开心

下载来运行直接卡死了{:3_234:}

召唤兽

抢个座位坐，看看好不好！

kingsee

位置1 ＝ 寻找文本 (取回内容, “所属地区：”, , 假) ＋ 取文本长度 (“所属地区：”)
位置2 ＝ 寻找文本 (取回内容, “<br>”, 位置1, 假)
编辑框.内容 ＝ 取文本中间 (取回内容, 位置1, 位置2 － 位置1)

大家好呵呵

定了   呵呵