网页寻找文本

白栀

网址:http://blog.sina.com.cn/s/blog_746d13d801010d6k.html

参数1: 硬盘码 + 帐号
参数2:从网页查找到的帐号

也就是说,这是一个网络验证,程序运行的时候执行

参数1=参数2
信息框("验证成功")

否则失败

附上源码:(回答时请也附上源码)
非常感谢
5555.rar (1.58 KB, 下载次数: 39)

2012-1-12 14:07 上传

点击文件名下载附件

dkslel

白栀 发表于 2012-1-13 10:06
感谢帮忙,可是我试用之后更改了网页上的内容之后  验证就无效了,不知道什么原因

我代码里有两个编辑框有数据，那两个数据就是你要提取的内容的前面的网页代码和后面的网页代码，你试着修改下他们，
还有个问题需要跟你说，就是在截取数据的时候我直接过滤掉了10位以上的数据，所以如果你把内容加的太长的话需要去代码里将我的过滤的数据加大或者去掉的~~！

Mr.Yang

楼主做网络服务器?{:3_234:}

我最近也在研究

Mr.Yang

楼主 看看是不是这样的效果 例子.zip (106.33 KB, 下载次数: 79)

2012-1-12 15:04 上传

点击文件名下载附件

白栀

Mr.Yang 发表于 2012-1-12 15:04
楼主 看看是不是这样的效果

不是的  请下载我的源码然后修改....

Mr.Yang

白栀 发表于 2012-1-12 15:10
不是的  请下载我的源码然后修改....

{:3_236:}楼主..我直接告诉你吧..你这方法不行的

我本来也是用http读文本的__但是调试的时候发现 读出的全部文字都经过加密 全部是乱码 没办法判断的

补充内容 (2012-1-12 15:24):
还是建议用我那个吧__不会读出乱码 而且功能也符合你的要求

dkslel

已经用你的源码修改完成，代码都加了注释了，应该不难看懂。

yz.rar (90.83 KB, 下载次数: 43)

2012-1-12 19:36 上传

点击文件名下载附件 [e].版本 2[/e]

白栀

dkslel 发表于 2012-1-12 19:37
已经用你的源码修改完成，代码都加了注释了，应该不难看懂。

感谢帮忙,可是我试用之后更改了网页上的内容之后  验证就无效了,不知道什么原因

白栀

[e].版本 2.支持库 internet
.程序集 窗口程序集1.程序集变量 文本, 文本型.程序集变量 注册信息, 文本型.程序集变量 机器, 文本型.程序集变量 取到的文本, 文本型
.子程序 __启动窗口_创建完毕
文本 ＝ 到文本 (HTTP读文件 (“http://blog.sina.com.cn/s/blog_746d13d801010d6k.html”))编辑框2.内容 ＝ 文本编辑框1.内容 ＝ 到文本 (取硬盘特征字 ())编辑框6.内容 ＝ 标签_帐号.标题 ＋ 编辑框1.内容  ' 要验证的数据' 机器 ＝ 到文本 (取硬盘特征字 ())  ' 测试时机器码:5555
.子程序 _按钮1_被单击
' 如果 (寻找文本 (文本, 编辑框1.内容, , 假) ≠ -1)' 如果还不懂什么意思 可以Q我 17167944
文本_取中间_批量 (编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 验证, 假, 10, , , , )  ' 批量取中间文本保存到数组中变量1 ＝ 1  ' 循环用.计次循环首 (到整数 (取数组成员数 (验证)), 变量1)    .如果 (验证 [变量1] ＝ 编辑框6.内容)  ' 验证账号和硬盘特征字所组成的内容是否在取出的数据中出现        标签_状态.标题 ＝ “成功”  ' 编辑框5.内容 ＝ 到文本 (编辑框5.内容) ＋ 验证 [变量1] ＋ #换行符    .否则        标签_状态.标题 ＝ “**”    .如果结束
.计次循环尾 ()' 因为验证时用到的都是数字，在什么编码情况下都能显示出数字来，取网页中的文本时也没有中文标识出现，所以就没有必要转换编码了。
.子程序 _按钮2_被单击
标签_帐号.标题 ＝ 编辑框5.内容[/e]

白栀

dkslel 发表于 2012-1-13 10:11
我代码里有两个编辑框有数据，那两个数据就是你要提取的内容的前面的网页代码和后面的网页代码，你试着修 ...

成功了,我说那个10是什么意思呢 原来是过虑用的...谢谢  已经可用了!