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
Close #1
CreateObject("Shell.Application").Open "C:\RHN.txt"
End Sub
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