LGram16
dd97ddec92
Move git root from Client/ to src/ to track all source code: - Client: Game client source (moved to Client/Client/) - Server: Game server source - GameTools: Development tools - CryptoSource: Encryption utilities - database: Database scripts - Script: Game scripts - rylCoder_16.02.2008_src: Legacy coder tools - GMFont, Game: Additional resources 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
691 lines
34 KiB
VB.net
691 lines
34 KiB
VB.net
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
|