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