请教 终止For循环的问题

傻娃

————————————————————————————————————
HotKeySet("{F2}", "用快捷键终止下面的循环")
Run('NOTEPAD.exe')
kaishi()
Func kaishi()
$val = 1  
For $i = 1 To 200
        $doubled =MyDouble($val)
        Sleep(500)
        Send($doubled,0)
        Send('{enter}')
        $val = $doubled
Next
EndFunc
Exit

Func MyDouble($value)
     $value = $value + 1
     Return $value
EndFunc
————————————————————————————

[ 本帖最后由 傻娃 于 2008-10-14 11:41 编辑 ]

78391493

HotKeySet("{F2}", "End")

liongodmien

HotKeySet("{F2}", "ExitProgram")
Run('NOTEPAD.exe')
kaishi()
Func kaishi()
$val = 1  
For $i = 1 To 200 
        $doubled =MyDouble($val)
        Sleep(500)
        Send($doubled,0)
        Send('{enter}')
        $val = $doubled
Next
EndFunc
Exit

Func MyDouble($value)
     $value = $value + 1 
     Return $value
EndFunc

Func ExitProgram()
        Exit
EndFunc