精易论坛

标题: 精确控制网页访问超时时间 [打印本页]

作者: sksksz    时间: 前天 18:53
标题: 精确控制网页访问超时时间
本帖最后由 sksksz 于 2025-6-15 18:59 编辑
  
子程序名返回值类型公开备 注
取同步计数整数型 
集同步计数 = 选择 (集同步计数 > 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].事件句柄
是否触发 = 真
跳出循环 ()

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



i支持库列表   支持库注释   
spec特殊功能支持库
EThread多线程支持库

列子.e (774.71 KB, 下载次数: 11, 售价: 3 枚 精币)