关于一个按键精灵的问题，请高手回答！

Split 函数

描述

返回基于 0 的一维数组，其中包含指定数目的子字符串。

语法

Split(expression[, delimiter[, count[, start]]])

Split 函数的语法有以下参数：

参数	描述
expression	必选。字符串表达式，包含子字符串和分隔符。如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。
delimiter	可选。用于标识子字符串界限的字符。如果省略，使用空格 ("") 作为分隔符。如果 delimiter 为零长度字符串，则返回包含整个 expression 字符串的单元素数组。
count	可选。被返回的子字符串数目，-1 指示返回所有子字符串。
compare	可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。

设置

compare 参数可以有以下值：

常数	值	描述
vbBinaryCompare	0	执行二进制比较。
vbTextCompare	1	执行文本比较。

说明

下面的示例利用 Split 函数从字符串中返回数组。函数对分界符进行文本比较，返回所有的子字符串。

Dim MyString, MyArray
MyString = Split("VBScriptXisXfun!"， "x"， -1，1）
' MyString(0) 包含"VBScript"。
' MyString(1) 包含"is"。
' MyString(2) 包含 "fun!"。

这是按键精灵里面的解释

按键的变量一般不用专门定义 初始赋值的时候会自动定义为最适合的变量 

你的语句大概如下: 

a=0 

a=a+1 

 

if a= 1 then  

 

else 

(在语义上这里已经包括了a=2的情况) 

end if 

if a=2 then 

 

else 

 

end if

扩展资料

按键精灵是一款模拟鼠标键盘动作的软件。通过制作脚本，可以让按键精灵代替双手，自动执行一系列鼠标键盘动作。

按键精灵简单易用，不需要任何编程知识就可以作出功能强大的脚本。只要在电脑前用双手可以完成的动作，按键精灵都可以替代完成。

1网络游戏中可使用按键精灵制作脚本，实现自动打怪，自动补血，自动说话等;

2办公族可用按键精灵自动处理表格间数据的转换，自动调整文档格式、文章排版，自动收发邮件等;

3利用按键精灵实现定时自动打开检验网页链接，文献检索，收集资料等重复 *** 作;

4任何只要在电脑前用双手可以完成的电脑 *** 作都可以替完成。

asc，就是获取字符的ascii码（在有ascii码就会获取，如果后面是字符串，那么就获取第一个字符的ascii码），0的ascii码就是48，这是正确的。更改之后要点击保存设置才生效，具体例子按键精灵自带例子脚本有。不建议用自定义变量方法做，按键精灵9已经有界面 *** 作了，比自定义变量方便很多，灵活很多。自定义变量是以前按键精灵9以下的版本保留的功能，按键精灵9出来后，可以说自定义变量已经淘汰了。

函数简介:
在屏幕范围(x1,y1,x2,y2)内,查找string(可以是任意个字符串的组合),并返回符合color_format的坐标位置,相似度sim同Ocr接口描述
(多色,差色查找类似于Ocr接口,不再重述)
函数原型:
long FindStr(x1,y1,x2,y2,string,color_format,sim,intX,intY)
参数定义:
x1:区域的左上X坐标
y1:区域的左上Y坐标
x2:区域的右下X坐标
y2:区域的右下Y坐标
string:待查找的字符串,可以是字符串组合，比如"长安|洛阳|大雁塔",中间用"|"来分割字符串
color_format:颜色格式串
sim:相似度,取值范围01-10
intX:返回X坐标 没找到返回-1
intY:返回Y坐标 没找到返回-1

Dim n,i,j
n = 1
i = ""
j=""
While n <= 60 Randomize
a = Int(60 Rnd + 1)
If Instr(i,Chr(a)) = 0 Then
i = i & Chr(a)
j=j & a &","
n=n+1
End If
Wend
MessageBox j
以上代码是随机生成不重复的60内数字，然后每个数字你自己对应一种你的粘贴内容即可！
或者用下面这个
//功能：随机抽取预设的说话内容且不重复的说出来
dim i,s,a,n,text(100)
//初始化随机数发生器
Randomize
//这只是个范例，在实际应用中最好将要说的话用外部文件保存，将读到的字符串再赋值到数组就方便多了
text(0)="第一句话"
text(1)="第二句话"
text(2)="第三句话"
text(3)="第四句话"
text(4)="第五句话"
text(5)="第六句话"
i=1:s=0
//UBound(text):得到数组最大有效下标
For UBound(text)
//如果数组变量没内容，则跳出循环
If text(i)=""
Goto 开始说话
EndIf
//将可用数组下标组成一个字符串
s=s&i
i=i+1
EndFor
Rem 开始说话
//取下标字符串长度
n=Len(s)
//如果长度为0（即说完所有的话了）结束脚本
If n=0
Goto over
EndIf
//在下标字符串中随机抽取一个字符
a=Mid(s,int((n)Rnd)+1,1)
//移除下标字符串中抽取到的字符（将说过的话T掉）
s=Replace(s,a,"")
SayExpression (text(a)&vbCr)
Rem over
EndScript

随机输出12码英文及数字 提供按键精灵687版，范例脚本参考如下： z = Split("A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 1 2 3 4 5 6 7 8 9"
" ") Randomize Delay 1000 For 12 乱数取码 Code12 = Code12 & z(Int(Rnd35)) EndFor 输出12码 SayString Code12
参考: myblogyahoo/jw!58NOiOKVHxrR1avJna0ZWLs-

---