Dim a,b, i, n, x

a = InputBox("请输入起始色号", "提示","" )

i = InputBox("请输入终止色号", "提示", "")
n=i-a+1
For n
SayString a

KeyPress "Enter", 1

KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1

x = Plugin.Sys.GetCLB()
b= cstr(a)

If b <> x Then 
     EndScript
End If


KeyPress "Enter", 4
a = a + 1
Next