Private Sub Form_Load()

On Error Resume Next

Kill "C:\RHN.txt"

Randomize

Dim Temp As String, i As Byte, i_ As Byte, Num As String

Open "C:\RHN.txt" For Append As #1 "這個C:\RHN.txt是文字文件的路徑

For i = 1 To 100 "執行100次

Num = ""

For i_ = 1 To 63 "生成64位隨機數

Num = Hex(CByte(Rnd * 15)) & Num

Next

Print #1, Num

Next

Close #1

CreateObject("Shell.Application").Open "C:\RHN.txt"

End Sub