QR코드에 색상 지정 가능

Epole/MyAuth.vb

@@ -0,0 +1,72 @@
+Imports MyControlOLEDBv2
+
+Public Class MyAuth  '//각종인증방법을 이용한다.
+    Public Function GetDateAuth(ByVal 만기일자 As Date) As Boolean  '//날짜인증시 사용가능한지
+        '//사용가능한 날짜인지 확인하고 만약 날짜정보가 없으면은 날짜를 setdataeauth 를 실행합니다
+        '//인터넷에 연결되어있을시 현재 시간정보를 인터넷에서 받아온ㄷ
+        '//콘솔의 현재날짜가 설치된 날짜보다 더 뒤일경우 사용중지
+        '//레지 파일의 기록날짜가 서로다를경우 사용중지
+        '//레지,파일의 기록날짜가 동일하고 콘솔의 현재날짜가 기한을 넘지않았을경우에만 true 한다.
+        Dim isAvailable As Boolean = My.Computer.Network.IsAvailable  '//인터넷사용여부
+        Dim CurrentDate As Date
+
+        If isAvailable Then '//인터넷에서 날짜정보를 가져온다 기록된 날짜와 오늘의 날짜를 확인한다.
+            Dim Itime As Date
+            Try
+                CurrentDate = Itime
+            Catch ex As Exception   '//에러발생시 콘솔날짜로 세팅한다.
+                CurrentDate = Now
+            End Try
+        Else
+            MsgBox("인터넷사용불가")
+            CurrentDate = Now
+        End If
+
+        If 만기일자 > CurrentDate Then Return False
+        Return True
+    End Function
+
+    Public Sub SetAuth(ByVal Newkey As String, ByVal Fn As String)
+        ' Dim auth As New ARINCLASS
+        Dim Arinini As New MyINI2(Fn)
+        Arinini.Write("main", "install", Newkey)
+        Arinini.Write("main", "installkey", Newkey.GetHashCode)
+
+        Dim A As New System.Text.StringBuilder
+        A.AppendLine("인증정보가 파일에 기록되었습니다")
+        A.AppendLine("만기일 : " & Date.FromFileTimeUtc(Newkey))
+        MsgBox(A.ToString, MsgBoxStyle.Information, "기록완료")
+    End Sub
+
+
+    ''' <summary>
+    ''' 미지원 함수
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function SetDateAuth() As Boolean  '//레지와 파일에 해당 인증정보를 기록합니다
+        Return True
+    End Function
+
+    ''' <summary>
+    ''' 미지원함수
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function GetCurrentDate() As Date  '//오늘날짜를 가져옵니다
+        Return Now
+    End Function
+
+    Public Function GetDateNumber(ByVal 시작일 As Date) As Long
+        Return 시작일.ToFileTimeUtc
+    End Function
+
+    Public Function GetDateNumberEnc(ByVal 시작일 As Date) As String
+        Return 시작일.ToFileTimeUtc.ToString.GetHashCode  '//날짜로 들어가면 날짜의 해쉬코드를 넘겨준다.
+    End Function
+
+    Public Function GetDateNumberEnc(ByVal 시작일 As Long) As String
+        Return 시작일.ToString.GetHashCode
+    End Function
+
+End Class