Question

按键精灵 现在录制了五个脚本 写到一个大的总脚本后 ，我想让启动这个脚本时随机运行其中一个脚本。

Answer 1

Do
TracePrint Int((5 - 1 + 1) * Rnd + 1)
If Int((5 - 1 + 1) * Rnd + 1) = 1 Then
Call a1
ElseIf Int((5 - 1 + 1) * Rnd + 1) = 2 Then
Call a2
ElseIf Int((5 - 1 + 1) * Rnd + 1) = 3 Then
Call a3
ElseIf Int((5 - 1 + 1) * Rnd + 1) = 4 Then
Call a4
ElseIf Int((5 - 1 + 1) * Rnd + 1) = 5 Then
Call a5
End If
Loop
Sub a1
//脚本1
End Sub
Sub a2
//脚本2
End Sub
Sub a3
//脚本3
End Sub
Sub a4
//脚本4
End Sub
Sub a5
//脚本5
End Sub
分别复制五个脚本源代码到子程序中，然后启动就行了，如果不需要循环把Do和Loop去掉就好了

追问

非常感谢你的回答,但是我发现每次启动脚本,随机数不是真正的随机,意思就是说每次启动脚本都是一样的顺序比如a1 a1 a2 a5 a4.....如何实现真正的随机 你的答案必然采纳

追答

子程序不用改，把前面的代码改为下面代码。
t1 = time
Do
a = Int((5 - 1 + 1) * Rnd + 1)
TracePrint a
Loop Until DateDiff("s",t1,time)>1
If a = 1 Then
Call a1
ElseIf a = 2 Then
Call a2
ElseIf a = 3 Then
Call a3
ElseIf a = 4 Then
Call a4
ElseIf a = 5 Then
Call a5
End If

Answer 2

5个脚本写成子程序 然后随机数