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 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 = "조회" ' '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 = "캐릭터정보" ' '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 = "정보수정" ' '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 = "레벨" ' '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 = "마일리지" ' '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 = "명성" ' '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 = "돈" ' '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 = "길드" ' '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 = "파티" ' '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 = "성별" ' '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 = "머리" ' '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 = "얼굴" ' '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 = "종족" ' '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 = "클래스" ' '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 = "캐릭터명" ' '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 = "블럭정보" ' '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 = "블럭하기" ' '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 = "블럭해제" ' '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 = "블럭중" ' '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 = "블럭여부체크" ' '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 = "위치좌표" ' '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 = "좌표이동" ' '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 = "좌표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 = "좌표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 = "좌표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 = "소유아이템보기" ' '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 = "캐릭터정보보기" ' '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 = "정보조회" ' '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 = "검색" ' '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 = "캐릭별검색" ' '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 = "수정완료" ' '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 = "캐릭터 정보" 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 '권한에 따라서 바꾸기 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 '조회하기 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 조회 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 '정보 수정 보내기 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 '좌표이동하기............. 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 '캐릭터별 검색. 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) ' 버튼 Disable.. btnCharSearch.Enabled = False btnIDSearch.Enabled = False ' 아이템 정보 전부 날린다. 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