取网页指定内容到编辑框

Bye

按钮被点击~取网页指定内容到编辑框~~怎么弄？


要求取下面箭头里面的内容，做示例
比如：
这里的内容→箭头这里的内容←就取箭头里面的到编辑框

拜佛成魔

123.zip (629.14 KB, 下载次数: 707)

2011-9-16 13:00 上传

点击文件名下载附件   一个列子

a307

被选择的内容？

Yiˉ时间门

你不如切个图看看跟清楚点{:3_234:}

别在我前边晃

百度知道  百度知道

心的幻想

路过、帮顶一个

china1982

[e].版本 2

.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 数据包, 文本型

.如果真 (键代码 ＝ #回车键)
    标签5.标题 ＝ “”
    连续赋值 (“”, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 文件名)
    数据 ＝ {  }
    编辑框1.内容 ＝ 到文本 (取绝对值 (到整数 (删全部空 (编辑框1.内容))))
    .如果真 (到整数 (编辑框1.内容) ＜ 1000)
        信息框 (“请输入QQ号码”, 0, )
        返回 ()
    .如果真结束
    .如果 (客户1.连接 (“app.dnf.qq.com”, 80) ＝ 真)
        文件名 ＝ 取运行目录 () ＋ “\” ＋ 编辑框1.内容 ＋ “.html”
        数据包 ＝ 子文本替换 (#数据包, “qq64161848制作”, 到文本 (取文本长度 (编辑框1.内容) ＋ 30), , , 真)
        数据包 ＝ 子文本替换 (数据包, “qq64161848”, 编辑框1.内容, , , 真)
        客户1.发送数据 (数据包)
    .否则
        信息框 (“连接失败，请检查域名与端口号”, 0, )

    .如果结束

    编辑框1.被选择字符数 ＝ -1


数据包的内容


POST /cgi-bin/act/a20080630fh/showinfo.cgi HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
Referer: http://app.dnf.qq.com/cgi-bin/act/a20080630fh/showinfo.cgi
Accept-Language: zh-cn
Content-Type: application/x-www-form-urlencoded
Content-Length: qq64161848制作
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
Host: app.dnf.qq.com
Cache-Control: no-cache
Cookie: pt2gguin=o0185251757; ptcz=5cc58e58a469ec2005d65ac46e04d091ebc043f8718e5283f83b17fb1ab8f8fb; pgv_pvid=2764104350; pgv_flv=10.0; pgv_r_cookie=108140627326; o_cookie=405841019; pvid=2764104350; icache=ELAFAECAC; adid=185251757; adSP=akilE4/dcWQfyNLcGcrARX6tpB5Cv4pjAxf2Z58L9zc=_7757_326830_1284648046_; adVer=3067; ac=1,034,

iUserqq=qq64161848&Submit2=%B2%E9+%D1%AF
[/e]

china1982

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

.子程序 _客户1_数据到达
.局部变量 数据包, 文本型
.局部变量 i1, 整数型
.局部变量 i2, 整数型

数据 ＝ 数据 ＋ 客户1.取回数据 ()
数据包 ＝ 到文本 (数据)
' -----------------------------------------------------------------
i1 ＝ 寻找文本 (数据包, “您所查询号码可正常进行游戏”, , 假)
.如果真 (i1 ≠ -1)
    标签5.标题 ＝ 编辑框1.内容 ＋ #换行符 ＋ “可正常进行游戏”
    返回 ()
.如果真结束
i1 ＝ 寻找文本 (数据包, “封停期限”, , 假)
.如果真 (i1 ＝ -1)
    返回 ()
.如果真结束
数据包 ＝ 取文本中间 (数据包, i1, 300)
调试输出 (数据包)
i1 ＝ 寻找文本 (数据包, “</td>”, , 假)
i1 ＝ 寻找文本 (数据包, “<td class=”, i1, 假)
i2 ＝ 寻找文本 (数据包, “</td>”, i1, 假)
编辑框4.内容 ＝ 取文本中间 (数据包, i1 ＋ 15, i2 － i1 － 15)
i1 ＝ 寻找文本 (数据包, “<td class=”, i2, 假)
i2 ＝ 寻找文本 (数据包, “</td>”, i1, 假)
编辑框2.内容 ＝ 取文本中间 (数据包, i1 ＋ 15, i2 － i1 － 15)
i1 ＝ 寻找文本 (数据包, “<td class=”, i2, 假)
i2 ＝ 寻找文本 (数据包, “<”, i1 ＋ 10, 假)
编辑框3.内容 ＝ 取文本中间 (数据包, i1 ＋ 15, i2 － i1 － 15)
[/e]

发错了这一段是截取的

ganzhijun

看看，路过下。

xb1314521