92 lines
3.3 KiB
VB.net
92 lines
3.3 KiB
VB.net
Imports CommonClassv2
|
|
Public Class Form1
|
|
Dim install, installkey As Long
|
|
Dim fn As String
|
|
Dim auth As New MyAuthClass
|
|
|
|
|
|
''' <summary>
|
|
''' 인증정보를 읽어옵니다.
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Private Function ReadAuth() As Boolean
|
|
|
|
If install = 0 OrElse installkey = 0 Then
|
|
MsgBox("인증정보가 존재하지 않습니다." & vbCrLf & vbCrLf & "관리자에 문의하세요", MsgBoxStyle.Critical, "확인")
|
|
' Process.Start(HomePage)
|
|
Return False
|
|
End If
|
|
|
|
If (auth.GetDateNumber(Now)) > install Then
|
|
MsgBox("사용기일이 초과되었습니다." & vbCrLf & vbCrLf & "관리자에 문의하세요", MsgBoxStyle.Critical, "확인")
|
|
' Process.Start(HomePage)
|
|
Return False '//만기일을 초과했다면
|
|
End If
|
|
|
|
If installkey.ToString <> auth.GetDateNumberEnc(install) Then '//인증정보가 손상되었다면
|
|
MsgBox("인증정보가 손상되었습니다" & vbCrLf & vbCrLf & "관리자에 문의하세요", MsgBoxStyle.Critical, "확인")
|
|
'Process.Start(HomePage)
|
|
Return False
|
|
End If
|
|
Return True
|
|
' MsgBox(auth.GetDateNumberEnc(Now))
|
|
End Function
|
|
|
|
Private Sub SetAuth(ByVal NewDate As Date)
|
|
Dim auth As New MyAuthClass
|
|
Dim Arinini As New MyINI(fn)
|
|
Arinini.Write("main", "install", auth.GetDateNumber(NewDate))
|
|
Arinini.Write("main", "installkey", auth.GetDateNumberEnc(NewDate))
|
|
|
|
Dim A As New System.Text.StringBuilder
|
|
A.AppendLine("인증정보가 파일에 기록되었습니다")
|
|
A.AppendLine("파일명 = " & fn)
|
|
A.AppendLine("해당파일을 사용자에게 복사,자동패치,수동패치파일 방법을 사용하여")
|
|
A.AppendLine("배포를 하면됩니다")
|
|
A.AppendLine("------------------")
|
|
A.AppendLine("만기일 : " & Me.DateTimePicker1.Value.ToString)
|
|
|
|
MsgBox(A.ToString, MsgBoxStyle.Information, "기록완료")
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
Dim A As New OpenFileDialog
|
|
A.Title = "기본설정파일 Epole.ini 을 선택하세요"
|
|
A.FileName = "epole.ini"
|
|
A.DefaultExt = "*.ini"
|
|
A.Filter = "설정파일(*.INI)|*.ini"
|
|
A.FilterIndex = 0
|
|
If A.ShowDialog = Windows.Forms.DialogResult.OK Then
|
|
fn = A.FileName
|
|
Me.TextBox1.Text = fn
|
|
Dim ini As New MyINI(fn)
|
|
Me.install = ini.Read("main", "install", -999)
|
|
Me.installkey = ini.Read("main", "installkey", -999)
|
|
|
|
If install = -999 OrElse Me.installkey = -999 Then
|
|
MsgBox("이파일은 설정파일이 아닙니다", MsgBoxStyle.Critical, "확인")
|
|
Return
|
|
End If
|
|
|
|
Me.Button2.Enabled = True
|
|
|
|
'Label3.Text = "만기일자 : " & auth.GetDateNumberEnc(install)
|
|
Label2.Text = "파일명 : " & fn
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
|
'//변경
|
|
Me.TextBox2.Text = Me.DateTimePicker1.Value.ToFileTimeUtc
|
|
If Me.TextBox1.Text.Trim = "" Then '//파일명이 없으면 그냥 보여주기만한다.
|
|
|
|
' Me.SetAuth(Me.DateTimePicker1.Value)
|
|
Else
|
|
Me.SetAuth(Me.DateTimePicker1.Value)
|
|
End If
|
|
|
|
End Sub
|
|
End Class
|