initial commit

2019-10-24 21:24:21 +09:00
commit 376f7d9de0
544 changed files with 295019 additions and 0 deletions
--- a/ArinWarev1/SplashScreen1.vb
+++ b/ArinWarev1/SplashScreen1.vb
@@ -0,0 +1,55 @@
+Imports System.Net
+Imports System.Net.Dns
+
+Public NotInheritable Class SplashScreen1
+
+    Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        '응용 프로그램 제목
+        'If My.Application.Info.Title <> "" Then
+        '    ApplicationTitle.Text = My.Application.Info.Title
+        'Else
+        '    '응용 프로그램 제목이 없는 경우 확장명 없이 응용 프로그램 이름을 사용합니다.
+        '    ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
+        'End If
+
+        'Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
+
+        ''저작권 정보
+        'Copyright.Text = My.Application.Info.Copyright
+
+        ''프로젝트 버젼정보
+        'Prj.MaxUI = "20091231"
+        'Prj.MaxLG = "20091231"
+        'Prj.Admin = True
+        'Prj.Password = ""   '//암호는 기본해제되어있음
+
+        'For Each A As Net.NetworkInformation.NetworkInterface In ArinNet.MyNet.GetMacArray
+        '    If A.NetworkInterfaceType <> Net.NetworkInformation.NetworkInterfaceType.Loopback Then
+        '        Prj.CUrMac = A.GetPhysicalAddress.ToString
+        '    End If
+        'Next
+
+        ''//데이터디렉토리정보를 확인한다 이곳에서 데이터베이스및 기타 설정파일을 저장하게한다 
+        ''//이는 인터넷설치버젼의경우 사용자폴더로 들어가기떄문이다
+        'Msg("데이터폴더를 확인합니다")
+        'If DataDir.Exists = False Then DataDir.Create() '//데이터폴더가없다면 생성
+        'If TemplateDir.Exists = False Then
+        '    TemplateDir.Create()
+        '    If System.IO.File.Exists(My.Application.Info.DirectoryPath & "\template\sample.tpl") = True Then
+        '        My.Computer.FileSystem.CopyFile(My.Application.Info.DirectoryPath & "\template\sample.tpl", TemplateDir.FullName & "\sample.tpl", True)
+        '    End If
+        'End If
+
+        'Msg("기본정보를 설정합니다")
+        'Myini = New CEnergy.MyINI(DataDir.FullName & "\arinwaret4.ini")
+
+        'Me.Show()
+        'Me.Validate()
+        'My.Application.DoEvents()
+        'Me.Hide()
+        'MdiMain.Show()
+
+    End Sub
+
+  
+End Class