install sheield 프로젝트 제거

디버그명령창 arin 파라미터 제거
인증관련 키값에 2를 추가함 - 리밋프로그램도 맞춰서 변경되어야 함

Epole/MyAuth.vb

@@ -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("인증정보가 파일에 기록되었습니다")

Epole/SplashScreen.vb

@@ -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)

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

@@ -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>