集同步计数 =
选择 (集同步计数 > 100000, 1, 集同步计数 + 1
)返回 (集同步计数
)|
网页_访问_对象s | 字节集 | |
|
访问网址 | 文本型 | | | |
访问方式 | 整数型 | | | | 提交信息 | 文本型 | | | | 超时时间 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
i | 整数型 | | |
网页数据 | 字节集 | | |
指针文本 | 文本型 | | |
线程句柄 | 整数型 | | |
等待结果 | 逻辑型 | | |
事件句柄 | 整数型 | | |
同步键值 | 数据类型_同步键值 | | |
超时 | 整数型 | | |
超时 =
选择 (超时时间 < 100, 100, 超时时间
)事件句柄 =
事件_创建 ()集临界许可.
进入 ()同步键值.同步编号 =
取同步计数 ()同步键值.事件句柄 = 事件句柄
加入成员 (集同步键值, 同步键值
)集临界许可.
退出 ()指针文本 =
到文本 (同步键值.同步编号
)指针文本 = 指针文本 +
“#” +
到文本 (取变量数据地址 (访问网址
))
指针文本 = 指针文本 +
“#” +
到文本 (取变量数据地址 (访问方式
))
指针文本 = 指针文本 +
“#” +
到文本 (取变量数据地址 (提交信息
))
启动线程 (&网页访问内部线程,
取变量数据地址 (指针文本
), 线程句柄
)等待结果 =
事件_等待进入 (事件句柄, 超时
)集临界许可.
进入 ()
计次循环首 (取数组成员数 (集同步键值
), i
)
如果真 (同步键值.同步编号 = 集同步键值
[i
].同步编号
)

网页数据 = 集同步键值
[i
].同步数据

删除成员 (集同步键值, i, 1
)
跳出循环 ()

计次循环尾 ()集临界许可.
退出 ()事件_销毁 (同步键值.事件句柄
)返回 (网页数据
)变量名 | 类 型 | 静态 | 数组 | 备 注 |
i | 整数型 | | |
指针文本 | 文本型 | | |
指针数组 | 文本型 | | 0 |
访问网址 | 文本型 | | |
访问方式 | 整数型 | | |
提交信息 | 文本型 | | |
网页数据 | 字节集 | | |
同步编号 | 整数型 | | |
事件句柄 | 整数型 | | |
是否触发 | 逻辑型 | | |
指针文本 =
指针到文本 (参数指针
)指针数组 =
分割文本 (指针文本,
“#”,
)
如果真 (取数组成员数 (指针数组
) ≥ 4
)
同步编号 =
到整数 (指针数组
[1
])
访问网址 =
指针到文本 (到整数 (指针数组
[2
]))

访问方式 =
指针到整数 (到整数 (指针数组
[3
]))

提交信息 =
指针到文本 (到整数 (指针数组
[4
]))

网页数据 =
网页_访问_对象 (访问网址, 访问方式, 提交信息
)
集临界许可.
进入 ()
计次循环首 (取数组成员数 (集同步键值
), i
)

如果真 (同步编号 = 集同步键值
[i
].同步编号
)


集同步键值
[i
].同步数据 = 网页数据



事件句柄 = 集同步键值
[i
].事件句柄



是否触发 = 真


跳出循环 ()



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

