'先產生一個4位數的隨機碼
ychar="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
yc=split(ychar,",")
ynum=4'這裡的隨機碼位數可改
for i=1 to ynum
Randomize
ycode=ycode&yc(Int((35*Rnd)))
next
'將隨機碼顯示到特定位置，再在表單中使用一隱藏文本框，將初始值設為該隨機碼
然後獲取用戶的用戶名、密碼、填寫的隨機碼，至於用戶名和密碼的驗證自己搞定吧，獲取的隨機碼和隱藏框中的隨機碼不一致則報錯即可。
