按键精灵输入选样单脚本源码

运行环境：分辨率：1366×768 色深：32位 操作系统：Windows 7 Ultimate 按键精灵版本：9.33.11393

@v4xuan2012/10/25

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