| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 循环次数 | 整数型 | |
循环次数 ＝ 100
启动线程 (&子程序1, ,
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| i | 整数型 | | |
| 临时文本 | 文本型 | | |
| 当前页数 | 文本型 | | |
| 初始头 | 文本型 | | |
| 处理分割组 | 文本型 | | 0 |
计次循环首 (循环次数, i
)
初始头 ＝
“900000000”当前页数 ＝
到文本 (到整数 (初始头
) ＋ i
)文本_逐字分割 (当前页数, 处理分割组
)当前页数 ＝
“”计次循环首 (取数组成员数 (处理分割组
), i
)
如果真 (i ≠ 1
)当前页数 ＝ 当前页数 ＋ 处理分割组
[i
]
计次循环尾 ()调试输出 (当前页数
)临时文本 ＝
网页_访问U (“http://wgwsxx.cn/web/CommonA/UpgradeError.ashx?T=GUEI&ID=T” ＋ 当前页数
)调试输出 (临时文本
)计次循环尾 ()
判断循环首 (TID < 70000
)
TID ＝
取文本右边 (“00000” ＋
到文本 (TID
), 5
) http.
Auto ()http.
Open (“GET”,
“http://wgwsxx.cn/web/CommonA/UpgradeError.ashx”)http.
Send (“T=GUEI&ID=T000” ＋ TID
)返回文本 ＝ http.
GetResponseTextUtf8ToAnsi ()TID=TID+1
判断循环尾 ()