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>
347 lines
14 KiB
VB.net
347 lines
14 KiB
VB.net
Imports System.Text
|
|
|
|
Public Class AdminSetting
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Windows Form Designer generated code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
'This call is required by the Windows Form Designer.
|
|
InitializeComponent()
|
|
|
|
'Add any initialization after the InitializeComponent() call
|
|
|
|
End Sub
|
|
|
|
'Form overrides dispose to clean up the component list.
|
|
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
|
|
|
|
'Required by the Windows Form Designer
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'NOTE: The following procedure is required by the Windows Form Designer
|
|
'It can be modified using the Windows Form Designer.
|
|
'Do not modify it using the code editor.
|
|
Friend WithEvents cboAdminID As System.Windows.Forms.ComboBox
|
|
Friend WithEvents chkCharSeeItem As System.Windows.Forms.CheckBox
|
|
Friend WithEvents chkCharlocation As System.Windows.Forms.CheckBox
|
|
Friend WithEvents chkCharedit As System.Windows.Forms.CheckBox
|
|
Friend WithEvents chkRestraintRelease As System.Windows.Forms.CheckBox
|
|
Friend WithEvents chkRestraintReg As System.Windows.Forms.CheckBox
|
|
Friend WithEvents chkItemDelete As System.Windows.Forms.CheckBox
|
|
Friend WithEvents chkItemedit As System.Windows.Forms.CheckBox
|
|
Friend WithEvents chkItemReg As System.Windows.Forms.CheckBox
|
|
Friend WithEvents chkDoingLogout As System.Windows.Forms.CheckBox
|
|
Friend WithEvents chkLastLogin As System.Windows.Forms.CheckBox
|
|
Friend WithEvents chkCurrentLogin As System.Windows.Forms.CheckBox
|
|
Friend WithEvents btnEdit As System.Windows.Forms.Button
|
|
Friend WithEvents btnSearch As System.Windows.Forms.Button
|
|
Friend WithEvents lbltitle As System.Windows.Forms.Label
|
|
Friend WithEvents grbcharadmin As System.Windows.Forms.GroupBox
|
|
Friend WithEvents grbrestraint As System.Windows.Forms.GroupBox
|
|
Friend WithEvents grbitemadmin As System.Windows.Forms.GroupBox
|
|
Friend WithEvents grblogout As System.Windows.Forms.GroupBox
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.lbltitle = New System.Windows.Forms.Label()
|
|
Me.cboAdminID = New System.Windows.Forms.ComboBox()
|
|
Me.grbcharadmin = New System.Windows.Forms.GroupBox()
|
|
Me.chkCharSeeItem = New System.Windows.Forms.CheckBox()
|
|
Me.chkCharlocation = New System.Windows.Forms.CheckBox()
|
|
Me.chkCharedit = New System.Windows.Forms.CheckBox()
|
|
Me.grbrestraint = New System.Windows.Forms.GroupBox()
|
|
Me.chkRestraintRelease = New System.Windows.Forms.CheckBox()
|
|
Me.chkRestraintReg = New System.Windows.Forms.CheckBox()
|
|
Me.grbitemadmin = New System.Windows.Forms.GroupBox()
|
|
Me.chkItemDelete = New System.Windows.Forms.CheckBox()
|
|
Me.chkItemedit = New System.Windows.Forms.CheckBox()
|
|
Me.chkItemReg = New System.Windows.Forms.CheckBox()
|
|
Me.grblogout = New System.Windows.Forms.GroupBox()
|
|
Me.chkDoingLogout = New System.Windows.Forms.CheckBox()
|
|
Me.chkLastLogin = New System.Windows.Forms.CheckBox()
|
|
Me.chkCurrentLogin = New System.Windows.Forms.CheckBox()
|
|
Me.btnEdit = New System.Windows.Forms.Button()
|
|
Me.btnSearch = New System.Windows.Forms.Button()
|
|
Me.grbcharadmin.SuspendLayout()
|
|
Me.grbrestraint.SuspendLayout()
|
|
Me.grbitemadmin.SuspendLayout()
|
|
Me.grblogout.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'lbltitle
|
|
'
|
|
Me.lbltitle.AutoSize = True
|
|
Me.lbltitle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
|
Me.lbltitle.Font = New System.Drawing.Font("GulimChe", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
|
Me.lbltitle.Location = New System.Drawing.Point(336, 32)
|
|
Me.lbltitle.Name = "lbltitle"
|
|
Me.lbltitle.Size = New System.Drawing.Size(157, 24)
|
|
Me.lbltitle.TabIndex = 1
|
|
Me.lbltitle.Text = "운영자 권한설정"
|
|
'
|
|
'cboAdminID
|
|
'
|
|
Me.cboAdminID.Location = New System.Drawing.Point(96, 96)
|
|
Me.cboAdminID.Name = "cboAdminID"
|
|
Me.cboAdminID.Size = New System.Drawing.Size(128, 20)
|
|
Me.cboAdminID.TabIndex = 2
|
|
'
|
|
'grbcharadmin
|
|
'
|
|
Me.grbcharadmin.Controls.AddRange(New System.Windows.Forms.Control() {Me.chkCharSeeItem, Me.chkCharlocation, Me.chkCharedit})
|
|
Me.grbcharadmin.Location = New System.Drawing.Point(96, 128)
|
|
Me.grbcharadmin.Name = "grbcharadmin"
|
|
Me.grbcharadmin.Size = New System.Drawing.Size(544, 48)
|
|
Me.grbcharadmin.TabIndex = 4
|
|
Me.grbcharadmin.TabStop = False
|
|
Me.grbcharadmin.Text = "캐릭터 관리"
|
|
'
|
|
'chkCharSeeItem
|
|
'
|
|
Me.chkCharSeeItem.Location = New System.Drawing.Point(240, 16)
|
|
Me.chkCharSeeItem.Name = "chkCharSeeItem"
|
|
Me.chkCharSeeItem.Size = New System.Drawing.Size(112, 24)
|
|
Me.chkCharSeeItem.TabIndex = 3
|
|
Me.chkCharSeeItem.Text = "소유아이템보기"
|
|
'
|
|
'chkCharlocation
|
|
'
|
|
Me.chkCharlocation.Location = New System.Drawing.Point(144, 16)
|
|
Me.chkCharlocation.Name = "chkCharlocation"
|
|
Me.chkCharlocation.Size = New System.Drawing.Size(96, 24)
|
|
Me.chkCharlocation.TabIndex = 2
|
|
Me.chkCharlocation.Text = "좌표이동"
|
|
'
|
|
'chkCharedit
|
|
'
|
|
Me.chkCharedit.Location = New System.Drawing.Point(48, 16)
|
|
Me.chkCharedit.Name = "chkCharedit"
|
|
Me.chkCharedit.Size = New System.Drawing.Size(96, 24)
|
|
Me.chkCharedit.TabIndex = 1
|
|
Me.chkCharedit.Text = "정보수정"
|
|
'
|
|
'grbrestraint
|
|
'
|
|
Me.grbrestraint.Controls.AddRange(New System.Windows.Forms.Control() {Me.chkRestraintRelease, Me.chkRestraintReg})
|
|
Me.grbrestraint.Location = New System.Drawing.Point(96, 184)
|
|
Me.grbrestraint.Name = "grbrestraint"
|
|
Me.grbrestraint.Size = New System.Drawing.Size(544, 48)
|
|
Me.grbrestraint.TabIndex = 5
|
|
Me.grbrestraint.TabStop = False
|
|
Me.grbrestraint.Text = "캐릭터 제재관리"
|
|
'
|
|
'chkRestraintRelease
|
|
'
|
|
Me.chkRestraintRelease.Location = New System.Drawing.Point(144, 16)
|
|
Me.chkRestraintRelease.Name = "chkRestraintRelease"
|
|
Me.chkRestraintRelease.Size = New System.Drawing.Size(96, 24)
|
|
Me.chkRestraintRelease.TabIndex = 2
|
|
Me.chkRestraintRelease.Text = "제재해제"
|
|
'
|
|
'chkRestraintReg
|
|
'
|
|
Me.chkRestraintReg.Location = New System.Drawing.Point(48, 16)
|
|
Me.chkRestraintReg.Name = "chkRestraintReg"
|
|
Me.chkRestraintReg.Size = New System.Drawing.Size(96, 24)
|
|
Me.chkRestraintReg.TabIndex = 1
|
|
Me.chkRestraintReg.Text = "제재등록"
|
|
'
|
|
'grbitemadmin
|
|
'
|
|
Me.grbitemadmin.Controls.AddRange(New System.Windows.Forms.Control() {Me.chkItemDelete, Me.chkItemedit, Me.chkItemReg})
|
|
Me.grbitemadmin.Location = New System.Drawing.Point(96, 240)
|
|
Me.grbitemadmin.Name = "grbitemadmin"
|
|
Me.grbitemadmin.Size = New System.Drawing.Size(544, 48)
|
|
Me.grbitemadmin.TabIndex = 6
|
|
Me.grbitemadmin.TabStop = False
|
|
Me.grbitemadmin.Text = "아이템 관리"
|
|
'
|
|
'chkItemDelete
|
|
'
|
|
Me.chkItemDelete.Location = New System.Drawing.Point(240, 16)
|
|
Me.chkItemDelete.Name = "chkItemDelete"
|
|
Me.chkItemDelete.Size = New System.Drawing.Size(96, 24)
|
|
Me.chkItemDelete.TabIndex = 2
|
|
Me.chkItemDelete.Text = "아이템삭제"
|
|
'
|
|
'chkItemedit
|
|
'
|
|
Me.chkItemedit.Location = New System.Drawing.Point(144, 16)
|
|
Me.chkItemedit.Name = "chkItemedit"
|
|
Me.chkItemedit.Size = New System.Drawing.Size(96, 24)
|
|
Me.chkItemedit.TabIndex = 1
|
|
Me.chkItemedit.Text = "아이템수정"
|
|
'
|
|
'chkItemReg
|
|
'
|
|
Me.chkItemReg.Location = New System.Drawing.Point(48, 16)
|
|
Me.chkItemReg.Name = "chkItemReg"
|
|
Me.chkItemReg.Size = New System.Drawing.Size(88, 24)
|
|
Me.chkItemReg.TabIndex = 0
|
|
Me.chkItemReg.Text = "아이템생성"
|
|
'
|
|
'grblogout
|
|
'
|
|
Me.grblogout.Controls.AddRange(New System.Windows.Forms.Control() {Me.chkDoingLogout, Me.chkLastLogin, Me.chkCurrentLogin})
|
|
Me.grblogout.Location = New System.Drawing.Point(96, 296)
|
|
Me.grblogout.Name = "grblogout"
|
|
Me.grblogout.Size = New System.Drawing.Size(544, 48)
|
|
Me.grblogout.TabIndex = 7
|
|
Me.grblogout.TabStop = False
|
|
Me.grblogout.Text = "강제 접속 끊기"
|
|
'
|
|
'chkDoingLogout
|
|
'
|
|
Me.chkDoingLogout.Location = New System.Drawing.Point(320, 16)
|
|
Me.chkDoingLogout.Name = "chkDoingLogout"
|
|
Me.chkDoingLogout.Size = New System.Drawing.Size(136, 24)
|
|
Me.chkDoingLogout.TabIndex = 2
|
|
Me.chkDoingLogout.Text = "강제로그아웃하기"
|
|
'
|
|
'chkLastLogin
|
|
'
|
|
Me.chkLastLogin.Location = New System.Drawing.Point(176, 16)
|
|
Me.chkLastLogin.Name = "chkLastLogin"
|
|
Me.chkLastLogin.Size = New System.Drawing.Size(128, 24)
|
|
Me.chkLastLogin.TabIndex = 1
|
|
Me.chkLastLogin.Text = "과거로그기록검색"
|
|
'
|
|
'chkCurrentLogin
|
|
'
|
|
Me.chkCurrentLogin.Location = New System.Drawing.Point(48, 16)
|
|
Me.chkCurrentLogin.Name = "chkCurrentLogin"
|
|
Me.chkCurrentLogin.Size = New System.Drawing.Size(112, 24)
|
|
Me.chkCurrentLogin.TabIndex = 0
|
|
Me.chkCurrentLogin.Text = "현재로그인체크"
|
|
'
|
|
'btnEdit
|
|
'
|
|
Me.btnEdit.Location = New System.Drawing.Point(320, 360)
|
|
Me.btnEdit.Name = "btnEdit"
|
|
Me.btnEdit.Size = New System.Drawing.Size(136, 40)
|
|
Me.btnEdit.TabIndex = 8
|
|
Me.btnEdit.Text = "권한 수정 완료"
|
|
'
|
|
'btnSearch
|
|
'
|
|
Me.btnSearch.Location = New System.Drawing.Point(240, 96)
|
|
Me.btnSearch.Name = "btnSearch"
|
|
Me.btnSearch.Size = New System.Drawing.Size(112, 24)
|
|
Me.btnSearch.TabIndex = 9
|
|
Me.btnSearch.Text = "Searching..."
|
|
'
|
|
'AdminSetting
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
|
|
Me.ClientSize = New System.Drawing.Size(720, 437)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnSearch, Me.btnEdit, Me.grbitemadmin, Me.grbrestraint, Me.grbcharadmin, Me.cboAdminID, Me.lbltitle, Me.grblogout})
|
|
Me.Name = "AdminSetting"
|
|
Me.Text = "운영자권한설정"
|
|
Me.grbcharadmin.ResumeLayout(False)
|
|
Me.grbrestraint.ResumeLayout(False)
|
|
Me.grbitemadmin.ResumeLayout(False)
|
|
Me.grblogout.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
|
|
Private Sub AdminSetting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
|
cboAdminID.Items.Add(ITextAdminInfo.cboadminkind_admin)
|
|
cboAdminID.Items.Add(ITextAdminInfo.cboadminkind_subadmin)
|
|
cboAdminID.Items.Add(ITextAdminInfo.cboadminkind_part)
|
|
|
|
cboAdminID.SelectedIndex = 2
|
|
|
|
ProcessPacket.IAdminSetting = Me
|
|
|
|
Me.Text = ITextAdminSetting.form_header
|
|
Me.lbltitle.Text = ITextAdminSetting.lbltitle
|
|
Me.chkCharedit.Text = ITextAdminSetting.chkCharedit
|
|
Me.chkCharlocation.Text = ITextAdminSetting.chkCharlocation
|
|
Me.chkCharSeeItem.Text = ITextAdminSetting.chkCharSeeItem
|
|
Me.chkCurrentLogin.Text = ITextAdminSetting.chkCurrentLogin
|
|
Me.chkDoingLogout.Text = ITextAdminSetting.chkDoingLogout
|
|
Me.chkItemDelete.Text = ITextAdminSetting.chkItemDelete
|
|
Me.chkItemedit.Text = ITextAdminSetting.chkItemedit
|
|
Me.chkItemReg.Text = ITextAdminSetting.chkItemReg
|
|
Me.chkLastLogin.Text = ITextAdminSetting.chkLastLogin
|
|
Me.chkRestraintReg.Text = ITextAdminSetting.chkRestraintReg
|
|
Me.chkRestraintRelease.Text = ITextAdminSetting.chkRestraintRelease
|
|
|
|
Me.btnSearch.Text = ITextButton.btnSearch
|
|
Me.btnEdit.Text = ITextButton.btnEdit
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub AdminSetting_UnLoad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed
|
|
|
|
ProcessPacket.IAdminSetting = Nothing
|
|
|
|
End Sub
|
|
|
|
'찾기
|
|
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
|
|
|
|
Dim adminid As Char
|
|
|
|
Select Case cboAdminID.SelectedIndex
|
|
Case 0
|
|
adminid = "T"
|
|
Case 1
|
|
adminid = "M"
|
|
Case 2
|
|
adminid = "G"
|
|
End Select
|
|
|
|
'패킷보내기..,,,,,
|
|
SendPacket.SendAdminRightSearch(adminid)
|
|
|
|
End Sub
|
|
|
|
'권한수정하기
|
|
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
|
|
|
|
Dim adminid As Char
|
|
|
|
Select Case cboAdminID.SelectedIndex
|
|
Case 0
|
|
adminid = "T"
|
|
Case 1
|
|
adminid = "M"
|
|
Case 2
|
|
adminid = "G"
|
|
End Select
|
|
|
|
Dim Update(20) As Boolean
|
|
|
|
Update(1) = chkCharedit.Checked
|
|
Update(2) = chkCharlocation.Checked
|
|
Update(3) = chkCharSeeItem.Checked
|
|
Update(4) = chkItemReg.Checked
|
|
Update(5) = chkItemedit.Checked
|
|
Update(6) = chkItemDelete.Checked
|
|
Update(7) = chkRestraintReg.Checked
|
|
Update(8) = chkRestraintRelease.Checked
|
|
Update(9) = chkCurrentLogin.Checked
|
|
Update(10) = chkLastLogin.Checked
|
|
Update(11) = chkDoingLogout.Checked
|
|
|
|
SendPacket.SendAdminRightUpdate(adminid, Update)
|
|
|
|
End Sub
|
|
End Class
|