按键精灵GOTO使用方法(新旧对比).doc

按键精灵GOTO使用方法（新旧对比）
【第一种】无限往前跳，可改成无限循环写法
=============原写法=============
Rem 开始
//中间可能有很多很多代码
Goto 开始
=============按键精灵GOTO使用方法（新旧对比）
【第一种】无限往前跳，可改成无限循环写法
=============原写法=============
Rem 开始
//中间可能有很多很多代码
Goto 开始
=============新写法=============
Do
//中间可能有很多很多代码
Loop
【第二种】满足i=1条件时往前跳，可改成多加一层循环
=============原写法=============
Dim i
Rem 开始
//中间可能有很多很多代码
If i = 1 Then
Goto 开始
End If
=============新写法=============
Dim i
Do
//中间可能有很多很多代码
If i <> 1 Then
Exit do
End If
Loop
【第三种】满足i=1条件时往后跳，可改成多加一层循环
=============原写法=============
Dim i
If i = 1 Then
Goto 结束
End If
//中间可能有很多很多代码
Rem 结束
=============新写法=============
Dim i
Do
If i <> 1 Then
Exit do
End If
//中间可能有很多很多代码
Exit do
Loop
【第四种】循环内往前跳到循环外，可多设置一层循环利用一个判断变量连续跳出
=============原写法=============
Dim intX,intY
rem 从头开始
//中间可能有很多很多代码
For 3
FindPic 0,0,1080,1920,"Attachment:",0,,intX,intY
If intX > -1 Then
goto 从头开始
End If
Delay 1000
Next
=============新写法=============
Dim intX,intY,判断变量
Do
//中间可能有很多很多代码
判断变量 = 0
For 3
FindPic 0,0,1080,1920,"Attachment:",0,,intX,intY
If intX > -1 Then
判断变量 = 1
Exit For
End If
Delay 1000
Next
If 判断变量 = 0 Then Exit Do
Lo