Haegwang/Hanjeon
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

install sheield 프로젝트 제거

Browse Source 
디버그명령창 arin 파라미터 제거
인증관련 키값에 2를 추가함 - 리밋프로그램도 맞춰서 변경되어야 함
This commit is contained in:
chi
2019-05-05 20:35:40 +09:00
parent 83c88960d4
commit e3a8e56895
4 changed files with 16 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Epole/SplashScreen.vb
View File

@@ -62,22 +62,22 @@ Public NotInheritable Class SplashScreen
Private Function ReadAuthcount() As Integer
Dim RunCnt As Integer = 0
Dim ini As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini")
Dim RegDate As String = ini.Read("main", "regdate", "")
Dim RegDate As String = ini.Read("main", "regdate2", "")
Dim CurDate As String = Me.auth.GetDateNumberEnc(Today.AddDays(-10))
If RegDate = "" Then '//등록일이없으면 10번카운터를 셋팅한다.
RunCnt = 1
ini.Write("main", "reg", RunCnt) '//1일로한다.
ini.Write("main", "regdate", Me.auth.GetDateNumberEnc(Today)) '//1일로한다.
ini.Write("main", "reg2", RunCnt) '//1일로한다.
ini.Write("main", "regdate2", Me.auth.GetDateNumberEnc(Today)) '//1일로한다.
Else
'//상요자가 숫자를 임의로 고칠수있으니 설치된 날짜랑 오늘이랑 10일이상차이나면 횟수에상관없이 사용불가로한다.
If CurDate > RegDate Then
MsgBox("프로그램을 사용할 수 없습니다" & vbCrLf & "배포업체에 문의하세요", MsgBoxStyle.Information, "확인")
Return 10
End If
RunCnt = ini.Read("main", "reg", 10) '//없으면 10으로한다 즉 사용못하게하겠다는거다
RunCnt = ini.Read("main", "reg2", 10) '//없으면 10으로한다 즉 사용못하게하겠다는거다
If RunCnt < 10 Then
RunCnt += 1
ini.Write("main", "reg", RunCnt) '//1일로한다.
ini.Write("main", "reg2", RunCnt) '//1일로한다.
End If
End If
If RunCnt >= 10 Then Return 10
@@ -116,8 +116,8 @@ Public NotInheritable Class SplashScreen
Private Sub SetAuth(ByVal NewDate As Date)
Dim auth As New MyAuth
Dim Arinini As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini")
Arinini.Write("main", "install", auth.GetDateNumber(NewDate))
Arinini.Write("main", "installkey", auth.GetDateNumberEnc(NewDate))
Arinini.Write("main", "install2", auth.GetDateNumber(NewDate))
Arinini.Write("main", "installkey2", auth.GetDateNumberEnc(NewDate))
MsgBox("기록완료")
End Sub
@@ -146,8 +146,8 @@ Public NotInheritable Class SplashScreen
Common.ViewFont.FontName = buf(0)
Common.ViewFont.FontSize = buf(1)
Me.install = Arinini.Read("main", "install", 0)
Me.installkey = Arinini.Read("main", "installkey", 0)
Me.install = Arinini.Read("main", "install2", 0)
Me.installkey = Arinini.Read("main", "installkey2", 0)
buf = Arinini.Read("main", "menufont", "굴림,9").Split(",")
Common.MenuFont.FontName = buf(0)