Restructure repository to include all source folders
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>
This commit is contained in:
301
Server/ToolProject/RCMS_Tool/RylMDI.vb
Normal file
301
Server/ToolProject/RCMS_Tool/RylMDI.vb
Normal file
@@ -0,0 +1,301 @@
|
||||
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
|
||||
Reference in New Issue
Block a user