Sub Main()
On Error Resume Next
MkDir App.Path & "\data\"
Dim i As Integer
Randomize
On Error Resume Next
For i = 1 To 1000
Open App.Path & "\data\" & EnCode(Format(Now, "yyyymmdd")) & CStr(i) & ".dll" For Random As 1
DoEvents
Put #1, Int((i * Rnd) * 10000 + 1), EnCode(Format(Int((i * Rnd) + 1) * 1000000, "0000000"))
Close #1
Next
End
End Sub
发表评论