求大神帮帮忙写循环源码，自己写的运行直接卡死

紫萱宝宝OoO

哪位大神帮帮忙，帮我循环写下，我自己写的，运行了软件就直接卡死，试了一下午都不行，拜托了
软件原理功能如下：
1，点“登陆后台”按钮后，超文本浏览框会根据编辑框1、2、3、4输入的内容自动登陆后台。
2，点“开始采集”后，超文本浏览框地址转到“采集地址1”，延时10分钟后，超文本浏览框地址转到“采集地址2”，延时10分钟地址转到“采集地址3”，一直到“采集地址6”，延时10分钟后，再次“登陆后台”（防止中途后台掉线，所以再重新登陆下保险一点），再继续采集1-6的地址，如此循环，直到点击“停止采集”，程序停止。

第1点的登陆我已经写好了，希望哪位大神帮我第2点循环写下，谢了，写好了，麻烦直接发我邮箱，99633700@qq.com 告诉我你的精易账号，我好给分

精“易”求精

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

时钟1.时钟周期 ＝ 10000
启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

判断循环首 (真)
登陆.初始化 (超文本浏览框2.取窗口句柄 ())
超文本浏览框2.地址 ＝ 编辑框5.内容
延时 (1000)
登陆.初始化 (超文本浏览框3.取窗口句柄 ())
超文本浏览框3.地址 ＝ 编辑框6.内容
延时 (1000)
登陆.初始化 (超文本浏览框4.取窗口句柄 ())
超文本浏览框4.地址 ＝ 编辑框7.内容
延时 (1000)
登陆.初始化 (超文本浏览框5.取窗口句柄 ())
超文本浏览框5.地址 ＝ 编辑框8.内容
延时 (1000)
登陆.初始化 (超文本浏览框6.取窗口句柄 ())
超文本浏览框6.地址 ＝ 编辑框9.内容
延时 (1000)
登陆.初始化 (超文本浏览框7.取窗口句柄 ())
超文本浏览框7.地址 ＝ 编辑框10.内容
延时 (1000)
延时 (60 × 60 × 1000)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 时钟1.时钟周期 ＝ 10000<br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> <br /> .判断循环首 (真)<br />     登陆.初始化 (超文本浏览框2.取窗口句柄 ())<br />     超文本浏览框2.地址 ＝ 编辑框5.内容<br />     延时 (1000)<br />     登陆.初始化 (超文本浏览框3.取窗口句柄 ())<br />     超文本浏览框3.地址 ＝ 编辑框6.内容<br />     延时 (1000)<br />     登陆.初始化 (超文本浏览框4.取窗口句柄 ())<br />     超文本浏览框4.地址 ＝ 编辑框7.内容<br />     延时 (1000)<br />     登陆.初始化 (超文本浏览框5.取窗口句柄 ())<br />     超文本浏览框5.地址 ＝ 编辑框8.内容<br />     延时 (1000)<br />     登陆.初始化 (超文本浏览框6.取窗口句柄 ())<br />     超文本浏览框6.地址 ＝ 编辑框9.内容<br />     延时 (1000)<br />     登陆.初始化 (超文本浏览框7.取窗口句柄 ())<br />     超文本浏览框7.地址 ＝ 编辑框10.内容<br />     延时 (1000)<br />     延时 (60 × 60 × 1000)<br /> .判断循环尾 ()

木小果

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_窗口1
   
4. .程序集变量 死循环, 逻辑型
   
5. 
   
6. .子程序 _窗口1_创建完毕
   
7. 
   
8. .判断循环首 (死循环 ≠ 真)
   
9.     标题 ＝ 到文本 (到整数 (标题) ＋ 1)
   
10. .判断循环尾 ()
    

复制代码

紫萱宝宝OoO

.版本 2
.支持库 HtmlView

.子程序 _按钮2_被单击


时钟1.时钟周期 ＝ 10000
登陆.初始化 (超文本浏览框2.取窗口句柄 ())
超文本浏览框2.地址 ＝ 编辑框5.内容
延时 (1000)

登陆.初始化 (超文本浏览框3.取窗口句柄 ())
超文本浏览框3.地址 ＝ 编辑框6.内容
延时 (1000)

登陆.初始化 (超文本浏览框4.取窗口句柄 ())
超文本浏览框4.地址 ＝ 编辑框7.内容
延时 (1000)

登陆.初始化 (超文本浏览框5.取窗口句柄 ())
超文本浏览框5.地址 ＝ 编辑框8.内容
延时 (1000)

登陆.初始化 (超文本浏览框6.取窗口句柄 ())
超文本浏览框6.地址 ＝ 编辑框9.内容
延时 (1000)

登陆.初始化 (超文本浏览框7.取窗口句柄 ())
超文本浏览框7.地址 ＝ 编辑框10.内容
延时 (1000)


代码我重新写过了，就是想把上面的这段代码每个一小时自动运行一次，怎么用循环写？谢谢各位大神，最好贴出代码