按键精灵问题，下面脚本中为什么while循环会无限运行？定时器事件中的flag=0似乎没起作用？

Dim flag, i,j //定义标志位,定义事件间隔ms,定义次数变量
flag = 1
i = 5
j = 0
Event Form1.Load //初始化设置时间周期
Form1.Timer1.Enabled = False //默认定时器是启动状态，所以要先停止
Form1.Timer1.Interval = 3000 //设置定时器循环的间隔时间（单位：毫秒）
End Event

Event Form1.Timer1.Timer //定时器事件
Form1.Timer1.Enabled = False
flag=0
MessageBox "到时间了"
End Event

Form1.Timer1.Enabled = True

While flag=1
MoveTo 800,976 //x1,y1是A点屏幕坐标
LeftClick 1
j = j + 1
Delay i //t为时间，单位是毫秒，你可以根据实际设定
MoveTo 868,976 //x2,y2是A点屏幕坐标
LeftClick 1
j = j + 1
Delay i //t为时间，单位是毫秒，你可以根据实际设定
Wend

第一，在脚本不支持改变控件属性（老版本的按键精灵不支持这点，我不清楚新版本的支不支持，9.6以后的版本我都没用了，因为按键精灵越做越不好用）。所以，Form1.Timer1.Enabled = True 这一句可能是失效的。
第二，flag要定义环境变量，也就是：DimEnv flag

可以私聊我~