一键收集网络图标的新方法易语言实现

123

1. .版本 2
   
2. .支持库 internet
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. 
   
7. .子程序 __启动窗口_创建完毕
   
8. .局部变量 域名, 文本型
   
9. .局部变量 计数, 整数型
   
10. .局部变量 图标数据, 字节集
    
11. .局部变量 开始
    
12. .局部变量 结束
    
13. .局部变量 命令行, 文本型, , "0"
    
14. .局部变量 后缀, 文本型
    
15. 
    
16. ' 自动采集数字域名的 favicon.ico 图标文件，采集完成检测有效后自动保存，字母域名请自行修改。
    
17. ' 第一简易互联网席卷神器来袭，没有任何危害，建议多进程启动同时采集并且携带指定的参数可加快采集速度。
    
18. 可视 ＝ 假
    
19. 取命令行 (命令行)
    
20. 开始 ＝ 到整数 (命令行 [1])  ' 数字域名开始数
    
21. 结束 ＝ 到整数 (命令行 [2])  ' 数字域名结束数
    
22. 后缀 ＝ 命令行 [3]  ' 域名后缀 不带点的
    
23. 创建目录 (“favicon”)
    
24. 创建目录 (“favicon\” ＋ 后缀)
    
25. .变量循环首 (开始, 结束, 1, 计数)
    
26.     域名 ＝ 到文本 (计数)
    
27.     .如果真 (文件是否存在 (“favicon\” ＋ 后缀 ＋ “\” ＋ 域名 ＋ “.ico”) ＝ 假)
    
28.         图标数据 ＝ HTTP读文件 (“http://” ＋ 域名 ＋ “.” ＋ 后缀 ＋ “/favicon.ico”)
    
29.         .如果 (取字节集左边 (图标数据, 1) ＝ { 0 })  ' 图标数据有效检测
    
30.             .判断循环首 (写到文件 (“favicon\” ＋ 后缀 ＋ “\” ＋ 域名 ＋ “.ico”, 图标数据) ＝ 假)
    
31.                 延时 (1000)
    
32.             .判断循环尾 ()
    
33.             调试输出 (域名 ＋ “ 成功！”)
    
34.         .否则
    
35.             调试输出 (域名 ＋ “ 无效！”)
    
36.         .如果结束
    
37. 
    
38. 
    
39.     .如果真结束
    
40. 
    
41. .变量循环尾 ()
    
42. 结束 ()
    
43. 
    
44. 
    

复制代码

Cute

看看是如何收集的:lol

1051496412

一键收集.....看看是文件拓展图标还是logo

Kuni7wa

传说中的ICO就这玩意的吧。

主人

应该会大量请求dns什么的吧唧

a365326

看看是如何收集的:lol

1心1亿

我来看看

吃货

朵朵

Cute 发表于 2017-6-17 08:13
看看是如何收集的:lol

管理员不是免回复可见的么?

Cute

朵朵 发表于 2020-9-6 23:49
管理员不是免回复可见的么?

当初我还没当上管理员噢