VBS生成隨機的16進制的密碼

Dim jnkcD,jnkcNum,aKey Set JnkcD = CreateObject("Scripting.Dictionary") Randomize Do Until JnkcD.Count = 10 jnkcNum = UCase(Hex(Int(60000*Rnd+5000)) & Hex(Int(60000*Rnd+5000))) If Not JnkcD.Exists(jnk

>>阅读原文<<