LGram16
dd97ddec92
Move git root from Client/ to src/ to track all source code: - Client: Game client source (moved to Client/Client/) - Server: Game server source - GameTools: Development tools - CryptoSource: Encryption utilities - database: Database scripts - Script: Game scripts - rylCoder_16.02.2008_src: Legacy coder tools - GMFont, Game: Additional resources 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
302 lines
10 KiB
VB.net
302 lines
10 KiB
VB.net
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
|