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

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

运行环境：分辨率：1366x768 色深：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