레지스트리에도 키값을 추가 함

DriveInfo/MyAuth.vb

@@ -170,10 +170,19 @@ Public Class MyAuth  '//각종인증방법을 이용한다.
         Arinini.Write("main", "install2", Newkey)
         Arinini.Write("main", "installkey2", Newkey.GetHashCode)
 
+        Dim key As Long = Newkey
+        Dim key2 As Long = CType(Newkey.GetHashCode(), Long)
+
+        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\FileManager", "install", key)
+        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\FileManager", "installkey", key2)
+     
+
+
         Dim A As New System.Text.StringBuilder
         A.AppendLine("인증정보가 파일에 기록되었습니다")
         A.AppendLine("만기일 : " & Date.FromFileTimeUtc(Newkey))
         MsgBox(A.ToString, MsgBoxStyle.Information, "기록완료")
+
     End Sub