易语言精确控制网页访问超时时间源码

易语言精确控制网页访问超时时间源码

.版本 2
.支持库 spec
.支持库 EThread

.子程序 取同步计数, 整数型

集同步计数 ＝ 选择 (集同步计数 ＞ 100000, 1, 集同步计数 ＋ 1)
返回 (集同步计数)

.子程序 网页_访问_对象s, 字节集, 公开
.参数 访问网址, 文本型, , 完整的网页地址
.参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
.参数 提交信息, 文本型, 可空, POST专用自动UTF8编码
.参数 超时时间, 整数型, , 毫秒
.局部变量 i, 整数型
.局部变量 网页数据, 字节集
.局部变量 指针文本, 文本型
.局部变量 线程句柄, 整数型
.局部变量 等待结果, 逻辑型
.局部变量 事件句柄, 整数型
.局部变量 同步键值, 数据类型_同步键值
.局部变量 超时, 整数型

超时 ＝ 选择 (超时时间 ＜ 100, 100, 超时时间)
事件句柄 ＝ 事件_创建 ()
集临界许可.进入 ()
同步键值.同步编号 ＝ 取同步计数 ()
同步键值.事件句柄 ＝ 事件句柄
加入成员 (集同步键值, 同步键值)
集临界许可.退出 ()
指针文本 ＝ 到文本 (同步键值.同步编号)
指针文本 ＝ 指针文本 ＋ “#” ＋ 到文本 (取变量数据地址 (访问网址))
指针文本 ＝ 指针文本 ＋ “#” ＋ 到文本 (取变量数据地址 (访问方式))
指针文本 ＝ 指针文本 ＋ “#” ＋ 到文本 (取变量数据地址 (提交信息))
启动线程 (&网页访问内部线程, 取变量数据地址 (指针文本), 线程句柄)
等待结果 ＝ 事件_等待进入 (事件句柄, 超时)
集临界许可.进入 ()
.计次循环首 (取数组成员数 (集同步键值), i)
    .如果真 (同步键值.同步编号 ＝ 集同步键值 <i>.同步编号)
        网页数据 ＝ 集同步键值 <i>.同步数据
        删除成员 (集同步键值, i, 1)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
集临界许可.退出 ()
事件_销毁 (同步键值.事件句柄)
返回 (网页数据)

.子程序 网页访问内部线程
.参数 参数指针, 整数型
.局部变量 i, 整数型
.局部变量 指针文本, 文本型
.局部变量 指针数组, 文本型, , "0"
.局部变量 访问网址, 文本型
.局部变量 访问方式, 整数型, , , 0=GET 1=POST 
.局部变量 提交信息, 文本型
.局部变量 网页数据, 字节集
.局部变量 同步编号, 整数型
.局部变量 事件句柄, 整数型
.局部变量 是否触发, 逻辑型

指针文本 ＝ 指针到文本 (参数指针)
指针数组 ＝ 分割文本 (指针文本, “#”, )
.如果真 (取数组成员数 (指针数组) ≥ 4)
    同步编号 ＝ 到整数 (指针数组 [1])
    访问网址 ＝ 指针到文本 (到整数 (指针数组 [2]))
    访问方式 ＝ 指针到整数 (到整数 (指针数组 [3]))
    提交信息 ＝ 指针到文本 (到整数 (指针数组 [4]))
    网页数据 ＝ 网页_访问_对象 (访问网址, 访问方式, 提交信息)
    集临界许可.进入 ()
    .计次循环首 (取数组成员数 (集同步键值), i)
        .如果真 (同步编号 ＝ 集同步键值 <i>.同步编号)
            集同步键值 <i>.同步数据 ＝ 网页数据
            事件句柄 ＝ 集同步键值 <i>.事件句柄
            是否触发 ＝ 真
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    集临界许可.退出 ()
    .如果真 (是否触发)
        事件_触发 (事件句柄)
    .如果真结束

.如果真结束

@sksksz