易语言网页打开检测速度源码

.版本 2
.支持库 internet

.程序集 窗口程序集_启动窗口
.程序集变量 网址, 文本型, , "5"

.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 time

网址 ＝ { “www.baidu.com”, “www.qq.com”, “www.eyuyan.com”, “www.3600gz.cn”, “www.xxxxxx.com” }
标签1.是否自动折行 ＝ 真
标签1.标题 ＝ “”
.计次循环首 (取数组成员数 (网址), a)
    time ＝ 取启动时间 ()  ' 启动时间
    ' 调试输出 (取字节集长度 (HTTP读文件 (“http://” ＋ 网址 [a] ＋ “/”)))
    .判断开始 (取字节集长度 (HTTP读文件 (“http://” ＋ 网址 [a] ＋ “/”)) ＞ 1500)  ' 表示返回成功页面数据
        标签1.标题 ＝ 标签1.标题 ＋ 到文本 (a) ＋ “·” ＋ 网址 [a] ＋ “           共用时间：” ＋ 到文本 (取启动时间 () － time) ＋ “毫秒” ＋ #换行符
    .默认
        标签1.标题 ＝ 标签1.标题 ＋ 到文本 (a) ＋ “·” ＋ 网址 [a] ＋ “      访问超时！用时：” ＋ 到文本 (取启动时间 () － time) ＋ “ms” ＋ #换行符
    .判断结束
    处理事件 ()
.计次循环尾 ()