看看行不- randomize
- dim i,Vigi
- for i = 1 to 16
- Vigi = Vigi & cals(int(rnd*(36)))
- next
- function cals(x)
- if x<10 then
- cals=x
- else
- cals=chr(x+87)
- end if
- end function
- Set fs=createobject("scripting.filesystemobject")
- set read=fs.opentextfile("1.txt",1)
- dim txt
- txt=read.readall
- read.close
- set write=fs.opentextfile("1.txt",2)
- write.writeline txt
- write.write Vigi
- write.close
| 
发表于 2010-9-2 16:35
| 