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

4
Epole/MyAuth.vb
View File

@@ -29,8 +29,8 @@ Public Class MyAuth '//각종인증방법을 이용한다.
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)
Arinini.Write("main", "install2", Newkey)
Arinini.Write("main", "installkey2", Newkey.GetHashCode)
Dim A As New System.Text.StringBuilder
A.AppendLine("인증정보가 파일에 기록되었습니다")

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)

3
Epole/한전번호찰통합.vbproj.user
View File

@@ -3,7 +3,8 @@
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
<StartArguments>ARIN</StartArguments>
<StartArguments>
</StartArguments>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<EnableUnmanagedDebugging>true</EnableUnmanagedDebugging>

17
Epole_한전번호찰통합.sln
View File

@@ -5,8 +5,6 @@ VisualStudioVersion = 12.0.40629.0
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "한전번호찰통합", "Epole\한전번호찰통합.vbproj", "{AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}"
EndProject
Project("{6141683F-8A12-4E36-9623-2EB02B2C2303}") = "SetupIS", "SetupIS\SetupIS.isproj", "{095A61C5-F3A0-4519-86EA-7A775B18DFED}"
EndProject
Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "QRCodeLib", "..\QRCodeLib\QRCodeLib.csproj", "{E98126B2-AF17-4783-96B9-856D6744DCA3}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MyControlOLEDBv2", "Sub\MyControl(OleDb)v2\MyControlOLEDBv2\MyControlOLEDBv2.vbproj", "{326F9A0F-F714-432D-81CB-CED39EC6C424}"
@@ -32,15 +30,6 @@ Global
{AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.Release|Any CPU.Build.0 = Release|Any CPU
{AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU
{AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.SingleImage|Any CPU.Build.0 = Release|Any CPU
{095A61C5-F3A0-4519-86EA-7A775B18DFED}.CD_ROM|Any CPU.ActiveCfg = CD_ROM
{095A61C5-F3A0-4519-86EA-7A775B18DFED}.CD_ROM|Any CPU.Build.0 = CD_ROM
{095A61C5-F3A0-4519-86EA-7A775B18DFED}.Debug|Any CPU.ActiveCfg = DVD-5
{095A61C5-F3A0-4519-86EA-7A775B18DFED}.DVD-5|Any CPU.ActiveCfg = DVD-5
{095A61C5-F3A0-4519-86EA-7A775B18DFED}.DVD-5|Any CPU.Build.0 = DVD-5
{095A61C5-F3A0-4519-86EA-7A775B18DFED}.Release|Any CPU.ActiveCfg = SingleImage
{095A61C5-F3A0-4519-86EA-7A775B18DFED}.Release|Any CPU.Build.0 = SingleImage
{095A61C5-F3A0-4519-86EA-7A775B18DFED}.SingleImage|Any CPU.ActiveCfg = SingleImage
{095A61C5-F3A0-4519-86EA-7A775B18DFED}.SingleImage|Any CPU.Build.0 = SingleImage
{E98126B2-AF17-4783-96B9-856D6744DCA3}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU
{E98126B2-AF17-4783-96B9-856D6744DCA3}.CD_ROM|Any CPU.Build.0 = Release|Any CPU
{E98126B2-AF17-4783-96B9-856D6744DCA3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
@@ -70,9 +59,9 @@ Global
{326F9A0F-F714-432D-81CB-CED39EC6C424} = {397B2121-17D0-4BC5-A6E7-3242222584E2}
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
VisualSVNWorkingCopyRoot = .
Spices_ObfuscateProject = -1
Spices_CreateProject = -1
Spices_ProjectFileName =
Spices_CreateProject = -1
Spices_ObfuscateProject = -1
VisualSVNWorkingCopyRoot = .
EndGlobalSection
EndGlobal