求指出程序无法结束的问题，帮我优化一下

lovapost

红包.rar (121.81 KB, 下载次数: 0)

2013-11-29 13:45 上传

点击文件名下载附件

代码如下

[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 普通填表, 普通填表
.程序集变量 句柄, 整数型
.程序集变量 i, 整数型

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

句柄 ＝ 功能_取句柄 ()
调试输出 (句柄)
.如果 (句柄 ≠ 0)
窗口_置位置和大小 (句柄, , , 600, 360)
普通填表.初始化 (句柄)
标签1.标题 ＝ “找到句柄：” ＋ 到文本 (句柄)
.否则
标签1.标题 ＝ “找不到IE句柄”
.如果结束
普通填表.网页_缩放 (50)
普通填表.网页_跳转 (“http://www.taobao.com/go/market/2013/1212/nanren.php?scm=1217.1212.20.1”)

.子程序 功能_取句柄, 整数型, , 本子程序采用【精易编程助手】生成,成功返回窗口句柄,失败返回0
.局部变量 局_1级句柄, 整数型

局_1级句柄 ＝ 窗口_取句柄 (, , “IEFrame”, )
.如果真 (局_1级句柄 ＝ -1)
返回 (0)
.如果真结束
返回 (局_1级句柄)

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

' 时钟1.时钟周期 ＝ 到数值 (编辑框1.内容) × 1000

.子程序 __启动窗口_创建完毕

窗口_热键注册 (_启动窗口.取窗口句柄 (), , #F3键, &_按钮3_被单击, “启动热键”)
窗口_热键注册 (_启动窗口.取窗口句柄 (), , #F4键, &_按钮4_被单击, “停止热键”)

i ＝ 0

.子程序 __启动窗口_将被销毁

窗口_热键卸载所有 (_启动窗口.取窗口句柄 ())

.子程序 循环抢购

.判断循环首 (i ＝ 1)
普通填表.DIV_点击 (“tbc-lottery-trigger J_LotteryWheelTrigger”)
延时 (200)
普通填表.SPAN_点击 (“tbc-lottery-button J_TBC_LotteryPopupHide”)
延时 (200)
.判断循环尾 ()

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

.如果 (普通填表.初始化 (句柄) ＝ 真)
_启动窗口.标题 ＝ “抢ing····”
i ＝ 1
循环抢购 ()
.否则
信息框 (“请先初始化”, 0, )
.如果结束


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

i ＝ 0


[/e]

叛蓝

[e]
.版本 2

.子程序 循环抢购

.判断循环首 (i ＝ 1)
    .如果真 (i ＝ 0)
        跳出循环 ()
    .如果真结束
    普通填表.DIV_点击 (“tbc-lottery-trigger J_LotteryWheelTrigger”)
    延时 (200)
    普通填表.SPAN_点击 (“tbc-lottery-button J_TBC_LotteryPopupHide”)
    延时 (200)
.判断循环尾 ()
[/e]

lovapost

就是实现“点击抽奖”跟结果弹出窗口的“确定”的循环点击操作- -

lovapost

叛蓝 发表于 2013-11-29 16:09
[e]
.版本 2

谢谢·······················