권한 기능 업데이트

2019-05-05 22:25:10 +09:00
parent 10b1f5f2fa
commit fb9695f501
13 changed files with 1054 additions and 523 deletions
--- a/Epole/MyAuth.vb
+++ b/Epole/MyAuth.vb
@@ -26,7 +26,7 @@ Public Class MyAuth  '//각종인증방법을 이용한다.
        Return True
    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 Arinini As New MyINI2(Fn)
        Arinini.Write("main", "install2", Newkey)