Imports System.Threading
Imports System.Text

Public Class RylMDI
    Inherits System.Windows.Forms.Form

#Region " Windows Form 디자이너에서 생성한 코드 "

    Public Sub New()
        MyBase.New()

        '이 호출은 Windows Form 디자이너에 필요합니다.
        InitializeComponent()

        'InitializeComponent()를 호출한 다음에 초기화 작업을 추가하십시오.

    End Sub

    'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If

        MyBase.Dispose(disposing)

    End Sub

    'Windows Form 디자이너에 필요합니다.
    Private components As System.ComponentModel.IContainer

    '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
    'Windows Form 디자이너를 사용하여 수정할 수 있습니다.  
    '코드 편집기를 사용하여 수정하지 마십시오.
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents mnu_1_ToolAdm As System.Windows.Forms.MenuItem
    Friend WithEvents mnu_1_1_ToolAdminSearch As System.Windows.Forms.MenuItem
    Friend WithEvents mnu_2_UserAdmin As System.Windows.Forms.MenuItem
    Friend WithEvents mnu_3_CharAdmin As System.Windows.Forms.MenuItem
    Friend WithEvents mnu_3_3_CharRestraint As System.Windows.Forms.MenuItem
    Friend WithEvents mnu_2_1_UserCheck As System.Windows.Forms.MenuItem
    Friend WithEvents mnu_3_2_CharItemInfo As System.Windows.Forms.MenuItem
    Friend WithEvents mnu_3_1_Charinfo As System.Windows.Forms.MenuItem
    Friend WithEvents mnu_2_2_lastUserCheck As System.Windows.Forms.MenuItem
    Friend WithEvents mnu_4_ItemLogAdm As System.Windows.Forms.MenuItem
    Friend WithEvents mnu_4_1_ItemLog As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.mnu_1_ToolAdm = New System.Windows.Forms.MenuItem()
        Me.mnu_1_1_ToolAdminSearch = New System.Windows.Forms.MenuItem()
        Me.mnu_2_UserAdmin = New System.Windows.Forms.MenuItem()
        Me.mnu_2_1_UserCheck = New System.Windows.Forms.MenuItem()
        Me.mnu_2_2_lastUserCheck = New System.Windows.Forms.MenuItem()
        Me.mnu_3_CharAdmin = New System.Windows.Forms.MenuItem()
        Me.mnu_3_1_Charinfo = New System.Windows.Forms.MenuItem()
        Me.mnu_3_2_CharItemInfo = New System.Windows.Forms.MenuItem()
        Me.mnu_3_3_CharRestraint = New System.Windows.Forms.MenuItem()
        Me.mnu_4_ItemLogAdm = New System.Windows.Forms.MenuItem()
        Me.mnu_4_1_ItemLog = New System.Windows.Forms.MenuItem()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnu_1_ToolAdm, Me.mnu_2_UserAdmin, Me.mnu_3_CharAdmin, Me.mnu_4_ItemLogAdm})
        '
        'mnu_1_ToolAdm
        '
        Me.mnu_1_ToolAdm.Index = 0
        Me.mnu_1_ToolAdm.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnu_1_1_ToolAdminSearch})
        Me.mnu_1_ToolAdm.Text = "운영자관리"
        '
        'mnu_1_1_ToolAdminSearch
        '
        Me.mnu_1_1_ToolAdminSearch.Index = 0
        Me.mnu_1_1_ToolAdminSearch.Text = "운영자관리"
        '
        'mnu_2_UserAdmin
        '
        Me.mnu_2_UserAdmin.Index = 1
        Me.mnu_2_UserAdmin.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnu_2_1_UserCheck, Me.mnu_2_2_lastUserCheck})
        Me.mnu_2_UserAdmin.Text = "유저관리"
        '
        'mnu_2_1_UserCheck
        '
        Me.mnu_2_1_UserCheck.Index = 0
        Me.mnu_2_1_UserCheck.Text = "접속여부 / 강제로그아웃"
        '
        'mnu_2_2_lastUserCheck
        '
        Me.mnu_2_2_lastUserCheck.Index = 1
        Me.mnu_2_2_lastUserCheck.Text = "과거사용내역보기"
        '
        'mnu_3_CharAdmin
        '
        Me.mnu_3_CharAdmin.Index = 2
        Me.mnu_3_CharAdmin.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnu_3_1_Charinfo, Me.mnu_3_2_CharItemInfo, Me.mnu_3_3_CharRestraint})
        Me.mnu_3_CharAdmin.Text = "캐릭터관리"
        '
        'mnu_3_1_Charinfo
        '
        Me.mnu_3_1_Charinfo.Index = 0
        Me.mnu_3_1_Charinfo.Text = "캐릭터정보"
        '
        'mnu_3_2_CharItemInfo
        '
        Me.mnu_3_2_CharItemInfo.Index = 1
        Me.mnu_3_2_CharItemInfo.Text = "아이템관리"
        '
        'mnu_3_3_CharRestraint
        '
        Me.mnu_3_3_CharRestraint.Index = 2
        Me.mnu_3_3_CharRestraint.Text = "캐릭터제재"
        '
        'mnu_4_ItemLogAdm
        '
        Me.mnu_4_ItemLogAdm.Index = 3
        Me.mnu_4_ItemLogAdm.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnu_4_1_ItemLog})
        Me.mnu_4_ItemLogAdm.Text = "로그관리"
        '
        'mnu_4_1_ItemLog
        '
        Me.mnu_4_1_ItemLog.Index = 0
        Me.mnu_4_1_ItemLog.Text = "아이템로그보기"
        '
        'RylMDI
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(792, 397)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "RylMDI"
        Me.Text = "RylMDI"

    End Sub

