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

설치 프로젝트 추가

Browse Source
This commit is contained in:
chi
2019-11-25 22:36:03 +09:00
parent fb9695f501
commit 9e83bd63bd
9 changed files with 12390 additions and 137 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Epole/SplashScreen.vb
View File

@@ -31,26 +31,27 @@ Public NotInheritable Class SplashScreen
If Not LoadINI() Then End
If Command() <> "ARIN" AndAlso Not ReadAuth() Then '//에러났을떄는 카운터를 확인
'//사용횟수가 10번ㅇ르 초과했는지 확인
Runcnt = Me.ReadAuthcount
Dim f As New fAuth()
If (f.ShowDialog <> Windows.Forms.DialogResult.OK) Then
End
End If
'If Runcnt >= 10 Then
' Dim NewKey As String = InputBox("인증번호를 입력하세요 (인증번호는 숫자로만 이루어져 있습니다)")
' If IsNumeric(NewKey) = False Then
' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' End
' End If
' auth.SetAuth(NewKey, My.Application.Info.DirectoryPath & "\epole.ini")
' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' End
'Else
' MsgBox(CStr(10 - Runcnt) & "번의 사용횟수가 남았습니다", MsgBoxStyle.Critical, "실행확인")
'End If
End If
'//인증사용안함 191125 -
'If Command() <> "ARIN" AndAlso Not ReadAuth() Then '//에러났을떄는 카운터를 확인
' '//사용횟수가 10번ㅇ르 초과했는지 확인
' Runcnt = Me.ReadAuthcount
' Dim f As New fAuth()
' If (f.ShowDialog <> Windows.Forms.DialogResult.OK) Then
' End
' End If
' 'If Runcnt >= 10 Then
' ' Dim NewKey As String = InputBox("인증번호를 입력하세요 (인증번호는 숫자로만 이루어져 있습니다)")
' ' If IsNumeric(NewKey) = False Then
' ' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' ' End
' ' End If
' ' auth.SetAuth(NewKey, My.Application.Info.DirectoryPath & "\epole.ini")
' ' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' ' End
' 'Else
' ' MsgBox(CStr(10 - Runcnt) & "번의 사용횟수가 남았습니다", MsgBoxStyle.Critical, "실행확인")
' 'End If
'End If
If Not LoadReg() Then End
If Not Connect() Then End
Me.lb_msg.Text = ""