我想用按键精灵实现输入11位不重复随机号码，以13或18开头后面9位随便，怎么弄？我弄的随机数很容

手机号啊 我这有现成的 一会发给你

RunApp "notepad.exe"

dim a(10)

a(0)="138":a(1)="139":a(2)="150":a(3)="151":a(4)="187"

a(5)="186"

a(6)="135"

a(7)="188"

a(8)="134"

a(9)="137"

Dim b(10)

b(0)="1234"

b(1)="3456"

b(2)="4567"

b(3)="6789"

b(4)="7890"

b(5)="6655"

b(6)="5544"

b(7)="4433"

b(8)="3322"

a(9)="2211"

For 20

Randomize

m = lib.算法.随机数字串(4)

x = 7 * rnd

y = 5 * rnd

MessageBox x

MessageBox y

SJ = a(x)&b(y)&m

SayString SJ

KeyPress "Enter", 1

Delay 500

Next