Client/Server/ToolProject/RCMS_Tool/CharInfo.vb

Imports System.Text
Imports System.ComponentModel

Public Class CharInfo
    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 cboServerName As System.Windows.Forms.ComboBox
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents txtSearchID As System.Windows.Forms.TextBox
    Friend WithEvents txtName As System.Windows.Forms.TextBox
    Friend WithEvents txtCID As System.Windows.Forms.TextBox
    Friend WithEvents txtExp As System.Windows.Forms.TextBox
    Friend WithEvents txtMp As System.Windows.Forms.TextBox
    Friend WithEvents txtHp As System.Windows.Forms.TextBox
    Friend WithEvents txtWis As System.Windows.Forms.TextBox
    Friend WithEvents txtIni As System.Windows.Forms.TextBox
    Friend WithEvents txtCon As System.Windows.Forms.TextBox
    Friend WithEvents txtDex As System.Windows.Forms.TextBox
    Friend WithEvents txtStr As System.Windows.Forms.TextBox
    Friend WithEvents txtLevel As System.Windows.Forms.TextBox
    Friend WithEvents txtIP As System.Windows.Forms.TextBox
    Friend WithEvents txtParty As System.Windows.Forms.TextBox
    Friend WithEvents txtGuild As System.Windows.Forms.TextBox
    Friend WithEvents txtMoney As System.Windows.Forms.TextBox
    Friend WithEvents txtFame As System.Windows.Forms.TextBox
    Friend WithEvents txtMi As System.Windows.Forms.TextBox
    Friend WithEvents txtClass As System.Windows.Forms.TextBox
    Friend WithEvents txtFace As System.Windows.Forms.TextBox
    Friend WithEvents txtKind As System.Windows.Forms.TextBox
    Friend WithEvents txtHead As System.Windows.Forms.TextBox
    Friend WithEvents txtMW As System.Windows.Forms.TextBox
    Friend WithEvents btnMove As System.Windows.Forms.Button
    Friend WithEvents txtZ As System.Windows.Forms.TextBox
    Friend WithEvents txtY As System.Windows.Forms.TextBox
    Friend WithEvents txtX As System.Windows.Forms.TextBox
    Friend WithEvents cboSearchType As System.Windows.Forms.ComboBox
    Friend WithEvents rdoBlockRE As System.Windows.Forms.RadioButton
    Friend WithEvents lboxCharid As System.Windows.Forms.ListBox
    Friend WithEvents btnSearch As System.Windows.Forms.Button
    Friend WithEvents btnEdit As System.Windows.Forms.Button
    Friend WithEvents cboserver As System.Windows.Forms.ComboBox
    Friend WithEvents cboIDType As System.Windows.Forms.ComboBox
    Friend WithEvents txtIdSearch As System.Windows.Forms.TextBox
    Friend WithEvents btnIDSearch As System.Windows.Forms.Button
    Friend WithEvents btnDetailItemInfo As System.Windows.Forms.Button
    Friend WithEvents btnBlock As System.Windows.Forms.Button
    Friend WithEvents btnCharSearch As System.Windows.Forms.Button
    Friend WithEvents CommitButton As System.Windows.Forms.Button
    Friend WithEvents grbcharinfo As System.Windows.Forms.GroupBox
    Friend WithEvents lblexp As System.Windows.Forms.Label
    Friend WithEvents lblmp As System.Windows.Forms.Label
    Friend WithEvents lblhp As System.Windows.Forms.Label
    Friend WithEvents lblstr As System.Windows.Forms.Label
    Friend WithEvents lbldex As System.Windows.Forms.Label
    Friend WithEvents lblcon As System.Windows.Forms.Label
    Friend WithEvents lblini As System.Windows.Forms.Label
    Friend WithEvents lblwis As System.Windows.Forms.Label
    Friend WithEvents lbllevel As System.Windows.Forms.Label
    Friend WithEvents lblmi As System.Windows.Forms.Label
    Friend WithEvents lblfame As System.Windows.Forms.Label
    Friend WithEvents lblmoney As System.Windows.Forms.Label
    Friend WithEvents lblguild As System.Windows.Forms.Label
    Friend WithEvents lblparty As System.Windows.Forms.Label
    Friend WithEvents lblip As System.Windows.Forms.Label
    Friend WithEvents lblmw As System.Windows.Forms.Label
    Friend WithEvents lblhead As System.Windows.Forms.Label
    Friend WithEvents lblface As System.Windows.Forms.Label
    Friend WithEvents lblkind As System.Windows.Forms.Label
    Friend WithEvents lblclass As System.Windows.Forms.Label
    Friend WithEvents lblname As System.Windows.Forms.Label
    Friend WithEvents lblcid As System.Windows.Forms.Label
    Friend WithEvents grblocation As System.Windows.Forms.GroupBox
    Friend WithEvents lblx As System.Windows.Forms.Label
    Friend WithEvents lbly As System.Windows.Forms.Label
    Friend WithEvents lblz As System.Windows.Forms.Label
    Friend WithEvents grbsearch As System.Windows.Forms.GroupBox
    Friend WithEvents lbltitle As System.Windows.Forms.Label
    Friend WithEvents txtUID As System.Windows.Forms.TextBox
    Friend WithEvents lbluid As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.cboSearchType = New System.Windows.Forms.ComboBox()
        Me.btnSearch = New System.Windows.Forms.Button()
        Me.txtSearchID = New System.Windows.Forms.TextBox()
        Me.cboServerName = New System.Windows.Forms.ComboBox()
        Me.grbcharinfo = New System.Windows.Forms.GroupBox()
        Me.btnEdit = New System.Windows.Forms.Button()
        Me.txtName = New System.Windows.Forms.TextBox()
        Me.txtCID = New System.Windows.Forms.TextBox()
        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
        Me.txtExp = New System.Windows.Forms.TextBox()
        Me.txtMp = New System.Windows.Forms.TextBox()
        Me.txtHp = New System.Windows.Forms.TextBox()
        Me.lblexp = New System.Windows.Forms.Label()
        Me.lblmp = New System.Windows.Forms.Label()
        Me.lblhp = New System.Windows.Forms.Label()
        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
        Me.txtWis = New System.Windows.Forms.TextBox()
        Me.txtIni = New System.Windows.Forms.TextBox()
        Me.txtCon = New System.Windows.Forms.TextBox()
        Me.txtDex = New System.Windows.Forms.TextBox()
        Me.txtStr = New System.Windows.Forms.TextBox()
        Me.txtLevel = New System.Windows.Forms.TextBox()
        Me.lblstr = New System.Windows.Forms.Label()
        Me.lbldex = New System.Windows.Forms.Label()
        Me.lblcon = New System.Windows.Forms.Label()
        Me.lblini = New System.Windows.Forms.Label()
        Me.lblwis = New System.Windows.Forms.Label()
        Me.lbllevel = New System.Windows.Forms.Label()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        Me.txtIP = New System.Windows.Forms.TextBox()
        Me.txtParty = New System.Windows.Forms.TextBox()
        Me.txtGuild = New System.Windows.Forms.TextBox()
        Me.txtMoney = New System.Windows.Forms.TextBox()
        Me.txtFame = New System.Windows.Forms.TextBox()
        Me.txtMi = New System.Windows.Forms.TextBox()
        Me.lblmi = New System.Windows.Forms.Label()
        Me.lblfame = New System.Windows.Forms.Label()
        Me.lblmoney = New System.Windows.Forms.Label()
        Me.lblguild = New System.Windows.Forms.Label()
        Me.lblparty = New System.Windows.Forms.Label()
        Me.lblip = New System.Windows.Forms.Label()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.txtClass = New System.Windows.Forms.TextBox()
        Me.txtFace = New System.Windows.Forms.TextBox()
        Me.txtKind = New System.Windows.Forms.TextBox()
        Me.txtHead = New System.Windows.Forms.TextBox()
        Me.txtMW = New System.Windows.Forms.TextBox()
        Me.lblmw = New System.Windows.Forms.Label()
        Me.lblhead = New System.Windows.Forms.Label()
        Me.lblface = New System.Windows.Forms.Label()
        Me.lblkind = New System.Windows.Forms.Label()
        Me.lblclass = New System.Windows.Forms.Label()
        Me.lblname = New System.Windows.Forms.Label()
        Me.lblcid = New System.Windows.Forms.Label()
        Me.GroupBox7 = New System.Windows.Forms.GroupBox()
        Me.btnBlock = New System.Windows.Forms.Button()
        Me.rdoBlockRE = New System.Windows.Forms.RadioButton()
        Me.RadioButton1 = New System.Windows.Forms.RadioButton()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.lboxCharid = New System.Windows.Forms.ListBox()
        Me.grblocation = New System.Windows.Forms.GroupBox()
        Me.btnMove = New System.Windows.Forms.Button()
        Me.txtZ = New System.Windows.Forms.TextBox()
        Me.txtY = New System.Windows.Forms.TextBox()
        Me.txtX = New System.Windows.Forms.TextBox()
        Me.lblx = New System.Windows.Forms.Label()
        Me.lbly = New System.Windows.Forms.Label()
        Me.lblz = New System.Windows.Forms.Label()
        Me.btnDetailItemInfo = New System.Windows.Forms.Button()
        Me.lbltitle = New System.Windows.Forms.Label()
        Me.grbsearch = New System.Windows.Forms.GroupBox()
        Me.btnIDSearch = New System.Windows.Forms.Button()
        Me.txtIdSearch = New System.Windows.Forms.TextBox()
        Me.cboIDType = New System.Windows.Forms.ComboBox()
        Me.cboserver = New System.Windows.Forms.ComboBox()
        Me.btnCharSearch = New System.Windows.Forms.Button()
        Me.CommitButton = New System.Windows.Forms.Button()
        Me.txtUID = New System.Windows.Forms.TextBox()
        Me.lbluid = New System.Windows.Forms.Label()
        Me.grbcharinfo.SuspendLayout()
        Me.GroupBox6.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox7.SuspendLayout()
        Me.grblocation.SuspendLayout()
        Me.grbsearch.SuspendLayout()
        Me.SuspendLayout()
        '
        'cboSearchType
        '
        Me.cboSearchType.Name = "cboSearchType"
        Me.cboSearchType.TabIndex = 0
        '
        'btnSearch
        '
        Me.btnSearch.Location = New System.Drawing.Point(456, 24)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.Size = New System.Drawing.Size(88, 24)
        Me.btnSearch.TabIndex = 21
        Me.btnSearch.Text = "<EFBFBD><EFBFBD>ȸ"
        '
        'txtSearchID
        '
        Me.txtSearchID.Location = New System.Drawing.Point(256, 24)
        Me.txtSearchID.Name = "txtSearchID"
        Me.txtSearchID.Size = New System.Drawing.Size(104, 21)
        Me.txtSearchID.TabIndex = 18
        Me.txtSearchID.Text = "txtSearchID"
        '
        'cboServerName
        '
        Me.cboServerName.Location = New System.Drawing.Point(32, 24)
        Me.cboServerName.Name = "cboServerName"
        Me.cboServerName.Size = New System.Drawing.Size(104, 20)
        Me.cboServerName.TabIndex = 19
        '
        'grbcharinfo
        '
        Me.grbcharinfo.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtUID, Me.lbluid, Me.btnEdit, Me.txtName, Me.txtCID, Me.GroupBox6, Me.GroupBox5, Me.GroupBox4, Me.GroupBox3, Me.lblname, Me.lblcid})
        Me.grbcharinfo.Location = New System.Drawing.Point(176, 120)
        Me.grbcharinfo.Name = "grbcharinfo"
        Me.grbcharinfo.Size = New System.Drawing.Size(552, 408)
        Me.grbcharinfo.TabIndex = 3
        Me.grbcharinfo.TabStop = False
        Me.grbcharinfo.Text = "ij<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'btnEdit
        '
        Me.btnEdit.Location = New System.Drawing.Point(400, 68)
        Me.btnEdit.Name = "btnEdit"
        Me.btnEdit.Size = New System.Drawing.Size(96, 32)
        Me.btnEdit.TabIndex = 46
        Me.btnEdit.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'txtName
        '
        Me.txtName.Location = New System.Drawing.Point(256, 72)
        Me.txtName.Name = "txtName"
        Me.txtName.Size = New System.Drawing.Size(120, 21)
        Me.txtName.TabIndex = 45
        Me.txtName.Text = "txtName"
        '
        'txtCID
        '
        Me.txtCID.Location = New System.Drawing.Point(80, 72)
        Me.txtCID.Name = "txtCID"
        Me.txtCID.Size = New System.Drawing.Size(107, 21)
        Me.txtCID.TabIndex = 44
        Me.txtCID.Text = "txtCID"
        '
        'GroupBox6
        '
        Me.GroupBox6.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtExp, Me.txtMp, Me.txtHp, Me.lblexp, Me.lblmp, Me.lblhp})
        Me.GroupBox6.Location = New System.Drawing.Point(40, 344)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(456, 52)
        Me.GroupBox6.TabIndex = 43
        Me.GroupBox6.TabStop = False
        '
        'txtExp
        '
        Me.txtExp.Location = New System.Drawing.Point(352, 16)
        Me.txtExp.Name = "txtExp"
        Me.txtExp.Size = New System.Drawing.Size(80, 21)
        Me.txtExp.TabIndex = 42
        Me.txtExp.Text = "txtExp"
        '
        'txtMp
        '
        Me.txtMp.Location = New System.Drawing.Point(211, 16)
        Me.txtMp.Name = "txtMp"
        Me.txtMp.Size = New System.Drawing.Size(80, 21)
        Me.txtMp.TabIndex = 41
        Me.txtMp.Text = "txtMp"
        '
        'txtHp
        '
        Me.txtHp.Location = New System.Drawing.Point(71, 16)
        Me.txtHp.Name = "txtHp"
        Me.txtHp.Size = New System.Drawing.Size(80, 21)
        Me.txtHp.TabIndex = 40
        Me.txtHp.Text = "txtHp"
        '
        'lblexp
        '
        Me.lblexp.AutoSize = True
        Me.lblexp.Location = New System.Drawing.Point(312, 24)
        Me.lblexp.Name = "lblexp"
        Me.lblexp.Size = New System.Drawing.Size(28, 14)
        Me.lblexp.TabIndex = 35
        Me.lblexp.Text = "EXP"
        '
        'lblmp
        '
        Me.lblmp.AutoSize = True
        Me.lblmp.Location = New System.Drawing.Point(176, 23)
        Me.lblmp.Name = "lblmp"
        Me.lblmp.Size = New System.Drawing.Size(22, 14)
        Me.lblmp.TabIndex = 34
        Me.lblmp.Text = "MP"
        '
        'lblhp
        '
        Me.lblhp.AutoSize = True
        Me.lblhp.Location = New System.Drawing.Point(36, 20)
        Me.lblhp.Name = "lblhp"
        Me.lblhp.Size = New System.Drawing.Size(21, 14)
        Me.lblhp.TabIndex = 33
        Me.lblhp.Text = "HP"
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtWis, Me.txtIni, Me.txtCon, Me.txtDex, Me.txtStr, Me.txtLevel, Me.lblstr, Me.lbldex, Me.lblcon, Me.lblini, Me.lblwis, Me.lbllevel})
        Me.GroupBox5.Location = New System.Drawing.Point(39, 264)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(457, 80)
        Me.GroupBox5.TabIndex = 42
        Me.GroupBox5.TabStop = False
        '
        'txtWis
        '
        Me.txtWis.Location = New System.Drawing.Point(351, 43)
        Me.txtWis.Name = "txtWis"
        Me.txtWis.Size = New System.Drawing.Size(80, 21)
        Me.txtWis.TabIndex = 45
        Me.txtWis.Text = "txtWis"
        '
        'txtIni
        '
        Me.txtIni.Location = New System.Drawing.Point(211, 43)
        Me.txtIni.Name = "txtIni"
        Me.txtIni.Size = New System.Drawing.Size(80, 21)
        Me.txtIni.TabIndex = 44
        Me.txtIni.Text = "txtCon"
        '
        'txtCon
        '
        Me.txtCon.Location = New System.Drawing.Point(72, 44)
        Me.txtCon.Name = "txtCon"
        Me.txtCon.Size = New System.Drawing.Size(80, 21)
        Me.txtCon.TabIndex = 43
        Me.txtCon.Text = "txtCon"
        '
        'txtDex
        '
        Me.txtDex.Location = New System.Drawing.Point(352, 16)
        Me.txtDex.Name = "txtDex"
        Me.txtDex.Size = New System.Drawing.Size(80, 21)
        Me.txtDex.TabIndex = 42
        Me.txtDex.Text = "txtDex"
        '
        'txtStr
        '
        Me.txtStr.Location = New System.Drawing.Point(212, 15)
        Me.txtStr.Name = "txtStr"
        Me.txtStr.Size = New System.Drawing.Size(80, 21)
        Me.txtStr.TabIndex = 41
        Me.txtStr.Text = "txtStr"
        '
        'txtLevel
        '
        Me.txtLevel.Location = New System.Drawing.Point(72, 16)
        Me.txtLevel.Name = "txtLevel"
        Me.txtLevel.Size = New System.Drawing.Size(80, 21)
        Me.txtLevel.TabIndex = 40
        Me.txtLevel.Text = "txtLevel"
        '
        'lblstr
        '
        Me.lblstr.AutoSize = True
        Me.lblstr.Location = New System.Drawing.Point(173, 21)
        Me.lblstr.Name = "lblstr"
        Me.lblstr.Size = New System.Drawing.Size(28, 14)
        Me.lblstr.TabIndex = 28
        Me.lblstr.Text = "STR"
        '
        'lbldex
        '
        Me.lbldex.AutoSize = True
        Me.lbldex.Location = New System.Drawing.Point(314, 21)
        Me.lbldex.Name = "lbldex"
        Me.lbldex.Size = New System.Drawing.Size(29, 14)
        Me.lbldex.TabIndex = 29
        Me.lbldex.Text = "DEX"
        '
        'lblcon
        '
        Me.lblcon.AutoSize = True
        Me.lblcon.Location = New System.Drawing.Point(30, 48)
        Me.lblcon.Name = "lblcon"
        Me.lblcon.Size = New System.Drawing.Size(32, 14)
        Me.lblcon.TabIndex = 30
        Me.lblcon.Text = "CON"
        '
        'lblini
        '
        Me.lblini.AutoSize = True
        Me.lblini.Location = New System.Drawing.Point(181, 47)
        Me.lblini.Name = "lblini"
        Me.lblini.Size = New System.Drawing.Size(20, 14)
        Me.lblini.TabIndex = 31
        Me.lblini.Text = "INI"
        '
        'lblwis
        '
        Me.lblwis.AutoSize = True
        Me.lblwis.Location = New System.Drawing.Point(312, 48)
        Me.lblwis.Name = "lblwis"
        Me.lblwis.Size = New System.Drawing.Size(27, 14)
        Me.lblwis.TabIndex = 32
        Me.lblwis.Text = "WIS"
        '
        'lbllevel
        '
        Me.lbllevel.AutoSize = True
        Me.lbllevel.Location = New System.Drawing.Point(35, 21)
        Me.lbllevel.Name = "lbllevel"
        Me.lbllevel.Size = New System.Drawing.Size(29, 14)
        Me.lbllevel.TabIndex = 25
        Me.lbllevel.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtIP, Me.txtParty, Me.txtGuild, Me.txtMoney, Me.txtFame, Me.txtMi, Me.lblmi, Me.lblfame, Me.lblmoney, Me.lblguild, Me.lblparty, Me.lblip})
        Me.GroupBox4.Location = New System.Drawing.Point(40, 192)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(456, 72)
        Me.GroupBox4.TabIndex = 41
        Me.GroupBox4.TabStop = False
        '
        'txtIP
        '
        Me.txtIP.Location = New System.Drawing.Point(347, 41)
        Me.txtIP.Name = "txtIP"
        Me.txtIP.Size = New System.Drawing.Size(80, 21)
        Me.txtIP.TabIndex = 45
        Me.txtIP.Text = "txtIP"
        '
        'txtParty
        '
        Me.txtParty.Location = New System.Drawing.Point(211, 41)
        Me.txtParty.Name = "txtParty"
        Me.txtParty.Size = New System.Drawing.Size(80, 21)
        Me.txtParty.TabIndex = 44
        Me.txtParty.Text = "txtGuild"
        '
        'txtGuild
        '
        Me.txtGuild.Location = New System.Drawing.Point(72, 41)
        Me.txtGuild.Name = "txtGuild"
        Me.txtGuild.Size = New System.Drawing.Size(80, 21)
        Me.txtGuild.TabIndex = 43
        Me.txtGuild.Text = "txtGuild"
        '
        'txtMoney
        '
        Me.txtMoney.Location = New System.Drawing.Point(347, 18)
        Me.txtMoney.Name = "txtMoney"
        Me.txtMoney.Size = New System.Drawing.Size(80, 21)
        Me.txtMoney.TabIndex = 42
        Me.txtMoney.Text = "txtMoney"
        '
        'txtFame
        '
        Me.txtFame.Location = New System.Drawing.Point(211, 16)
        Me.txtFame.Name = "txtFame"
        Me.txtFame.Size = New System.Drawing.Size(80, 21)
        Me.txtFame.TabIndex = 41
        Me.txtFame.Text = "txtFame"
        '
        'txtMi
        '
        Me.txtMi.Location = New System.Drawing.Point(72, 15)
        Me.txtMi.Name = "txtMi"
        Me.txtMi.Size = New System.Drawing.Size(80, 21)
        Me.txtMi.TabIndex = 40
        Me.txtMi.Text = "txtMi"
        '
        'lblmi
        '
        Me.lblmi.AutoSize = True
        Me.lblmi.Location = New System.Drawing.Point(14, 20)
        Me.lblmi.Name = "lblmi"
        Me.lblmi.Size = New System.Drawing.Size(54, 14)
        Me.lblmi.TabIndex = 22
        Me.lblmi.Text = "<EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><EFBFBD><EFBFBD>"
        '
        'lblfame
        '
        Me.lblfame.AutoSize = True
        Me.lblfame.Location = New System.Drawing.Point(175, 22)
        Me.lblfame.Name = "lblfame"
        Me.lblfame.Size = New System.Drawing.Size(29, 14)
        Me.lblfame.TabIndex = 21
        Me.lblfame.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'lblmoney
        '
        Me.lblmoney.AutoSize = True
        Me.lblmoney.Location = New System.Drawing.Point(315, 23)
        Me.lblmoney.Name = "lblmoney"
        Me.lblmoney.Size = New System.Drawing.Size(17, 14)
        Me.lblmoney.TabIndex = 26
        Me.lblmoney.Text = "<EFBFBD><EFBFBD>"
        '
        'lblguild
        '
        Me.lblguild.AutoSize = True
        Me.lblguild.Location = New System.Drawing.Point(37, 45)
        Me.lblguild.Name = "lblguild"
        Me.lblguild.Size = New System.Drawing.Size(29, 14)
        Me.lblguild.TabIndex = 23
        Me.lblguild.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'lblparty
        '
        Me.lblparty.AutoSize = True
        Me.lblparty.Location = New System.Drawing.Point(175, 46)
        Me.lblparty.Name = "lblparty"
        Me.lblparty.Size = New System.Drawing.Size(29, 14)
        Me.lblparty.TabIndex = 24
        Me.lblparty.Text = "<EFBFBD><EFBFBD>Ƽ"
        '
        'lblip
        '
        Me.lblip.AutoSize = True
        Me.lblip.Location = New System.Drawing.Point(315, 46)
        Me.lblip.Name = "lblip"
        Me.lblip.Size = New System.Drawing.Size(16, 14)
        Me.lblip.TabIndex = 27
        Me.lblip.Text = "IP"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtClass, Me.txtFace, Me.txtKind, Me.txtHead, Me.txtMW, Me.lblmw, Me.lblhead, Me.lblface, Me.lblkind, Me.lblclass})
        Me.GroupBox3.Location = New System.Drawing.Point(40, 112)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(456, 80)
        Me.GroupBox3.TabIndex = 40
        Me.GroupBox3.TabStop = False
        '
        'txtClass
        '
        Me.txtClass.Location = New System.Drawing.Point(208, 43)
        Me.txtClass.Name = "txtClass"
        Me.txtClass.Size = New System.Drawing.Size(80, 21)
        Me.txtClass.TabIndex = 43
        Me.txtClass.Text = "txtClass"
        '
        'txtFace
        '
        Me.txtFace.Location = New System.Drawing.Point(72, 44)
        Me.txtFace.Name = "txtFace"
        Me.txtFace.Size = New System.Drawing.Size(80, 21)
        Me.txtFace.TabIndex = 42
        Me.txtFace.Text = "txtFace"
        '
        'txtKind
        '
        Me.txtKind.Location = New System.Drawing.Point(352, 17)
        Me.txtKind.Name = "txtKind"
        Me.txtKind.Size = New System.Drawing.Size(80, 21)
        Me.txtKind.TabIndex = 41
        Me.txtKind.Text = "txtKind"
        '
        'txtHead
        '
        Me.txtHead.Location = New System.Drawing.Point(208, 16)
        Me.txtHead.Name = "txtHead"
        Me.txtHead.Size = New System.Drawing.Size(80, 21)
        Me.txtHead.TabIndex = 40
        Me.txtHead.Text = "txtHead"
        '
        'txtMW
        '
        Me.txtMW.Location = New System.Drawing.Point(72, 16)
        Me.txtMW.Name = "txtMW"
        Me.txtMW.Size = New System.Drawing.Size(80, 21)
        Me.txtMW.TabIndex = 39
        Me.txtMW.Text = "txtMW"
        '
        'lblmw
        '
        Me.lblmw.AutoSize = True
        Me.lblmw.Location = New System.Drawing.Point(32, 20)
        Me.lblmw.Name = "lblmw"
        Me.lblmw.Size = New System.Drawing.Size(29, 14)
        Me.lblmw.TabIndex = 38
        Me.lblmw.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'lblhead
        '
        Me.lblhead.AutoSize = True
        Me.lblhead.Location = New System.Drawing.Point(168, 21)
        Me.lblhead.Name = "lblhead"
        Me.lblhead.Size = New System.Drawing.Size(29, 14)
        Me.lblhead.TabIndex = 37
        Me.lblhead.Text = "<EFBFBD>Ӹ<EFBFBD>"
        '
        'lblface
        '
        Me.lblface.AutoSize = True
        Me.lblface.Location = New System.Drawing.Point(32, 49)
        Me.lblface.Name = "lblface"
        Me.lblface.Size = New System.Drawing.Size(29, 14)
        Me.lblface.TabIndex = 36
        Me.lblface.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'lblkind
        '
        Me.lblkind.AutoSize = True
        Me.lblkind.Location = New System.Drawing.Point(312, 23)
        Me.lblkind.Name = "lblkind"
        Me.lblkind.Size = New System.Drawing.Size(29, 14)
        Me.lblkind.TabIndex = 19
        Me.lblkind.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'lblclass
        '
        Me.lblclass.AutoSize = True
        Me.lblclass.Location = New System.Drawing.Point(160, 49)
        Me.lblclass.Name = "lblclass"
        Me.lblclass.Size = New System.Drawing.Size(42, 14)
        Me.lblclass.TabIndex = 20
        Me.lblclass.Text = "Ŭ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'lblname
        '
        Me.lblname.AutoSize = True
        Me.lblname.Location = New System.Drawing.Point(200, 76)
        Me.lblname.Name = "lblname"
        Me.lblname.Size = New System.Drawing.Size(54, 14)
        Me.lblname.TabIndex = 39
        Me.lblname.Text = "ij<EFBFBD><EFBFBD><EFBFBD>͸<EFBFBD>"
        '
        'lblcid
        '
        Me.lblcid.AutoSize = True
        Me.lblcid.Location = New System.Drawing.Point(48, 77)
        Me.lblcid.Name = "lblcid"
        Me.lblcid.Size = New System.Drawing.Size(26, 14)
        Me.lblcid.TabIndex = 18
        Me.lblcid.Text = "CID"
        '
        'GroupBox7
        '
        Me.GroupBox7.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnBlock, Me.rdoBlockRE, Me.RadioButton1, Me.Label2})
        Me.GroupBox7.Location = New System.Drawing.Point(224, 648)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(424, 64)
        Me.GroupBox7.TabIndex = 4
        Me.GroupBox7.TabStop = False
        Me.GroupBox7.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'btnBlock
        '
        Me.btnBlock.Location = New System.Drawing.Point(310, 21)
        Me.btnBlock.Name = "btnBlock"
        Me.btnBlock.Size = New System.Drawing.Size(89, 29)
        Me.btnBlock.TabIndex = 45
        Me.btnBlock.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϱ<EFBFBD>"
        '
        'rdoBlockRE
        '
        Me.rdoBlockRE.Location = New System.Drawing.Point(201, 26)
        Me.rdoBlockRE.Name = "rdoBlockRE"
        Me.rdoBlockRE.Size = New System.Drawing.Size(79, 24)
        Me.rdoBlockRE.TabIndex = 36
        Me.rdoBlockRE.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'RadioButton1
        '
        Me.RadioButton1.Location = New System.Drawing.Point(130, 27)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.Size = New System.Drawing.Size(62, 24)
        Me.RadioButton1.TabIndex = 35
        Me.RadioButton1.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(32, 32)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(79, 14)
        Me.Label2.TabIndex = 34
        Me.Label2.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>üũ"
        '
        'lboxCharid
        '
        Me.lboxCharid.ItemHeight = 12
        Me.lboxCharid.Location = New System.Drawing.Point(64, 152)
        Me.lboxCharid.Name = "lboxCharid"
        Me.lboxCharid.Size = New System.Drawing.Size(104, 124)
        Me.lboxCharid.TabIndex = 5
        '
        'grblocation
        '
        Me.grblocation.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnMove, Me.txtZ, Me.txtY, Me.txtX, Me.lblx, Me.lbly, Me.lblz})
        Me.grblocation.Location = New System.Drawing.Point(176, 528)
        Me.grblocation.Name = "grblocation"
        Me.grblocation.Size = New System.Drawing.Size(552, 56)
        Me.grblocation.TabIndex = 6
        Me.grblocation.TabStop = False
        Me.grblocation.Text = "<EFBFBD><EFBFBD>ġ<EFBFBD><EFBFBD>ǥ"
        '
        'btnMove
        '
        Me.btnMove.Location = New System.Drawing.Point(448, 16)
        Me.btnMove.Name = "btnMove"
        Me.btnMove.Size = New System.Drawing.Size(89, 29)
        Me.btnMove.TabIndex = 44
        Me.btnMove.Text = "<EFBFBD><EFBFBD>ǥ<EFBFBD>̵<EFBFBD>"
        '
        'txtZ
        '
        Me.txtZ.Location = New System.Drawing.Point(347, 20)
        Me.txtZ.Name = "txtZ"
        Me.txtZ.Size = New System.Drawing.Size(80, 21)
        Me.txtZ.TabIndex = 43
        Me.txtZ.Text = "txtZ"
        '
        'txtY
        '
        Me.txtY.Location = New System.Drawing.Point(206, 20)
        Me.txtY.Name = "txtY"
        Me.txtY.Size = New System.Drawing.Size(80, 21)
        Me.txtY.TabIndex = 42
        Me.txtY.Text = "txtY"
        '
        'txtX
        '
        Me.txtX.Location = New System.Drawing.Point(64, 20)
        Me.txtX.Name = "txtX"
        Me.txtX.Size = New System.Drawing.Size(80, 21)
        Me.txtX.TabIndex = 41
        Me.txtX.Text = "txtX"
        '
        'lblx
        '
        Me.lblx.AutoSize = True
        Me.lblx.Location = New System.Drawing.Point(16, 24)
        Me.lblx.Name = "lblx"
        Me.lblx.Size = New System.Drawing.Size(37, 14)
        Me.lblx.TabIndex = 36
        Me.lblx.Text = "<EFBFBD><EFBFBD>ǥX"
        '
        'lbly
        '
        Me.lbly.AutoSize = True
        Me.lbly.Location = New System.Drawing.Point(157, 24)
        Me.lbly.Name = "lbly"
        Me.lbly.Size = New System.Drawing.Size(37, 14)
        Me.lbly.TabIndex = 35
        Me.lbly.Text = "<EFBFBD><EFBFBD>ǥY"
        '
        'lblz
        '
        Me.lblz.AutoSize = True
        Me.lblz.Location = New System.Drawing.Point(301, 25)
        Me.lblz.Name = "lblz"
        Me.lblz.Size = New System.Drawing.Size(37, 14)
        Me.lblz.TabIndex = 34
        Me.lblz.Text = "<EFBFBD><EFBFBD>ǥZ"
        '
        'btnDetailItemInfo
        '
        Me.btnDetailItemInfo.Location = New System.Drawing.Point(336, 592)
        Me.btnDetailItemInfo.Name = "btnDetailItemInfo"
        Me.btnDetailItemInfo.Size = New System.Drawing.Size(104, 40)
        Me.btnDetailItemInfo.TabIndex = 7
        Me.btnDetailItemInfo.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۺ<EFBFBD><EFBFBD><EFBFBD>"
        '
        'lbltitle
        '
        Me.lbltitle.AutoSize = True
        Me.lbltitle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lbltitle.Font = New System.Drawing.Font("Gulim", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
        Me.lbltitle.Location = New System.Drawing.Point(432, 32)
        Me.lbltitle.Name = "lbltitle"
        Me.lbltitle.Size = New System.Drawing.Size(147, 24)
        Me.lbltitle.TabIndex = 8
        Me.lbltitle.Text = "ij<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
        '
        'grbsearch
        '
        Me.grbsearch.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnIDSearch, Me.txtIdSearch, Me.cboIDType, Me.cboserver})
        Me.grbsearch.Location = New System.Drawing.Point(176, 72)
        Me.grbsearch.Name = "grbsearch"
        Me.grbsearch.Size = New System.Drawing.Size(552, 48)
        Me.grbsearch.TabIndex = 9
        Me.grbsearch.TabStop = False
        Me.grbsearch.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȸ"
        '
        'btnIDSearch
        '
        Me.btnIDSearch.Location = New System.Drawing.Point(448, 16)
        Me.btnIDSearch.Name = "btnIDSearch"
        Me.btnIDSearch.Size = New System.Drawing.Size(88, 24)
        Me.btnIDSearch.TabIndex = 3
        Me.btnIDSearch.Text = "<EFBFBD>˻<EFBFBD>"
        '
        'txtIdSearch
        '
        Me.txtIdSearch.Location = New System.Drawing.Point(280, 16)
        Me.txtIdSearch.Name = "txtIdSearch"
        Me.txtIdSearch.Size = New System.Drawing.Size(152, 21)
        Me.txtIdSearch.TabIndex = 2
        Me.txtIdSearch.Text = "txtIdSearch"
        '
        'cboIDType
        '
        Me.cboIDType.Location = New System.Drawing.Point(160, 16)
        Me.cboIDType.Name = "cboIDType"
        Me.cboIDType.Size = New System.Drawing.Size(112, 20)
        Me.cboIDType.TabIndex = 1
        Me.cboIDType.Text = "cboIDType"
        '
        'cboserver
        '
        Me.cboserver.Location = New System.Drawing.Point(40, 16)
        Me.cboserver.Name = "cboserver"
        Me.cboserver.Size = New System.Drawing.Size(112, 20)
        Me.cboserver.TabIndex = 0
        Me.cboserver.Text = "cboServer"
        '
        'btnCharSearch
        '
        Me.btnCharSearch.Location = New System.Drawing.Point(64, 288)
        Me.btnCharSearch.Name = "btnCharSearch"
        Me.btnCharSearch.Size = New System.Drawing.Size(104, 32)
        Me.btnCharSearch.TabIndex = 10
        Me.btnCharSearch.Text = "ij<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD>"
        '
        'CommitButton
        '
        Me.CommitButton.Location = New System.Drawing.Point(456, 592)
        Me.CommitButton.Name = "CommitButton"
        Me.CommitButton.Size = New System.Drawing.Size(104, 40)
        Me.CommitButton.TabIndex = 11
        Me.CommitButton.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϸ<EFBFBD>"
        '
        'txtUID
        '
        Me.txtUID.Location = New System.Drawing.Point(80, 32)
        Me.txtUID.Name = "txtUID"
        Me.txtUID.Size = New System.Drawing.Size(107, 21)
        Me.txtUID.TabIndex = 48
        Me.txtUID.Text = "txtUID"
        '
        'lbluid
        '
        Me.lbluid.AutoSize = True
        Me.lbluid.Location = New System.Drawing.Point(48, 36)
        Me.lbluid.Name = "lbluid"
        Me.lbluid.Size = New System.Drawing.Size(26, 14)
        Me.lbluid.TabIndex = 47
        Me.lbluid.Text = "UID"
        '
        'CharInfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(976, 753)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.CommitButton, Me.btnCharSearch, Me.grbsearch, Me.lbltitle, Me.btnDetailItemInfo, Me.grblocation, Me.lboxCharid, Me.GroupBox7, Me.grbcharinfo})
        Me.Name = "CharInfo"
        Me.Text = "ij<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
        Me.grbcharinfo.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox7.ResumeLayout(False)
        Me.grblocation.ResumeLayout(False)
        Me.grbsearch.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region


    Public CharItemData As New ArrayList()


    Private Sub CharInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ProcessPacket.ICharInfo = Me

        DBConn.SetServerNames(cboserver)

        cboIDType.Items.Add(ITextCharInfo.cboidtype_uid)
        cboIDType.Items.Add(ITextCharInfo.cboidtype_name)
        cboIDType.SelectedIndex = 0

        AddHandler Me.Closing, AddressOf Me.WantClose

        Me.Text = ITextCharInfo.formheader
        Me.grbcharinfo.Text = ITextCharInfo.grbcharinfo
        Me.grblocation.Text = ITextCharInfo.grblocation
        Me.grbsearch.Text = ITextCharInfo.grbsearch
        Me.lblcid.Text = ITextCharInfo.lblcid
        Me.lblclass.Text = ITextCharInfo.lblclass
        Me.lblcon.Text = ITextCharInfo.lblcon
        Me.lbldex.Text = ITextCharInfo.lbldex
        Me.lblexp.Text = ITextCharInfo.lblexp
        Me.lblface.Text = ITextCharInfo.lblface
        Me.lblfame.Text = ITextCharInfo.lblfame
        Me.lblguild.Text = ITextCharInfo.lblguild
        Me.lblhead.Text = ITextCharInfo.lblhead
        Me.lblhp.Text = ITextCharInfo.lblhp
        Me.lblini.Text = ITextCharInfo.lblini
        Me.lblip.Text = ITextCharInfo.lblip
        Me.lblkind.Text = ITextCharInfo.lblkind
        Me.lbllevel.Text = ITextCharInfo.lbllevel
        Me.lblmi.Text = ITextCharInfo.lblmi
        Me.lblmoney.Text = ITextCharInfo.lblmoney
        Me.lblmp.Text = ITextCharInfo.lblmp
        Me.lblmw.Text = ITextCharInfo.lblmw
        Me.lblname.Text = ITextCharInfo.cboidtype_name
        Me.lblparty.Text = ITextCharInfo.lblparty
        Me.lblstr.Text = ITextCharInfo.lblstr
        Me.lbltitle.Text = ITextCharInfo.lbltitle
        Me.lblwis.Text = ITextCharInfo.lblwis
        Me.lblx.Text = ITextCharInfo.lblx
        Me.lbly.Text = ITextCharInfo.lbly
        Me.lblz.Text = ITextCharInfo.lblz

        btnIDSearch.Text = ITextButton.btnSearch
        btnEdit.Text = ITextButton.btnEdit
        btnCharSearch.Text = ITextButton.btnSearchCharinfo
        btnDetailItemInfo.Text = ITextButton.btnSeeItem
        CommitButton.Text = ITextButton.btnCommit
        btnMove.Text = ITextButton.btnMove

        txtIdSearch.Text = ""
        TextBoxClear()

        rdoBlockRE.Checked = True

        txtUID.ReadOnly = True
        txtCID.ReadOnly = True

        GroupBox7.Visible = False

        lboxCharid.Items.Clear()

        btnDetailItemInfo.Enabled = False

        CommitButton.Enabled = False

        '<27><><EFBFBD>ѿ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ٲٱ<D9B2>
        If IToolAdminRight.charEdit = False Then
            btnEdit.Enabled = False
        Else
            btnEdit.Enabled = True
        End If

        If IToolAdminRight.charLocation = False Then
            btnMove.Enabled = False
        Else
            btnMove.Enabled = True
        End If

        If IToolAdminRight.charseeItem = False Then
            btnDetailItemInfo.Enabled = False
        Else
            btnDetailItemInfo.Enabled = True
        End If

    End Sub

    Protected Sub WantClose(ByVal sender As Object, ByVal e As CancelEventArgs)

        If CommitButton.Enabled = True Then

            If MsgBoxResult.OK = MsgBox(ITextMSG.msg_commit, MsgBoxStyle.OKCancel, ITextMSG.msg_error) Then
                e.Cancel = True
            Else
                e.Cancel = False
            End If

        Else
            e.Cancel = False
        End If

    End Sub 'Form1_Cancel

    Private Sub CharInfo_UnLoad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed

        ProcessPacket.ICharInfo = Nothing
        ProcessPacket.IRylMDI.ICharinfo = Nothing
    End Sub


    Private Sub txtCID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCID.TextChanged

        If txtCID.Text = "" Then
            btnEdit.Enabled = False
        Else
            btnDetailItemInfo.Enabled = True
            btnEdit.Enabled = True
        End If

    End Sub


    '<27><>ȸ<EFBFBD>ϱ<EFBFBD>
    Private Sub btnIDSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIDSearch.Click

        TextBoxClear()

        btnDetailItemInfo.Enabled = False

        lboxCharid.Items.Clear()

        Dim serverid As Byte

        Select Case cboserver.SelectedIndex
            Case 0
                serverid = 0
            Case 1
                serverid = 1
            Case 2
                serverid = 2
            Case 3
                serverid = 3
            Case 4
                serverid = 4
            Case 5
                serverid = 5
            Case 6
                serverid = 6
        End Select

        'UID <20><>ȸ
        If cboIDType.Text = "UID" Then

            Dim sendb(4) As Byte
            Dim dwUID As Int32 = 0

            Try
                dwUID = CInt(txtIdSearch.Text)    ' UID
            Catch
                Exit Sub
            End Try

            Array.Copy(BitConverter.GetBytes(dwUID), 0, sendb, 0, 4)

            sendb(4) = serverid                            ' ServerID

            btnIDSearch.Enabled = False
            IClientSocket.Send(13, sendb)

        Else
            SendGetCharInfo(txtIdSearch.Text, 0, 0, serverid)
        End If
    End Sub

    '<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        Dim EditYesNo As Integer

        btnEdit.Enabled = False
        EditYesNo = MsgBox(txtName.Text + " " + ITextMSG.msg_charedit, MsgBoxStyle.YesNo, ITextMSG.msg_success)

        If EditYesNo = vbYes Then

            SendPacket.UpdateCharData(Me)

            CommitButton.Enabled = True
        Else
            MsgBox(ITextMSG.msg_cancel, MsgBoxStyle.OKOnly, ITextMSG.msg_success)
        End If
        btnEdit.Enabled = True
    End Sub

    '<27><>ǥ<EFBFBD>̵<EFBFBD><CCB5>ϱ<EFBFBD>.............
    Private Sub btnMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMove.Click

        Dim MoveYesNo As Integer

        btnMove.Enabled = False
        MoveYesNo = MsgBox(txtName.Text + " " + ITextMSG.msg_changelocation, MsgBoxStyle.YesNo, ITextMSG.msg_success)

        If MoveYesNo = vbYes Then

            SendPacket.UpdateLastPos(Me)
            CommitButton.Enabled = True

        Else
            MsgBox(ITextMSG.msg_cancel, MsgBoxStyle.OKOnly, ITextMSG.msg_success)
        End If
        btnMove.Enabled = True

    End Sub

    Private Sub btnBlock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBlock.Click

        Dim ICharRestraintReg As New CharRestraintReg()
        ICharRestraintReg.ShowDialog()
    End Sub

    Private Sub btnDetailItemInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDetailItemInfo.Click

        Dim ICharItemInfo As New CharItemInfo()
        SERVER = cboserver.Text
        CHARNAME = txtName.Text

        ICharItemInfo.ShowDialog()

    End Sub

    'ij<><C4B3><EFBFBD>ͺ<EFBFBD> <20>˻<EFBFBD>.
    Private Sub btnCharSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCharSearch.Click

        Dim Charid As String

        If lboxCharid.SelectedIndex < 0 Then

            MsgBox(ITextMSG.msg_selectchar, MsgBoxStyle.OKOnly, ITextMSG.msg_success)
            Exit Sub
        Else

            Dim serverid As Byte

            Select Case cboserver.SelectedIndex
                Case 0
                    serverid = 0
                Case 1
                    serverid = 1
                Case 2
                    serverid = 2
                Case 3
                    serverid = 3
                Case 4
                    serverid = 4
                Case 5
                    serverid = 5
                Case 6
                    serverid = 6
            End Select

            SendGetCharInfo(lboxCharid.Items(lboxCharid.SelectedIndex), 0, 0, serverid)

        End If

    End Sub

    Private Sub SendGetCharInfo(ByVal Name As String, ByVal UID As Int32, ByVal CID As Int32, ByVal serverGroup As Byte)

        ' <20><>ư Disable..
        btnCharSearch.Enabled = False
        btnIDSearch.Enabled = False

        ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
        CharItemData.Clear()

        Dim sendb(25) As Byte

        Encoding.GetEncoding(Code).GetBytes(Name, 0, Min(16, Name.Length), sendb, 0)
        Array.Copy(BitConverter.GetBytes(UID), 0, sendb, 16, 4)
        Array.Copy(BitConverter.GetBytes(CID), 0, sendb, 20, 4)

        sendb(24) = serverGroup

        IClientSocket.Send(14, sendb)

    End Sub

    Private Sub CommitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CommitButton.Click

        SendPacket.Commit()

        CommitButton.Enabled = False

    End Sub

    Private Sub TextBoxClear()

        txtUID.Text = ""
        txtCID.Text = ""
        txtName.Text = ""
        txtMW.Text = ""
        txtHead.Text = ""
        txtKind.Text = ""
        txtFace.Text = ""
        txtClass.Text = ""

        txtMi.Text = ""
        txtFame.Text = ""
        txtMoney.Text = ""
        txtGuild.Text = ""
        txtParty.Text = ""
        txtIP.Text = ""

        txtLevel.Text = ""
        txtStr.Text = ""
        txtDex.Text = ""
        txtCon.Text = ""
        txtIni.Text = ""
        txtWis.Text = ""

        txtHp.Text = ""
        txtMp.Text = ""
        txtExp.Text = ""

        txtX.Text = ""
        txtY.Text = ""
        txtZ.Text = ""

    End Sub



End Class