//清空随机种子数
Rem start
VBS Randomize
//得到 1~99999999 之间的一个随机数
VBS x = Int((99999999 * Rnd) + 1)
//判断这个数字是否8位数字，如果不是8位数字，就重新生成
If x<10000000
    Goto start
EndIf 
SayExpression x93958246