install sheield 프로젝트 제거

디버그명령창 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

View File

@@ -29,8 +29,8 @@ Public Class MyAuth '//각종인증방법을 이용한다.
Public Sub SetAuth(ByVal Newkey As String, ByVal Fn As String) Public Sub SetAuth(ByVal Newkey As String, ByVal Fn As String)
' Dim auth As New ARINCLASS ' Dim auth As New ARINCLASS
Dim Arinini As New MyINI2(Fn) Dim Arinini As New MyINI2(Fn)
Arinini.Write("main", "install", Newkey) Arinini.Write("main", "install2", Newkey)
Arinini.Write("main", "installkey", Newkey.GetHashCode) Arinini.Write("main", "installkey2", Newkey.GetHashCode)
Dim A As New System.Text.StringBuilder Dim A As New System.Text.StringBuilder
A.AppendLine("인증정보가 파일에 기록되었습니다") A.AppendLine("인증정보가 파일에 기록되었습니다")

View File

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

View File

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

View File

@@ -5,8 +5,6 @@ VisualStudioVersion = 12.0.40629.0
MinimumVisualStudioVersion = 10.0.40219.1 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "한전번호찰통합", "Epole\한전번호찰통합.vbproj", "{AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "한전번호찰통합", "Epole\한전번호찰통합.vbproj", "{AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}"
EndProject 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}" Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "QRCodeLib", "..\QRCodeLib\QRCodeLib.csproj", "{E98126B2-AF17-4783-96B9-856D6744DCA3}"
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MyControlOLEDBv2", "Sub\MyControl(OleDb)v2\MyControlOLEDBv2\MyControlOLEDBv2.vbproj", "{326F9A0F-F714-432D-81CB-CED39EC6C424}" 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}.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.ActiveCfg = Release|Any CPU
{AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.SingleImage|Any CPU.Build.0 = 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.ActiveCfg = Release|Any CPU
{E98126B2-AF17-4783-96B9-856D6744DCA3}.CD_ROM|Any CPU.Build.0 = 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 {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} {326F9A0F-F714-432D-81CB-CED39EC6C424} = {397B2121-17D0-4BC5-A6E7-3242222584E2}
EndGlobalSection EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution GlobalSection(ExtensibilityGlobals) = postSolution
VisualSVNWorkingCopyRoot = .
Spices_ObfuscateProject = -1
Spices_CreateProject = -1
Spices_ProjectFileName = Spices_ProjectFileName =
Spices_CreateProject = -1
Spices_ObfuscateProject = -1
VisualSVNWorkingCopyRoot = .
EndGlobalSection EndGlobalSection
EndGlobal EndGlobal