说明
- 每次单次打印时可随机输出数字或字母
- 数字、字母、字符串长度可自行修改调整
完整VB代码（8位自定义随机串）
1
2
3
4
5
6
7
8
9
Dim charList,s,i,c
charList = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
s=""
Rnd(- Timer * Rnd() * Rnd() * Rnd())
For i=1 To 8
c = Int(Rnd() * Len(charList)) + 1
s = s & Mid(charList,c,1)
Next
Value = s
使用方法
- 在BarTender中新建文本对象，数据源选择「Visual Basic脚本」
- 粘贴上方代码
- 调整数组下标可修改总位数，打印时每次自动生成不重复随机字符串