Question

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

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

Answer 1

手机号啊 我这有现成的 一会发给你
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

Answer 2

x = Lib.算法.随机数字串(9)
i = Lib.算法.随机数字串(1)
If i<5 Then
a=13
End If
If i>4 Then
a=18
End If
hm=a&x
MessageBox hm

追问

谢谢