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 = "<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>Ѽ<EFBFBD><D1BC><EFBFBD>"
|
||
'
|
||
'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 = "ij<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۺ<EFBFBD><EFBFBD><EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD>ǥ<EFBFBD>̵<EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
'
|
||
'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 = "ij<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۻ<EFBFBD><EFBFBD><EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD><EFBFBD><EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۻ<EFBFBD><EFBFBD><EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>αƿ<EFBFBD><EFBFBD>ϱ<EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD>ŷαױ<EFBFBD><EFBFBD>ϰ˻<EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>α<EFBFBD><EFBFBD><EFBFBD>üũ"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>Ϸ<EFBFBD>"
|
||
'
|
||
'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 = "<EFBFBD><EFBFBD>ڱ<EFBFBD><EFBFBD>Ѽ<EFBFBD><EFBFBD><EFBFBD>"
|
||
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
|
||
|
||
'ã<><C3A3>
|
||
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
|
||
|
||
'<27><>Ŷ<EFBFBD><C5B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>..,,,,,
|
||
SendPacket.SendAdminRightSearch(adminid)
|
||
|
||
End Sub
|
||
|
||
'<27><><EFBFBD>Ѽ<EFBFBD><D1BC><EFBFBD><EFBFBD>ϱ<EFBFBD>
|
||
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
|