Client/Server/ToolProject/RCMS_Tool/adminToolString.vb

Imports System.Xml

Module adminToolString


    'Texting.................
    Public Structure TextAdminInfo
        Dim cbosearchtypeitem_total As String
        Dim cbosearchtypeitem_adminid As String

        Dim AdminInfo_Header As String
        Dim AdminInfo_Title As String
        Dim admininfo_adminid As String
        Dim admininfo_name As String
        Dim admininfo_pass As String
        Dim admininfo_pass2 As String
        Dim admininfo_ip As String
        Dim admininfo_rights As String

        Dim cboadminkind_admin As String
        Dim cboadminkind_subadmin As String
        Dim cboadminkind_part As String

    End Structure

    Public Structure TextAdminSetting
        Dim form_header As String
        Dim lbltitle As String
        Dim grbcharadmin As String
        Dim chkCharedit As String
        Dim chkCharlocation As String
        Dim chkCharSeeItem As String
        Dim grbrestraint As String
        Dim chkRestraintReg As String
        Dim chkRestraintRelease As String
        Dim grbitemadmin As String
        Dim chkItemReg As String
        Dim chkItemedit As String
        Dim chkItemDelete As String
        Dim grblogout As String
        Dim chkCurrentLogin As String
        Dim chkLastLogin As String
        Dim chkDoingLogout As String
    End Structure

    Public Structure TextLogin
        Dim formheader As String
        Dim lblid As String
        Dim lblpass As String
    End Structure

    Public Structure TextButton

        Dim btnSearch As String
        Dim btnDelete As String
        Dim btnEdit As String
        Dim btnCreate As String
        Dim btnCreate_Real As String
        Dim btnSetting As String    '운영자권한설정
        Dim btnLogin As String
        Dim btnEnd As String
        Dim btnSeeItem As String
        Dim btnCommit As String
        Dim btnSearchCharinfo As String
        Dim btnMove As String
        Dim btnClose As String
        Dim btnLogOut As String

    End Structure

    Public Structure TextMSG
        Dim msg_success As String
        Dim msg_faild As String
        Dim msg_error As String
        Dim msg_confirm As String
        Dim msg_inputadminid As String '검색하고 싶은 관리자ID를 입력해주세요
        Dim msg_regadmin As String '등록할 관리자 아이디를 입력해주세요
        Dim msg_passadmin As String '빈 암호이거나 암호확인이 틀렸습니다.다시 비밀번호를 입력해주세요
        Dim msg_confirmdel As String '아이디를 정말 삭제하시겠습니까?"
        Dim msg_cancel As String '취소하였습니다
        Dim msg_confirmedit As String '수정할 아이디를 선택해주세요
        Dim msg_disconn As String '서버와의 접속이 끊어졌습니다.
        Dim msg_login As String
        Dim msg_pass As String
        Dim msg_commit As String
        Dim msg_charedit As String
        Dim msg_changelocation As String
        Dim msg_selectchar As String
        Dim msg_permit As String
        Dim msg_itemchange As String
        Dim msg_itemdel As String
        Dim msg_itemcreate As String
        Dim msg_logout As String

    End Structure

    Public Structure TextCharInfo
        Dim formheader As String
        Dim lbltitle As String
        Dim grbsearch As String
        Dim cboidtype_uid As String
        Dim cboidtype_name As String
        Dim grbcharinfo As String
        Dim lblcid As String
        Dim lblmw As String
        Dim lblhead As String
        Dim lblkind As String
        Dim lblface As String
        Dim lblclass As String
        Dim lblmi As String
        Dim lblfame As String
        Dim lblmoney As String
        Dim lblguild As String
        Dim lblparty As String
        Dim lblip As String
        Dim lbllevel As String
        Dim lblstr As String
        Dim lbldex As String
        Dim lblcon As String
        Dim lblini As String
        Dim lblwis As String
        Dim lblhp As String
        Dim lblmp As String
        Dim lblexp As String
        Dim grblocation As String
        Dim lblx As String
        Dim lbly As String
        Dim lblz As String
    End Structure

    Public Structure TextItemInfo
        Dim formheader As String
        Dim cboitemwhere_1 As String
        Dim cboitemwhere_2 As String
        Dim cboitemwhere_3 As String
        Dim cboitemwhere_4 As String
        Dim cboitemwhere_5 As String
        Dim cboitemwhere_6 As String
    End Structure

    Public Structure TextCharRestraint
        Dim formheader As String
        Dim lblserver As String
        Dim lblsearchwide As String
        Dim lbluid As String
        Dim cboType_1 As String
        Dim cboType_2 As String
    End Structure

    Public Structure TextRylMDI
        Dim formheader As String
        Dim title_1 As String
        Dim title_2 As String
        Dim title_2_1 As String
        Dim title_2_2 As String
        Dim title_3 As String
        Dim title_3_1 As String
        Dim title_3_2 As String
        Dim title_3_3 As String
    End Structure

    Public Structure TextUserLogOut
        Dim formheader_last As String
        Dim formheader_curr As String
        Dim lblhanaccount As String
    End Structure

    Public Structure TextCharRestraintreg
        Dim formheader As String
        Dim lblrestraintwide As String
        Dim cbowide_text As String
        Dim cbowide_1 As String
        Dim cbowide_2 As String
        Dim lblblockkind As String
        Dim cboblock_1 As String
        Dim cboblock_2 As String
        Dim lblrestraintway As String
        Dim lblrestrainttime As String
        Dim lblrestraintfrom As String
        Dim lblrestraintto As String
        Dim lblrestraintwhy As String
        Dim cbowhy_1 As String
        Dim cbowhy_2 As String
        Dim cbowhy_3 As String
        Dim cbowhy_4 As String
        Dim cbowhy_5 As String
        Dim cbowhy_6 As String
        Dim cbowhy_7 As String
    End Structure

    Public Structure TextCharItemInfoDetail

        Dim formheader As String
        Dim grbcharinfo As String
        Dim lblserver As String
        Dim grbiteminfo_1 As String
        Dim lblitemnum As String
        Dim lblitemname As String
        Dim lblequip As String
        Dim lblitemprototype As String
        Dim lblitemtype As String
        Dim lblitemwhere As String
        Dim lblitemxyz As String
        Dim lblitemsize As String
        Dim grbiteminfo_2 As String
        Dim lblrunesocket As String
        Dim lblmaxdurability As String
        Dim lblcurrsocket As String
        Dim lblmaxsocket As String
        Dim lblmaterial As String
        Dim lblsocket1 As String
        Dim lblsocket2 As String
        Dim lblsocket3 As String
        Dim lblsocket4 As String
        Dim lblsocket5 As String
        Dim lblsocket6 As String
        Dim lblsocket7 As String
        Dim lblsocket8 As String
        Dim grbiteminfo_3 As String
        Dim lblcritical_type As String
        Dim lblcritical_percentage As String
        Dim lblmin_damage As String
        Dim lblmax_damage As String
        Dim lbldrc As String
        Dim lbloffence_revision As String
        Dim lbldefence As String
        Dim lbldefence_revision As String
        Dim lblmagic_resistantage As String
        Dim lblblocking_percentage As String
        Dim lblmax_hp As String
        Dim lblmax_mp As String
        Dim lblhp_regent_amount As String
        Dim lblmp_regen_amount As String
        Dim lblfire_attack As String
        Dim lbllightning_attack As String
        Dim lblcold_attack As String
        Dim lbldrain_attack As String
        Dim lblpoison_attack As String
        Dim lblfire_resistance As String
        Dim lbllightning_resistance As String
        Dim lblcold_resistance As String
        Dim lbldrain_resistance As String
        Dim lblpoison_resistance As String
        Dim lbladd_str As String
        Dim lbladd_dex As String
        Dim lbladd_con As String
        Dim lbladd_int As String
        Dim lbladd_wis As String
        Dim lblamount_1 As String
        Dim lblamount_2 As String
    End Structure


    Public Structure TextProcessPacket
        Dim msg_error_1 As String
        Dim msg_success_1 As String
        Dim msg_error_2 As String
        Dim msg_error_3 As String
        Dim msg_error_4 As String
        Dim msg_success_2 As String
        Dim msg_error_5 As String
        Dim msg_success_3 As String
        Dim msg_error_6 As String
        Dim msg_error_7 As String
        Dim msg_success_4 As String
        Dim msg_error_8 As String
        Dim msg_success_5 As String
        Dim msg_error_9 As String
        Dim msg_success_6 As String
        Dim msg_error_10 As String
        Dim msg_error_11 As String
        Dim msg_success_7 As String
        Dim msg_error_12 As String
        Dim msg_success_8 As String
        Dim msg_error_13 As String
        Dim msg_success_9 As String
        Dim msg_error_14 As String
        Dim msg_success_10 As String
        Dim msg_error_15 As String
        Dim msg_success_11 As String
        Dim msg_error_16 As String
        Dim msg_success_12 As String
        Dim msg_error_17 As String
        Dim msg_success_13 As String
        Dim msg_error_18 As String
        Dim msg_error_19 As String

    End Structure

    'Public Structure TextServerList

    '    Dim test As String
    '    Dim solpis As String
    '    Dim karte As String
    '    Dim iranshya As String
    '    Dim hiland As String
    '    Dim aldia As String
    '    Dim yunite As String

    'End Structure


    Public ITextAdminInfo As New TextAdminInfo()
    Public ITextButton As New TextButton()
    Public ITextMSG As New TextMSG()
    Public ITextAdminSetting As New TextAdminSetting()
    Public ITextLogin As New TextLogin()
    Public ITextCharInfo As New TextCharInfo()
    Public ITextItemInfo As New TextItemInfo()
    Public ITextCharRestraint As New TextCharRestraint()
    Public ITextRylMDI As New TextRylMDI()
    Public ITextUserLogOut As New TextUserLogOut()
    Public ITextCharRestraintreg As New TextCharRestraintreg()
    Public ITextCharItemInfoDetail As New TextCharItemInfoDetail()
    Public ITextProcessPacket As New TextProcessPacket()
    'Public ITextServerList As New TextServerList()

    Public Function ReadValueFromKey(ByRef XMLRead As XmlTextReader, ByVal KeyName As String) As String
        XMLRead.ReadStartElement(KeyName)
        ReadValueFromKey = XMLRead.ReadString().ToString()
        XMLRead.ReadEndElement()
    End Function

    Sub READXML()

        Dim XMLREAD As XmlTextReader = New XmlTextReader("TextString.xml")

        Try

            XMLREAD.ReadStartElement("Form")

            XMLREAD.ReadStartElement("TextAdminInfo")
            ITextAdminInfo.cbosearchtypeitem_total = ReadValueFromKey(XMLREAD, "cbosearchtypeitem_total")
            ITextAdminInfo.cbosearchtypeitem_adminid = ReadValueFromKey(XMLREAD, "cbosearchtypeitem_adminid")
            ITextAdminInfo.AdminInfo_Header = ReadValueFromKey(XMLREAD, "admininfo_header")
            ITextAdminInfo.AdminInfo_Title = ReadValueFromKey(XMLREAD, "adminInfo_title")
            ITextAdminInfo.admininfo_adminid = ReadValueFromKey(XMLREAD, "admin_adminid")
            ITextAdminInfo.admininfo_name = ReadValueFromKey(XMLREAD, "admininfo_name")
            ITextAdminInfo.admininfo_pass = ReadValueFromKey(XMLREAD, "admininfo_pass")
            ITextAdminInfo.admininfo_pass2 = ReadValueFromKey(XMLREAD, "admininfo_pass2")
            ITextAdminInfo.admininfo_ip = ReadValueFromKey(XMLREAD, "admininfo_ip")
            ITextAdminInfo.admininfo_rights = ReadValueFromKey(XMLREAD, "admininfo_rights")
            ITextAdminInfo.cboadminkind_admin = ReadValueFromKey(XMLREAD, "cboadminkind_admin")
            ITextAdminInfo.cboadminkind_subadmin = ReadValueFromKey(XMLREAD, "cboadminkind_subadmin")
            ITextAdminInfo.cboadminkind_part = ReadValueFromKey(XMLREAD, "cboadminkind_part")
            XMLREAD.ReadEndElement()

            XMLREAD.ReadStartElement("TextButton")
            ITextButton.btnSearch = ReadValueFromKey(XMLREAD, "btnSearch")
            ITextButton.btnDelete = ReadValueFromKey(XMLREAD, "btnDelete")
            ITextButton.btnEdit = ReadValueFromKey(XMLREAD, "btnEdit")
            ITextButton.btnCreate = ReadValueFromKey(XMLREAD, "btnCreate")
            ITextButton.btnCreate_Real = ReadValueFromKey(XMLREAD, "btnCreate_Real")
            ITextButton.btnSetting = ReadValueFromKey(XMLREAD, "btnSetting")
            ITextButton.btnLogin = ReadValueFromKey(XMLREAD, "btnLogin")
            ITextButton.btnEnd = ReadValueFromKey(XMLREAD, "btnEnd")
            ITextButton.btnSeeItem = ReadValueFromKey(XMLREAD, "btnSeeItem")
            ITextButton.btnCommit = ReadValueFromKey(XMLREAD, "btnCommit")
            ITextButton.btnSearchCharinfo = ReadValueFromKey(XMLREAD, "btnSearchCharinfo")
            ITextButton.btnMove = ReadValueFromKey(XMLREAD, "btnMove")
            ITextButton.btnClose = ReadValueFromKey(XMLREAD, "btnClose")
            ITextButton.btnLogOut = ReadValueFromKey(XMLREAD, "btnLogout")
            XMLREAD.ReadEndElement()

            XMLREAD.ReadStartElement("TextMSG")
            ITextMSG.msg_success = ReadValueFromKey(XMLREAD, "msg_success")
            ITextMSG.msg_faild = ReadValueFromKey(XMLREAD, "msg_faild")
            ITextMSG.msg_error = ReadValueFromKey(XMLREAD, "msg_error")
            ITextMSG.msg_confirm = ReadValueFromKey(XMLREAD, "msg_confirm")
            ITextMSG.msg_inputadminid = ReadValueFromKey(XMLREAD, "msg_inputadminid")
            ITextMSG.msg_regadmin = ReadValueFromKey(XMLREAD, "msg_regadmin")
            ITextMSG.msg_passadmin = ReadValueFromKey(XMLREAD, "msg_passadmin")
            ITextMSG.msg_confirmdel = ReadValueFromKey(XMLREAD, "msg_confirmdel")
            ITextMSG.msg_cancel = ReadValueFromKey(XMLREAD, "msg_cancel")
            ITextMSG.msg_confirmedit = ReadValueFromKey(XMLREAD, "msg_confirmedit")
            ITextMSG.msg_disconn = ReadValueFromKey(XMLREAD, "msg_disconn")
            ITextMSG.msg_login = ReadValueFromKey(XMLREAD, "msg_login")
            ITextMSG.msg_pass = ReadValueFromKey(XMLREAD, "msg_pass")
            ITextMSG.msg_commit = ReadValueFromKey(XMLREAD, "msg_commit")
            ITextMSG.msg_charedit = ReadValueFromKey(XMLREAD, "msg_charedit")
            ITextMSG.msg_changelocation = ReadValueFromKey(XMLREAD, "msg_changelocation")
            ITextMSG.msg_selectchar = ReadValueFromKey(XMLREAD, "msg_selectchar")
            ITextMSG.msg_selectchar = ReadValueFromKey(XMLREAD, "msg_permit")
            ITextMSG.msg_itemchange = ReadValueFromKey(XMLREAD, "msg_itemchange")
            ITextMSG.msg_itemdel = ReadValueFromKey(XMLREAD, "msg_itemdel")
            ITextMSG.msg_itemcreate = ReadValueFromKey(XMLREAD, "msg_itemcreate")
            ITextMSG.msg_logout = ReadValueFromKey(XMLREAD, "msg_logout")

            XMLREAD.ReadEndElement()

            XMLREAD.ReadStartElement("TextAdminSetting")
            ITextAdminSetting.form_header = ReadValueFromKey(XMLREAD, "form_header")
            ITextAdminSetting.lbltitle = ReadValueFromKey(XMLREAD, "lbltitle")
            ITextAdminSetting.grbcharadmin = ReadValueFromKey(XMLREAD, "grbcharadmin")
            ITextAdminSetting.chkCharedit = ReadValueFromKey(XMLREAD, "chkCharedit")
            ITextAdminSetting.chkCharlocation = ReadValueFromKey(XMLREAD, "chkCharlocation")
            ITextAdminSetting.chkCharSeeItem = ReadValueFromKey(XMLREAD, "chkCharSeeItem")
            ITextAdminSetting.grbrestraint = ReadValueFromKey(XMLREAD, "grbrestraint")
            ITextAdminSetting.chkRestraintReg = ReadValueFromKey(XMLREAD, "chkRestraintReg")
            ITextAdminSetting.chkRestraintRelease = ReadValueFromKey(XMLREAD, "chkRestraintRelease")
            ITextAdminSetting.grbitemadmin = ReadValueFromKey(XMLREAD, "grbitemadmin")
            ITextAdminSetting.chkItemReg = ReadValueFromKey(XMLREAD, "chkItemReg")
            ITextAdminSetting.chkItemedit = ReadValueFromKey(XMLREAD, "chkItemedit")
            ITextAdminSetting.chkItemDelete = ReadValueFromKey(XMLREAD, "chkItemDelete")
            ITextAdminSetting.grblogout = ReadValueFromKey(XMLREAD, "grblogout")
            ITextAdminSetting.chkCurrentLogin = ReadValueFromKey(XMLREAD, "chkCurrentLogin")
            ITextAdminSetting.chkLastLogin = ReadValueFromKey(XMLREAD, "chkLastLogin")
            ITextAdminSetting.chkDoingLogout = ReadValueFromKey(XMLREAD, "chkDoingLogout")
            XMLREAD.ReadEndElement()

            XMLREAD.ReadStartElement("TextLogin")
            ITextLogin.formheader = ReadValueFromKey(XMLREAD, "formheader")
            ITextLogin.lblid = ReadValueFromKey(XMLREAD, "lbllogin")
            ITextLogin.lblpass = ReadValueFromKey(XMLREAD, "lblpass")
            XMLREAD.ReadEndElement()

            XMLREAD.ReadStartElement("TextCharInfo")
            ITextCharInfo.formheader = ReadValueFromKey(XMLREAD, "formheader")
            ITextCharInfo.lbltitle = ReadValueFromKey(XMLREAD, "lbltitle")
            ITextCharInfo.grbsearch = ReadValueFromKey(XMLREAD, "grbsearch")
            ITextCharInfo.cboidtype_uid = ReadValueFromKey(XMLREAD, "cboidtype_uid")
            ITextCharInfo.cboidtype_name = ReadValueFromKey(XMLREAD, "cboidtype_name")
            ITextCharInfo.grbcharinfo = ReadValueFromKey(XMLREAD, "grbcharinfo")
            ITextCharInfo.lblcid = ReadValueFromKey(XMLREAD, "lblcid")
            ITextCharInfo.lblmw = ReadValueFromKey(XMLREAD, "lblmw")
            ITextCharInfo.lblhead = ReadValueFromKey(XMLREAD, "lblhead")
            ITextCharInfo.lblkind = ReadValueFromKey(XMLREAD, "lblkind")
            ITextCharInfo.lblface = ReadValueFromKey(XMLREAD, "lblface")
            ITextCharInfo.lblclass = ReadValueFromKey(XMLREAD, "lblclass")
            ITextCharInfo.lblmi = ReadValueFromKey(XMLREAD, "lblmi")
            ITextCharInfo.lblfame = ReadValueFromKey(XMLREAD, "lblfame")
            ITextCharInfo.lblmoney = ReadValueFromKey(XMLREAD, "lblmoney")
            ITextCharInfo.lblguild = ReadValueFromKey(XMLREAD, "lblguild")
            ITextCharInfo.lblparty = ReadValueFromKey(XMLREAD, "lblparty")
            ITextCharInfo.lblip = ReadValueFromKey(XMLREAD, "lblip")
            ITextCharInfo.lbllevel = ReadValueFromKey(XMLREAD, "lbllevel")
            ITextCharInfo.lblstr = ReadValueFromKey(XMLREAD, "lblstr")
            ITextCharInfo.lbldex = ReadValueFromKey(XMLREAD, "lbldex")
            ITextCharInfo.lblcon = ReadValueFromKey(XMLREAD, "lblcon")
            ITextCharInfo.lblini = ReadValueFromKey(XMLREAD, "lblini")
            ITextCharInfo.lblwis = ReadValueFromKey(XMLREAD, "lblwis")
            ITextCharInfo.lblhp = ReadValueFromKey(XMLREAD, "lblhp")
            ITextCharInfo.lblmp = ReadValueFromKey(XMLREAD, "lblmp")
            ITextCharInfo.lblexp = ReadValueFromKey(XMLREAD, "lblexp")
            ITextCharInfo.grblocation = ReadValueFromKey(XMLREAD, "grblocation")
            ITextCharInfo.lblx = ReadValueFromKey(XMLREAD, "lblx")
            ITextCharInfo.lbly = ReadValueFromKey(XMLREAD, "lbly")
            ITextCharInfo.lblz = ReadValueFromKey(XMLREAD, "lblz")
            XMLREAD.ReadEndElement()


            XMLREAD.ReadStartElement("TextItemInfo")
            ITextItemInfo.formheader = ReadValueFromKey(XMLREAD, "formheader")
            ITextItemInfo.cboitemwhere_1 = ReadValueFromKey(XMLREAD, "cboitemwhere_1")
            ITextItemInfo.cboitemwhere_2 = ReadValueFromKey(XMLREAD, "cboitemwhere_2")
            ITextItemInfo.cboitemwhere_3 = ReadValueFromKey(XMLREAD, "cboitemwhere_3")
            ITextItemInfo.cboitemwhere_4 = ReadValueFromKey(XMLREAD, "cboitemwhere_4")
            ITextItemInfo.cboitemwhere_5 = ReadValueFromKey(XMLREAD, "cboitemwhere_5")
            ITextItemInfo.cboitemwhere_6 = ReadValueFromKey(XMLREAD, "cboitemwhere_6")
            XMLREAD.ReadEndElement()


            XMLREAD.ReadStartElement("TextCharRestraint")
            ITextCharRestraint.formheader = ReadValueFromKey(XMLREAD, "formheader")
            ITextCharRestraint.lblserver = ReadValueFromKey(XMLREAD, "lblserver")
            ITextCharRestraint.lblsearchwide = ReadValueFromKey(XMLREAD, "lblsearchwide")
            ITextCharRestraint.lbluid = ReadValueFromKey(XMLREAD, "lbluid")
            ITextCharRestraint.cboType_1 = ReadValueFromKey(XMLREAD, "cboType_1")
            ITextCharRestraint.cboType_2 = ReadValueFromKey(XMLREAD, "cboType_2")
            XMLREAD.ReadEndElement()


            XMLREAD.ReadStartElement("TextRylMDI")
            ITextRylMDI.formheader = ReadValueFromKey(XMLREAD, "formheader")
            ITextRylMDI.title_1 = ReadValueFromKey(XMLREAD, "title_1")
            ITextRylMDI.title_2 = ReadValueFromKey(XMLREAD, "title_2")
            ITextRylMDI.title_2_1 = ReadValueFromKey(XMLREAD, "title_2_1")
            ITextRylMDI.title_2_2 = ReadValueFromKey(XMLREAD, "title_2_2")
            ITextRylMDI.title_3 = ReadValueFromKey(XMLREAD, "title_3")
            ITextRylMDI.title_3_1 = ReadValueFromKey(XMLREAD, "title_3_1")
            ITextRylMDI.title_3_2 = ReadValueFromKey(XMLREAD, "title_3_2")
            ITextRylMDI.title_3_3 = ReadValueFromKey(XMLREAD, "title_3_3")
            XMLREAD.ReadEndElement()


            XMLREAD.ReadStartElement("TextUserLogOut")
            ITextUserLogOut.formheader_last = ReadValueFromKey(XMLREAD, "formheader_last")
            ITextUserLogOut.formheader_curr = ReadValueFromKey(XMLREAD, "formheader_curr")
            ITextUserLogOut.lblhanaccount = ReadValueFromKey(XMLREAD, "lblhanaccount")
            XMLREAD.ReadEndElement()


            XMLREAD.ReadStartElement("TextCharRestraintreg")
            ITextCharRestraintreg.formheader = ReadValueFromKey(XMLREAD, "formheader")
            ITextCharRestraintreg.lblrestraintwide = ReadValueFromKey(XMLREAD, "lblrestraintwide")
            ITextCharRestraintreg.cbowide_text = ReadValueFromKey(XMLREAD, "cbowide_text")
            ITextCharRestraintreg.cbowide_1 = ReadValueFromKey(XMLREAD, "cbowide_1")
            ITextCharRestraintreg.cbowide_2 = ReadValueFromKey(XMLREAD, "cbowide_2")
            ITextCharRestraintreg.lblblockkind = ReadValueFromKey(XMLREAD, "lblblockkind")
            ITextCharRestraintreg.cboblock_1 = ReadValueFromKey(XMLREAD, "cboblock_1")
            ITextCharRestraintreg.cboblock_2 = ReadValueFromKey(XMLREAD, "cboblock_2")
            ITextCharRestraintreg.lblrestraintway = ReadValueFromKey(XMLREAD, "lblrestraintway")
            ITextCharRestraintreg.lblrestrainttime = ReadValueFromKey(XMLREAD, "lblrestrainttime")
            ITextCharRestraintreg.lblrestraintfrom = ReadValueFromKey(XMLREAD, "lblrestraintfrom")
            ITextCharRestraintreg.lblrestraintto = ReadValueFromKey(XMLREAD, "lblrestraintto")
            ITextCharRestraintreg.lblrestraintwhy = ReadValueFromKey(XMLREAD, "lblrestraintwhy")
            ITextCharRestraintreg.cbowhy_1 = ReadValueFromKey(XMLREAD, "cbowhy_1")
            ITextCharRestraintreg.cbowhy_2 = ReadValueFromKey(XMLREAD, "cbowhy_2")
            ITextCharRestraintreg.cbowhy_3 = ReadValueFromKey(XMLREAD, "cbowhy_3")
            ITextCharRestraintreg.cbowhy_4 = ReadValueFromKey(XMLREAD, "cbowhy_4")
            ITextCharRestraintreg.cbowhy_5 = ReadValueFromKey(XMLREAD, "cbowhy_5")
            ITextCharRestraintreg.cbowhy_6 = ReadValueFromKey(XMLREAD, "cbowhy_6")
            ITextCharRestraintreg.cbowhy_7 = ReadValueFromKey(XMLREAD, "cbowhy_7")
            XMLREAD.ReadEndElement()

            XMLREAD.ReadStartElement("TextCharItemInfoDetail")
            ITextCharItemInfoDetail.formheader = ReadValueFromKey(XMLREAD, "formheader")
            ITextCharItemInfoDetail.grbcharinfo = ReadValueFromKey(XMLREAD, "grbcharinfo")
            ITextCharItemInfoDetail.lblserver = ReadValueFromKey(XMLREAD, "lblserver")
            ITextCharItemInfoDetail.grbiteminfo_1 = ReadValueFromKey(XMLREAD, "grbiteminfo_1")
            ITextCharItemInfoDetail.lblitemnum = ReadValueFromKey(XMLREAD, "lblitemnum")
            ITextCharItemInfoDetail.lblitemname = ReadValueFromKey(XMLREAD, "lblitemname")
            ITextCharItemInfoDetail.lblequip = ReadValueFromKey(XMLREAD, "lblequip")
            ITextCharItemInfoDetail.lblitemprototype = ReadValueFromKey(XMLREAD, "lblitemprototype")
            ITextCharItemInfoDetail.lblitemtype = ReadValueFromKey(XMLREAD, "lblitemtype")
            ITextCharItemInfoDetail.lblitemwhere = ReadValueFromKey(XMLREAD, "lblitemwhere")
            ITextCharItemInfoDetail.lblitemxyz = ReadValueFromKey(XMLREAD, "lblitemxyz")
            ITextCharItemInfoDetail.lblitemsize = ReadValueFromKey(XMLREAD, "lblitemsize")
            ITextCharItemInfoDetail.grbiteminfo_2 = ReadValueFromKey(XMLREAD, "grbiteminfo_2")
            ITextCharItemInfoDetail.lblrunesocket = ReadValueFromKey(XMLREAD, "lblrunesocket")
            ITextCharItemInfoDetail.lblmaxdurability = ReadValueFromKey(XMLREAD, "lblmaxdurability")
            ITextCharItemInfoDetail.lblcurrsocket = ReadValueFromKey(XMLREAD, "lblcurrsocket")
            ITextCharItemInfoDetail.lblmaxsocket = ReadValueFromKey(XMLREAD, "lblmaxsocket")
            ITextCharItemInfoDetail.lblmaterial = ReadValueFromKey(XMLREAD, "lblmaterial")
            ITextCharItemInfoDetail.lblsocket1 = ReadValueFromKey(XMLREAD, "lblsocket1")
            ITextCharItemInfoDetail.lblsocket2 = ReadValueFromKey(XMLREAD, "lblsocket2")
            ITextCharItemInfoDetail.lblsocket3 = ReadValueFromKey(XMLREAD, "lblsocket3")
            ITextCharItemInfoDetail.lblsocket4 = ReadValueFromKey(XMLREAD, "lblsocket4")
            ITextCharItemInfoDetail.lblsocket5 = ReadValueFromKey(XMLREAD, "lblsocket5")
            ITextCharItemInfoDetail.lblsocket6 = ReadValueFromKey(XMLREAD, "lblsocket6")
            ITextCharItemInfoDetail.lblsocket7 = ReadValueFromKey(XMLREAD, "lblsocket7")
            ITextCharItemInfoDetail.lblsocket8 = ReadValueFromKey(XMLREAD, "lblsocket8")
            ITextCharItemInfoDetail.grbiteminfo_3 = ReadValueFromKey(XMLREAD, "grbiteminfo_3")
            ITextCharItemInfoDetail.lblcritical_type = ReadValueFromKey(XMLREAD, "lblcritical_type")
            ITextCharItemInfoDetail.lblcritical_percentage = ReadValueFromKey(XMLREAD, "lblcritical_percentage")
            ITextCharItemInfoDetail.lblmin_damage = ReadValueFromKey(XMLREAD, "lblmin_damage")
            ITextCharItemInfoDetail.lblmax_damage = ReadValueFromKey(XMLREAD, "lblmax_damage")
            ITextCharItemInfoDetail.lbldrc = ReadValueFromKey(XMLREAD, "lbldrc")
            ITextCharItemInfoDetail.lbloffence_revision = ReadValueFromKey(XMLREAD, "lbloffence_revision")
            ITextCharItemInfoDetail.lbldefence = ReadValueFromKey(XMLREAD, "lbldefence")
            ITextCharItemInfoDetail.lbldefence_revision = ReadValueFromKey(XMLREAD, "lbldefence_revision")
            ITextCharItemInfoDetail.lblmagic_resistantage = ReadValueFromKey(XMLREAD, "lblmagic_resistantage")
            ITextCharItemInfoDetail.lblblocking_percentage = ReadValueFromKey(XMLREAD, "lblblocking_percentage")
            ITextCharItemInfoDetail.lblmax_hp = ReadValueFromKey(XMLREAD, "lblmax_hp")
            ITextCharItemInfoDetail.lblmax_mp = ReadValueFromKey(XMLREAD, "lblmax_mp")
            ITextCharItemInfoDetail.lblhp_regent_amount = ReadValueFromKey(XMLREAD, "lblhp_regent_amount")
            ITextCharItemInfoDetail.lblmp_regen_amount = ReadValueFromKey(XMLREAD, "lblmp_regen_amount")
            ITextCharItemInfoDetail.lblfire_attack = ReadValueFromKey(XMLREAD, "lblfire_attack")
            ITextCharItemInfoDetail.lbllightning_attack = ReadValueFromKey(XMLREAD, "lbllightning_attack")
            ITextCharItemInfoDetail.lblcold_attack = ReadValueFromKey(XMLREAD, "lblcold_attack")
            ITextCharItemInfoDetail.lbldrain_attack = ReadValueFromKey(XMLREAD, "lbldrain_attack")
            ITextCharItemInfoDetail.lblpoison_attack = ReadValueFromKey(XMLREAD, "lblpoison_attack")
            ITextCharItemInfoDetail.lblfire_resistance = ReadValueFromKey(XMLREAD, "lblfire_resistance")
            ITextCharItemInfoDetail.lbllightning_resistance = ReadValueFromKey(XMLREAD, "lbllightning_resistance")
            ITextCharItemInfoDetail.lblcold_resistance = ReadValueFromKey(XMLREAD, "lblcold_resistance")
            ITextCharItemInfoDetail.lbldrain_resistance = ReadValueFromKey(XMLREAD, "lbldrain_resistance")
            ITextCharItemInfoDetail.lblpoison_resistance = ReadValueFromKey(XMLREAD, "lblpoison_resistance")
            ITextCharItemInfoDetail.lbladd_str = ReadValueFromKey(XMLREAD, "lbladd_str")
            ITextCharItemInfoDetail.lbladd_dex = ReadValueFromKey(XMLREAD, "lbladd_dex")
            ITextCharItemInfoDetail.lbladd_con = ReadValueFromKey(XMLREAD, "lbladd_con")
            ITextCharItemInfoDetail.lbladd_int = ReadValueFromKey(XMLREAD, "lbladd_int")
            ITextCharItemInfoDetail.lbladd_wis = ReadValueFromKey(XMLREAD, "lbladd_wis")
            ITextCharItemInfoDetail.lblamount_1 = ReadValueFromKey(XMLREAD, "lblamount_1")
            ITextCharItemInfoDetail.lblamount_2 = ReadValueFromKey(XMLREAD, "lblamount_2")
            XMLREAD.ReadEndElement()



            XMLREAD.ReadStartElement("TextProcessPacket")
            ITextProcessPacket.msg_error_1 = ReadValueFromKey(XMLREAD, "msg_error_1")
            ITextProcessPacket.msg_success_1 = ReadValueFromKey(XMLREAD, "msg_success_1")
            ITextProcessPacket.msg_error_2 = ReadValueFromKey(XMLREAD, "msg_error_2")
            ITextProcessPacket.msg_error_3 = ReadValueFromKey(XMLREAD, "msg_error_3")
            ITextProcessPacket.msg_error_4 = ReadValueFromKey(XMLREAD, "msg_error_4")
            ITextProcessPacket.msg_success_2 = ReadValueFromKey(XMLREAD, "msg_success_2")
            ITextProcessPacket.msg_error_5 = ReadValueFromKey(XMLREAD, "msg_error_5")
            ITextProcessPacket.msg_success_3 = ReadValueFromKey(XMLREAD, "msg_success_3")
            ITextProcessPacket.msg_error_6 = ReadValueFromKey(XMLREAD, "msg_error_6")
            ITextProcessPacket.msg_error_7 = ReadValueFromKey(XMLREAD, "msg_error_7")
            ITextProcessPacket.msg_success_4 = ReadValueFromKey(XMLREAD, "msg_success_4")
            ITextProcessPacket.msg_error_8 = ReadValueFromKey(XMLREAD, "msg_error_8")
            ITextProcessPacket.msg_success_5 = ReadValueFromKey(XMLREAD, "msg_success_5")
            ITextProcessPacket.msg_error_9 = ReadValueFromKey(XMLREAD, "msg_error_9")
            ITextProcessPacket.msg_success_6 = ReadValueFromKey(XMLREAD, "msg_success_6")
            ITextProcessPacket.msg_error_10 = ReadValueFromKey(XMLREAD, "msg_error_10")
            ITextProcessPacket.msg_error_11 = ReadValueFromKey(XMLREAD, "msg_error_11")
            ITextProcessPacket.msg_success_7 = ReadValueFromKey(XMLREAD, "msg_success_7")
            ITextProcessPacket.msg_error_12 = ReadValueFromKey(XMLREAD, "msg_error_12")
            ITextProcessPacket.msg_success_8 = ReadValueFromKey(XMLREAD, "msg_success_8")
            ITextProcessPacket.msg_error_13 = ReadValueFromKey(XMLREAD, "msg_error_13")
            ITextProcessPacket.msg_success_9 = ReadValueFromKey(XMLREAD, "msg_success_9")
            ITextProcessPacket.msg_error_14 = ReadValueFromKey(XMLREAD, "msg_error_14")
            ITextProcessPacket.msg_success_10 = ReadValueFromKey(XMLREAD, "msg_success_10")
            ITextProcessPacket.msg_error_15 = ReadValueFromKey(XMLREAD, "msg_error_15")
            ITextProcessPacket.msg_success_11 = ReadValueFromKey(XMLREAD, "msg_success_11")
            ITextProcessPacket.msg_error_16 = ReadValueFromKey(XMLREAD, "msg_error_16")
            ITextProcessPacket.msg_success_12 = ReadValueFromKey(XMLREAD, "msg_success_12")
            ITextProcessPacket.msg_error_17 = ReadValueFromKey(XMLREAD, "msg_error_17")
            ITextProcessPacket.msg_success_13 = ReadValueFromKey(XMLREAD, "msg_success_13")
            ITextProcessPacket.msg_error_18 = ReadValueFromKey(XMLREAD, "msg_error_18")
            ITextProcessPacket.msg_error_19 = ReadValueFromKey(XMLREAD, "msg_error_19")
            XMLREAD.ReadEndElement()


            'XMLREAD.ReadStartElement("TextServerList")
            'ITextServerList.test = ReadValueFromKey(XMLREAD, "test")
            'ITextServerList.solpis = ReadValueFromKey(XMLREAD, "solpis")
            'ITextServerList.karte = ReadValueFromKey(XMLREAD, "karte")
            'ITextServerList.iranshya = ReadValueFromKey(XMLREAD, "iranshya")
            'ITextServerList.hiland = ReadValueFromKey(XMLREAD, "hiland")
            'ITextServerList.aldia = ReadValueFromKey(XMLREAD, "aldia")
            'ITextServerList.yunite = ReadValueFromKey(XMLREAD, "yunite")
            'XMLREAD.ReadEndElement()


            XMLREAD.ReadEndElement()


        Catch E As Exception
            MsgBox(E.ToString())

        End Try

    End Sub


    'Sub WRITEXML()

    '    Dim myXmlTextWriter As XmlTextWriter = New XmlTextWriter("newbooks.xml", System.Text.Encoding.UTF8)
    '    myXmlTextWriter.Formatting = System.Xml.Formatting.Indented
    '    myXmlTextWriter.WriteStartDocument(False)
    '    myXmlTextWriter.WriteComment("This is a comment")
    '    'Create the main document element.
    '    myXmlTextWriter.WriteStartElement("bookstore")
    '    myXmlTextWriter.WriteStartElement("book")

    '    'Create an element named 'title' with a text node
    '    ' and then close the element.
    '    myXmlTextWriter.WriteStartElement("title")
    '    myXmlTextWriter.WriteString("The Autobiography of Mark Twain")
    '    myXmlTextWriter.WriteEndElement()

    '    'Create an element named 'Author'.
    '    myXmlTextWriter.WriteStartElement("Author")

    '    'Create an element named 'first-name' with a text node
    '    ' and close it in one line.
    '    myXmlTextWriter.WriteElementString("first-name", "Mark")

    '    'Create an element named 'first-name' with a text node.
    '    myXmlTextWriter.WriteElementString("last-name", "Twain")

    '    'Close off the parent element.
    '    myXmlTextWriter.WriteEndElement()

    '    'Create an element named 'price' with a text node
    '    ' and close it in one line.
    '    myXmlTextWriter.WriteElementString("price", "7.99")

    '    'Close off the book element.
    '    myXmlTextWriter.WriteEndElement()

    '    myXmlTextWriter.WriteStartElement("book")
    '    myXmlTextWriter.WriteAttributeString("genre", "autobiography")
    '    myXmlTextWriter.WriteAttributeString("publicationdate", "1979")
    '    myXmlTextWriter.WriteAttributeString("ISBN", "0-7356-0562-9")

    '    'Close off the book element.   
    '    myXmlTextWriter.WriteEndElement()
    '    'Close off the Parent Element bookstore. 
    '    myXmlTextWriter.WriteEndElement()

    '    myXmlTextWriter.Flush()
    '    myXmlTextWriter.Close()
    '    'Waits for user to press enter before exiting the program.
    '    Console.ReadLine()

    'End Sub

End Module