#End Region

    '운영자 관리
    '전역....

    Public IAdminInfo As AdminInfo
    Public ILogin As Login
    '유저관리
    Public IUserLogin As UserLogin
    '캐릭터관리
    Public ICharinfo As CharInfo
    Public ICharItemInfo As CharItemInfo
    Public ICharRestraint As CharRestraint
    Public IUserLastLogOut As UserLastLogOut

    Public Sub Disconnected()
        MsgBox(ITextMSG.msg_disconn)
    End Sub

    '연결...
    Private Sub RylMDI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        ProcessPacket.IRylMDI = Me
        Me.WindowState = FormWindowState.Maximized

        READXML()

        Me.Text = ITextRylMDI.formheader
        Me.mnu_1_ToolAdm.Text = ITextRylMDI.title_1
        Me.mnu_1_1_ToolAdminSearch.Text = ITextRylMDI.title_1
        Me.mnu_2_UserAdmin.Text = ITextRylMDI.title_2
        Me.mnu_2_1_UserCheck.Text = ITextRylMDI.title_2_1
        Me.mnu_2_2_lastUserCheck.Text = ITextRylMDI.title_2_2
        Me.mnu_3_CharAdmin.Text = ITextRylMDI.title_3
        Me.mnu_3_1_Charinfo.Text = ITextRylMDI.title_3_1
        Me.mnu_3_2_CharItemInfo.Text = ITextRylMDI.title_3_2
        Me.mnu_3_3_CharRestraint.Text = ITextRylMDI.title_3_3


        DBConn.Initialize()

        '연결하기.

        '테섭
        IClientSocket.Connect("220.73.177.132", 10113, Me, New ClientSocket.ProcessDisconnect(AddressOf Me.Disconnected))

        '사내테스트
        'IClientSocket.Connect("203.239.143.36", 10113, Me, New ClientSocket.ProcessDisconnect(AddressOf Me.Disconnected))

        'sparrowhaw's Test
        'IClientSocket.Connect("192.168.1.10", 10113, Me, New ClientSocket.ProcessDisconnect(AddressOf Me.Disconnected))

        ProcessPacket.InitializeHandler()

        '받을 때 처리하는 핸들러 등록

        ''운영자관리
        'mnu_1_1_ToolAdminSearch.Enabled = False
        ''유저관리
        'mnu_2_UserAdmin.Enabled = False
        ''캐릭터관리
        'mnu_3_CharAdmin.Enabled = False

        '무조건 막기
        mnu_3_2_CharItemInfo.Enabled = False

        ILogin = New Login()
        ILogin.StartPosition = FormStartPosition.CenterParent
        ILogin.ControlBox = False

        ILogin.ShowDialog()
        ILogin.MdiParent = Me

    End Sub

    'all program exit
    Private Sub RylMDI_UnLoad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        Application.Exit()
    End Sub


    '운영자 조회
    Private Sub mnu_1_1_ToolAdminSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_1_1_ToolAdminSearch.Click

        If AdminKind = "T" Then

            If IAdminInfo Is Nothing Then
                IAdminInfo = New AdminInfo()
                IAdminInfo.MdiParent = Me
                IAdminInfo.Show()

                IAdminInfo.WindowState = FormWindowState.Maximized

            End If

            IAdminInfo.Activate()
        Else
            MsgBox(ITextMSG.msg_permit)
        End If
    End Sub


    '캐릭터 제재하기
    Private Sub mnu_3_3_CharRestraint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_3_3_CharRestraint.Click
        If ICharRestraint Is Nothing Then
            ICharRestraint = New CharRestraint()
            ICharRestraint.MdiParent = Me
            ICharRestraint.Show()

            ICharRestraint.WindowState = FormWindowState.Maximized

        End If

        ICharRestraint.Activate()
    End Sub

    '현재 유저로그인 여부체크 및 강제 접속끊기
    Private Sub mnu_2_1_UserCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_2_1_UserCheck.Click

        If IUserLogin Is Nothing Then
            IUserLogin = New UserLogin()
            IUserLogin.MdiParent = Me
            IUserLogin.Show()

            IUserLogin.WindowState = FormWindowState.Maximized

        End If

        IUserLogin.Activate()
    End Sub


    '캐릭터 정보보기
    Private Sub mnu_3_1_Charinfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_3_1_Charinfo.Click
        If ICharinfo Is Nothing Then
            ICharinfo = New CharInfo()
            ICharinfo.MdiParent = Me
            ICharinfo.Show()
            ICharinfo.WindowState = FormWindowState.Maximized
        End If
        ICharinfo.Activate()
    End Sub

    '아이템관리
    Private Sub mnu_3_2_CharItemInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_3_2_CharItemInfo.Click
        'If ICharItemInfo Is Nothing Then
        '    ICharItemInfo = New CharItemInfo()
        '    ICharItemInfo.MdiParent = Me
        '    ICharItemInfo.Show()
        '    ICharItemInfo.WindowState = FormWindowState.Maximized
        'End If
        'ICharItemInfo.Activate()
    End Sub

    Private Sub mnu_2_2_lastUserCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_2_2_lastUserCheck.Click
        If IUserLastLogOut Is Nothing Then
            IUserLastLogOut = New UserLastLogOut()
            IUserLastLogOut.MdiParent = Me
            IUserLastLogOut.Show()
            IUserLastLogOut.WindowState = FormWindowState.Maximized
        End If
        IUserLastLogOut.Activate()
    End Sub
End Class