인증키 필드명을 install -> install2 로 변경 함

This commit is contained in:
Chikyun
2019-05-05 22:26:52 +09:00
parent 0092b91c29
commit 68bc910efd

View File

@@ -24,11 +24,11 @@
Return True Return True
End Function End Function
Public Sub SetAuth(ByVal Newkey As String, ByVal Fn As String) Public Sub SetAuth(ByVal Newkey As Long, ByVal Fn As String)
Dim auth As New ARINCLASS Dim auth As New ARINCLASS
Dim Arinini As New MyINI(Fn) Dim Arinini As New MyINI(Fn)
Arinini.Write("main", "install", Newkey) Arinini.Write("main", "install2", Newkey)
Arinini.Write("main", "installkey", Newkey.GetHashCode) Arinini.Write("main", "installkey2", Newkey.GetHashCode)
Dim A As New System.Text.StringBuilder Dim A As New System.Text.StringBuilder
A.AppendLine("인증정보가 파일에 기록되었습니다") A.AppendLine("인증정보가 파일에 기록되었습니다")