如何在批量访问网页判断网页是否是我需要访问

skykyx

跪求各位大佬帮忙解决   如何在批量访问网页判断网页是否访问成功  是否是我需要访问的页面  并把不是的网址记录在另外一个编辑窗口 或导出文本   下面是代码 有大佬帮忙修改下？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
跳出	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

跳出 ＝ 假
启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
h	文本型		0
s	整数型
运行	整数型
计次	整数型

h ＝ 分割文本 (编辑框1.内容, #换行符, )
s ＝ 取数组成员数 (h)
计次循环首 (s, 计次)
如果真 (跳出 ＝ 真)
跳出循环 ()
运行 (“explorer ” ＋ “http://” ＋ h [s], 假, )
s ＝ s － 1
调试输出 ()
延时 (到整数 (编辑框2.内容))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮3_被单击

跳出 ＝ 真

子程序名	返回值类型	公开	备 注
_按钮2_被单击

通用对话框1.文件名 ＝ 取运行目录 ()
通用对话框1.打开 ()
编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))

子程序名	返回值类型	公开	备 注
调试输出

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 跳出, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 跳出 ＝ 假<br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 h, 文本型, , "0"<br /> .局部变量 s, 整数型<br /> .局部变量 运行, 整数型<br /> .局部变量 计次, 整数型<br /> <br /> <br /> h ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> s ＝ 取数组成员数 (h)<br /> .计次循环首 (s, 计次)<br />     .如果真 (跳出 ＝ 真)<br />         跳出循环 ()<br />     .如果真结束<br />     运行 (“explorer ” ＋ “http://” ＋ h <strike>, 假, )<br />     s ＝ s － 1<br />     调试输出 ()<br />     延时 (到整数 (编辑框2.内容))<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 跳出 ＝ 真<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 通用对话框1.文件名 ＝ 取运行目录 ()<br /> 通用对话框1.打开 ()<br /> 编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))<br /> <br /> .子程序 调试输出

指尖流淌

1111.rar (424.21 KB, 下载次数: 18)

2019-6-24 10:20 上传

点击文件名下载附件 看看是不是你要的

skykyx

yb1984724 发表于 2019-6-24 10:20
看看是不是你要的

不行 下载下来不行显示文件错误  能直接上源码？ 谢谢

补充内容 (2019-6-26 12:31):
可以了 是我rar的问题     运行不起来   不大懂哪里不对   就没看到是不是我想要的了

指尖流淌

skykyx 发表于 2019-6-26 12:15
不行 下载下来不行显示文件错误  能直接上源码？ 谢谢

补充内容 (2019-6-26 12:31):

11.rar (421.76 KB, 下载次数: 6)

2019-6-30 15:13 上传

点击文件名下载附件 ,忘记了，用了多线程，线程中用编辑框组件要用许可，不然会崩溃的，现在加上了

skykyx

yb1984724 发表于 2019-6-30 15:14
,忘记了，用了多线程，线程中用编辑框组件要用许可，不然会崩溃的，现在加上了

错误(10002): 指定子程序或类方法名称“调试输出”未找到。
运行显示这个  不懂什么原因 求大佬解决下  感谢

补充内容 (2019-6-30 17:04):
错误(10041): 调用子程序“调试输出”时传递了过多的参数。
添加了调试输出 出现了这个  

指尖流淌

skykyx 发表于 2019-6-30 17:01
错误(10002): 指定子程序或类方法名称“调试输出”未找到。
运行显示这个  不懂什么原因 求大佬解决下   ...

调试输出  是易语言自带的特殊功能支持库里面的命令，你看看你启用这个支持库了没

skykyx

yb1984724 发表于 2019-6-30 20:36
调试输出  是易语言自带的特殊功能支持库里面的命令，你看看你启用这个支持库了没

我全勾选了   说参数过多   这个能不能说弄成调用系统的自带浏览器浏览网页判断  

补充内容 (2019-7-1 14:46):
我吧成功  跟失败 后面那些内容去掉就可以  但感觉还是会差什么