Imports System.Text Imports System.Convert Module ProcessPacket Public IRylMDI As RylMDI = Nothing Public IAdminInfo As AdminInfo = Nothing Public IUserLogin As UserLogin = Nothing Public ICharRestraint As CharRestraint = Nothing Public ICharRestraintReg As CharRestraintReg = Nothing Public ICharInfo As CharInfo = Nothing Public ICharItemInfo As CharItemInfo = Nothing Public ICharItemInfoDetail2 As CharItemInfoDetail = Nothing Public IUserLastLogout As UserLastLogOut = Nothing Public IAdminSetting As AdminSetting = Nothing '구조체 초기화. Public IToolAdminRight As New ToolAdminRight() Public Structure ItemInfo Dim m_szItemName As String ' 텍스트로 된 아이템 이름(64) Dim m_dwItemUID As UInt64 ' 아이템 UID Dim m_usItemProtoTypeID As UInt16 ' 아이템 종류 ID Dim m_cItemType As Byte ' 아이템 타입 ( 주석 1 참고 ) Dim m_cTakeType As Byte ' 아이템 컨테이너 타입 Dim m_cXPos As Byte ' 아이템 X위치 Dim m_cYPos As Byte ' 아이템 Y위치 Dim m_cZPos As Byte ' 아이템 탭 위치 Dim m_cNumOrDurability As Byte ' 장비는 내구도, 다른 것은 개수 Dim m_cXSize As Byte ' X크기 Dim m_cYSize As Byte ' Y크기 Dim m_bEquip As Boolean ' 장비인지 여부 Dim m_cPadding As Byte ' 무의미. ' 장비만 가지고 있는 데이터 Dim m_usRuneSocket As UInt16 ' 룬 소켓 Dim m_cMaxDurability As Byte ' 최대 내구도 Dim m_cCurrentSocketNum As Byte ' 현재 소켓 개수 Dim m_cMaxSocketNum As Byte ' 최대 소켓 개수 Dim m_cMaterialType As Byte ' 업그레이드 단계 Dim m_cSocket() As Byte ' 박혀 있는 소켓 (최대 8개) Dim m_usAttribute() As UInt16 ' 속성값 (34개) End Structure Public Function Min(ByVal lhs As Int32, ByVal rhs As Int32) As Int32 If lhs < rhs Then Min = lhs Else Min = rhs End If End Function Public Function Max(ByVal lhs As Int32, ByVal rhs As Int32) As Int32 If lhs < rhs Then Max = rhs Else Max = lhs End If End Function Public Function GetTakePos(ByVal Pos As Int32) As String Select Case Pos Case 1 : GetTakePos = ITextItemInfo.cboitemwhere_1 Case 2 : GetTakePos = ITextItemInfo.cboitemwhere_2 Case 6 : GetTakePos = ITextItemInfo.cboitemwhere_3 Case 7 : GetTakePos = ITextItemInfo.cboitemwhere_4 Case 8 : GetTakePos = ITextItemInfo.cboitemwhere_5 Case 9 : GetTakePos = ITextItemInfo.cboitemwhere_6 Case Else : GetTakePos = "Nowhere" End Select End Function Public Function GetTakePos(ByVal Pos As String) As Byte Select Case Pos Case ITextItemInfo.cboitemwhere_1 : GetTakePos = 1 Case ITextItemInfo.cboitemwhere_2 : GetTakePos = 2 Case ITextItemInfo.cboitemwhere_3 : GetTakePos = 6 Case ITextItemInfo.cboitemwhere_4 : GetTakePos = 7 Case ITextItemInfo.cboitemwhere_5 : GetTakePos = 8 Case ITextItemInfo.cboitemwhere_6 : GetTakePos = 9 Case Else : GetTakePos = 0 End Select End Function '관리자 인증 Public Sub ProcessLoginAck(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) Dim cRights As Byte = contents(0) '성공한 경우에만 값을 가져온다. If errorCode = 0 Then '권한을 얻어온다. AdminKind = Chr(cRights) IRylMDI.ILogin.Hide() '관리자의 권한을 가져온다. Dim Pos As Int32 = 1 IToolAdminRight.charEdit = BitConverter.ToBoolean(contents, Pos + 1) IToolAdminRight.charLocation = BitConverter.ToBoolean(contents, Pos + 2) IToolAdminRight.charseeItem = BitConverter.ToBoolean(contents, Pos + 3) IToolAdminRight.ItemCreate = BitConverter.ToBoolean(contents, Pos + 4) IToolAdminRight.ItemEdit = BitConverter.ToBoolean(contents, Pos + 5) IToolAdminRight.ItemDel = BitConverter.ToBoolean(contents, Pos + 6) IToolAdminRight.RestraintReg = BitConverter.ToBoolean(contents, Pos + 7) IToolAdminRight.RestraintRelease = BitConverter.ToBoolean(contents, Pos + 8) IToolAdminRight.currentUserLogin = BitConverter.ToBoolean(contents, Pos + 9) IToolAdminRight.lastUserLogin = BitConverter.ToBoolean(contents, Pos + 10) IToolAdminRight.DoingLogout = BitConverter.ToBoolean(contents, Pos + 11) Else MsgBox(ITextProcessPacket.msg_error_1, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End If End Sub '관리자 입력하기 Public Sub ProcessRegAdmin(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) If errorCode = 0 Then MsgBox(ITextProcessPacket.msg_success_1, MsgBoxStyle.OKOnly, ITextMSG.msg_success) IAdminInfo.RefreshAdmin() Else MsgBox(ITextProcessPacket.msg_error_2, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End If IAdminInfo.btnAdminReg.Enabled = True End Sub '관리자조회 Public Sub ProcessSearchAdmin(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) If 0 = contents(0) Then Select Case nPacketCMD Case 3 MsgBox(ITextProcessPacket.msg_error_3, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) Case 4 MsgBox(ITextProcessPacket.msg_error_4, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End Select Else '받아오는 패킷을 분리한다. Dim encoding As Encoding = encoding.GetEncoding(Code) If False = IAdminInfo.Equals(Nothing) Then Dim myDataRow As DataRow = ds.Tables(AdminTableIndex).NewRow() myDataRow("strAdminID") = encoding.GetString(contents, 0, 16) myDataRow("strPasswd") = encoding.GetString(contents, 16, 16) myDataRow("strLevel") = Chr(contents(55)) myDataRow("strName") = encoding.GetString(contents, 48, 7) myDataRow("strIp") = encoding.GetString(contents, 32, 16) myDataRow("dateRegit") = encoding.GetString(contents, 56, 11) ds.Tables(AdminTableIndex).Rows.Add(myDataRow) End If End If End Sub '관리자 정보변경 Public Sub ProcessEditAdmin(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) If errorCode = 0 Then MsgBox(ITextProcessPacket.msg_success_2, MsgBoxStyle.OKOnly, ITextMSG.msg_success) IAdminInfo.RefreshAdmin() Else MsgBox(ITextProcessPacket.msg_error_5, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End If End Sub '관리자삭제 Public Sub ProcessDeleteAdmin(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) If errorCode = 0 Then MsgBox(ITextProcessPacket.msg_success_3, MsgBoxStyle.OKOnly, ITextMSG.msg_success) IAdminInfo.RefreshAdmin() Else MsgBox(ITextProcessPacket.msg_error_6, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End If End Sub '현재접속중인 사용자 검색 Public Sub ProcessSelectCurrentUser(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) If 0 = contents(0) Then MsgBox(ITextProcessPacket.msg_error_7, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) Else '받아오는 패킷을 분리한다. If False = IUserLogin.Equals(Nothing) Then Dim encoding As Encoding = encoding.GetEncoding(Code) Dim myDataRow As DataRow = ds.Tables(CurrentUserIndex).NewRow() myDataRow("strClientID") = encoding.GetString(contents, 0, 16) myDataRow("UID") = BitConverter.ToInt32(contents, 16) '4byte myDataRow("intCRMIndex") = BitConverter.ToInt32(contents, 20) '4byte myDataRow("strIP") = encoding.GetString(contents, 24, 16) myDataRow("ServerID") = BitConverter.ToInt32(contents, 40) '4byte myDataRow("LoginTime") = encoding.GetString(contents, 44, 20) myDataRow("BillType") = Chr(contents(64)) ds.Tables(CurrentUserIndex).Rows.Add(myDataRow) End If End If End Sub '현재접속중인 사용자 검색 Public Sub ProcessLogoutUser(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) If errorCode = 0 Then MsgBox(ITextProcessPacket.msg_success_4, MsgBoxStyle.OKOnly, ITextMSG.msg_success) IUserLogin.CurrentUserRefresh() Else MsgBox(ITextProcessPacket.msg_error_8, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End If End Sub Public Sub ProcessViewRestraintUser(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) ' UID(4) / UserID(16) / CharacterName(16) / BlockType(9) / BlockKind(9) / HasBlock(9) / ' BlockFinishDate(20) / AdminName(16) / Description(31) ' recv If 0 = errorCode And False = ICharRestraint.Equals(Nothing) And 0 <> BitConverter.ToInt32(contents, 0) Then Dim encoding As Encoding = encoding.GetEncoding(Code) Dim myDataRow As DataRow = ds.Tables(CharRestraintIndex).NewRow() myDataRow("UID") = BitConverter.ToInt32(contents, 0) ' UID(4) myDataRow("strClientID") = encoding.GetString(contents, 4, 16) ' UserID(16) myDataRow("strCharacterID") = encoding.GetString(contents, 20, 16) ' CharacterName(16) myDataRow("BlockType") = encoding.GetString(contents, 36, 9) ' BlockType(9) myDataRow("BlockKind") = encoding.GetString(contents, 45, 9) ' BlockKind(9) myDataRow("Blocked") = encoding.GetString(contents, 54, 9) ' HasBlock(9) myDataRow("EndTime") = encoding.GetString(contents, 63, 20) ' BlockFinishDate(20) myDataRow("adminid") = encoding.GetString(contents, 83, 16) ' AdminName(16) myDataRow("discription") = encoding.GetString(contents, 99, 31) ' Description(31) ds.Tables(CharRestraintIndex).Rows.Add(myDataRow) End If End Sub Public Sub ProcessAddRestraintUser(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) ' errorCode만 보면 됨 Select Case errorCode Case 0 MsgBox(ITextProcessPacket.msg_success_5, MsgBoxStyle.OKOnly, ITextMSG.msg_success) Case Else MsgBox(ITextProcessPacket.msg_error_9, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End Select ICharRestraint.ViewRestraintList() End Sub Public Sub ProcessDeleteRestraintUser(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) ' errorCode만 보면 됨 Select Case errorCode Case 0 MsgBox(ITextProcessPacket.msg_success_6, MsgBoxStyle.OKOnly, ITextMSG.msg_success) Case Else MsgBox(ITextProcessPacket.msg_error_10, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End Select ICharRestraint.ViewRestraintList() End Sub ' 캐릭터 제재상황 보기 Public Sub ProcessCheckRestraintUser(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) Dim encoding As Encoding = encoding.GetEncoding(Code) Dim flag As Byte = contents(0) ' 0 : 제재 없음, 1 : 계정 블럭, 2 : 캐릭터 블럭 encoding.GetString(contents, 1, 16) ' 제재캐릭 1 이름 encoding.GetString(contents, 17, 16) ' 제재캐릭 2 이름 encoding.GetString(contents, 33, 16) ' 제재캐릭 3 이름 End Sub '캐릭터리스트만 보여주기 Public Sub ProcessSelectCharidList(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) Dim encoding As Encoding = encoding.GetEncoding(Code) If False = (ICharInfo Is Nothing) Then If False = ICharInfo.btnIDSearch.Enabled Then If contents(0) = 0 And contents(16) = 0 And contents(32) = 0 Then MsgBox(ITextProcessPacket.msg_error_11, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) Else ICharInfo.lboxCharid.Items.Add(encoding.GetString(contents, 0, 16)) ICharInfo.lboxCharid.Items.Add(encoding.GetString(contents, 16, 16)) ICharInfo.lboxCharid.Items.Add(encoding.GetString(contents, 32, 16)) End If ICharInfo.btnIDSearch.Enabled = True End If End If If False = (ICharRestraintReg Is Nothing) Then If False = ICharRestraintReg.btnSearch.Enabled Then If contents(0) = 0 And contents(16) = 0 And contents(32) = 0 Then MsgBox(ITextProcessPacket.msg_error_11, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) Else ICharRestraintReg.cboCharID.Items.Add(encoding.GetString(contents, 0, 16)) ICharRestraintReg.cboCharID.Items.Add(encoding.GetString(contents, 16, 16)) ICharRestraintReg.cboCharID.Items.Add(encoding.GetString(contents, 32, 16)) ICharRestraintReg.cboCharID.SelectedIndex = 0 ICharRestraintReg.btnCommit.Enabled = True End If ICharRestraintReg.btnSearch.Enabled = True End If End If End Sub '캐릭터 상세 정보 보기 Public Sub ProcessSelectCharidInfo(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) ' UID(4)/CID(4)/Type(1) ' 데이터 타입 - 0 : 캐릭 데이터, 1 : 창고 정보, 2 : 아이템 추가 또는 업데이트(위치, UID가 같은 경우만 업데이트) If 0 = errorCode Then Select Case contents(8) Case 0 ParseCharInfo(contents) Case 1 ParseStoreInfo(contents) Case 2 ParseItems(contents) Case 3 ' ICharInfo.btnCharSearch.Enabled = True ICharInfo.btnIDSearch.Enabled = True ICharInfo.btnDetailItemInfo.Enabled = True MsgBox(ITextProcessPacket.msg_success_7, MsgBoxStyle.OKOnly, ITextMSG.msg_success) End Select Else ICharInfo.btnCharSearch.Enabled = True ICharInfo.btnIDSearch.Enabled = True ICharInfo.btnDetailItemInfo.Enabled = False MsgBox(ITextProcessPacket.msg_error_12 + " : ErrorCode" + errorCode.ToString, MsgBoxStyle.OKOnly, "FAILED") End If End Sub Private Sub ParseCharInfo(ByVal contents() As Byte) Dim encoding As Encoding = encoding.GetEncoding(Code) Dim CharDataSize(7) As Int32 ' TODO : UID 화면에 표시해 줄 것 Dim dwUID As UInt32 = BitConverter.ToUInt32(contents, 0) Dim dwCID As UInt32 = BitConverter.ToUInt32(contents, 4) Dim TypeCode As Byte = contents(8) ' 처음 1Byte는 타입.. ' 그 다음 16Byte는 unsigned short * 4 - 각 섹션의 데이터 길이. Dim nCount As Int32 For nCount = 0 To 7 CharDataSize(nCount) = ToInt32(BitConverter.ToUInt16(contents, nCount * 2 + 9)) Next Dim Pos As Int32 = 25 ' CHAR_INFOST CharDataSize(0) ' CHAR_POS CharDataSize(1) ' SKILL CharDataSize(2) ' QUICK CharDataSize(3) ' EQUIP CharDataSize(4) 무시... ' INVEN CharDataSize(5) 무시... ' EXTRA CharDataSize(6) 무시... ' EXCHANGE CharDataSize(7) 무시... ' CHAR_INFOST If 72 <= CharDataSize(0) And Pos + CharDataSize(0) <= contents.GetLength(0) Then ICharInfo.txtSearchID.Text = "" ICharInfo.txtUID.Text = dwUID.ToString ICharInfo.txtCID.Text = BitConverter.ToInt32(contents, Pos).ToString ICharInfo.txtName.Text = encoding.GetString(contents, Pos + 4, 16) ICharInfo.txtMW.Text = contents(Pos + 20).ToString ' 1 : 남자, 2 : 여자 ICharInfo.txtHead.Text = contents(Pos + 21).ToString ' Head가 아니라 Hair임 ICharInfo.txtFace.Text = contents(Pos + 22).ToString ' 얼굴형 ICharInfo.txtKind.Text = contents(Pos + 23).ToString ' Kind - 캐릭터 종족. 0 : 인간, 1 : 아칸 ICharInfo.txtClass.Text = BitConverter.ToUInt16(contents, Pos + 24).ToString ' 캐릭터 클래스 ICharInfo.txtFame.Text = BitConverter.ToUInt32(contents, Pos + 26).ToString ' 명성 ICharInfo.txtMi.Text = BitConverter.ToUInt32(contents, Pos + 30).ToString ' 마일리지 ICharInfo.txtGuild.Text = BitConverter.ToUInt32(contents, Pos + 34).ToString ' 길드 ICharInfo.txtParty.Text = BitConverter.ToUInt32(contents, Pos + 38).ToString ' 파티 ICharInfo.txtLevel.Text = contents(Pos + 42).ToString ' 레벨 ICharInfo.txtMoney.Text = BitConverter.ToUInt32(contents, Pos + 43).ToString ' 돈 ICharInfo.txtIP.Text = BitConverter.ToUInt16(contents, Pos + 47).ToString ' IP (능력치 증가포인트) ICharInfo.txtStr.Text = BitConverter.ToUInt16(contents, Pos + 49).ToString ' 힘 ICharInfo.txtDex.Text = BitConverter.ToUInt16(contents, Pos + 51).ToString ' 민첩성 ICharInfo.txtCon.Text = BitConverter.ToUInt16(contents, Pos + 53).ToString ' 건강 ICharInfo.txtIni.Text = BitConverter.ToUInt16(contents, Pos + 55).ToString ' 지력 ICharInfo.txtWis.Text = BitConverter.ToUInt16(contents, Pos + 57).ToString ' 지혜 ICharInfo.txtHp.Text = BitConverter.ToUInt16(contents, Pos + 59).ToString ' HP ICharInfo.txtMp.Text = BitConverter.ToUInt16(contents, Pos + 61).ToString ' MP ICharInfo.txtExp.Text = BitConverter.ToUInt64(contents, Pos + 63).ToString ' EXP Pos = Pos + CharDataSize(0) End If ' CHAR_POS If 24 = CharDataSize(1) And Pos + CharDataSize(1) <= contents.GetLength(0) Then ICharInfo.txtX.Text = BitConverter.ToSingle(contents, Pos).ToString ICharInfo.txtY.Text = BitConverter.ToSingle(contents, Pos + 4).ToString ICharInfo.txtZ.Text = BitConverter.ToSingle(contents, Pos + 8).ToString Dim SaveXPos As String = BitConverter.ToSingle(contents, Pos + 12).ToString Dim SaveYPos As String = BitConverter.ToSingle(contents, Pos + 16).ToString Dim SaveZPos As String = BitConverter.ToSingle(contents, Pos + 20).ToString End If ' 아이템 정보는 무시한다.... End Sub Private Sub ParseStoreInfo(ByVal contents() As Byte) Dim Pos As Int32 = 9 Dim Password As String = Chr(contents(Pos)) + Chr(contents(Pos + 1)) + Chr(contents(Pos + 2)) + Chr(contents(Pos + 3)) Dim Gold As UInt32 = BitConverter.ToUInt32(contents, Pos + 9) End Sub Private Sub ParseItems(ByVal contents() As Byte) 'struct(AdminToolItemInfo) '{ ' char m_szItemName[64]; 0, 64 ' unsigned __int64 m_ItemUID; 64, 8 ' unsigned short m_usItemProtoTypeID; 72, 2 ' unsigned char m_cItemType; 74, 1 ' unsigned char m_cTakeType; 75, 1 ' unsigned char m_cXPos; ' unsigned char m_cYPos; ' unsigned char m_cZPos; ' unsigned char m_cNumOrDurability; ' unsigned char m_cXSize; ' unsigned char m_cYSize; ' bool m_bEquip; ' unsigned char m_cPadding; '}; 'struct(AdminToolEquipInfo) : Public AdminToolItemInfo '{ ' unsigned short m_usRuneSocket; ' unsigned char m_cMaxDurability; ' unsigned char m_cCurrentSocketNum; ' unsigned char m_cMaxSocketNum; ' unsigned char m_cMaterialType; ' unsigned char m_cSocket[8]; ' short m_usAttribute[34]; '} Dim encoding As Encoding = encoding.GetEncoding(Code) Dim Pos As Int32 = 9 Dim itemInfo As ItemInfo = ConvertArrayToItem(contents, Pos) ICharInfo.CharItemData.Add(itemInfo) End Sub Public Sub ProcessCommitData(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) Select Case errorCode Case 0 MsgBox(ITextProcessPacket.msg_success_8, MsgBoxStyle.OKOnly, ITextMSG.msg_success) Case Else MsgBox(ITextProcessPacket.msg_error_13 + ". ErrorCode : " + errorCode.ToString, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End Select End Sub Public Sub ProcessUpdateCharData(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) Select Case errorCode Case 0 MsgBox(ITextProcessPacket.msg_success_9, MsgBoxStyle.OKOnly, ITextMSG.msg_success) Case Else MsgBox(ITextProcessPacket.msg_error_14 + ". ErrorCode : " + errorCode.ToString, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End Select End Sub Public Sub ProcessUpdateLastPos(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) Select Case errorCode Case 0 MsgBox(ITextProcessPacket.msg_success_10, MsgBoxStyle.OKOnly, ITextMSG.msg_success) Case Else MsgBox(ITextProcessPacket.msg_error_15 + ". ErrorCode : " + errorCode.ToString, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End Select End Sub Public Sub ProcessCreateItem(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) Select Case errorCode Case 0 MsgBox(ITextProcessPacket.msg_success_11, MsgBoxStyle.OKOnly, ITextMSG.msg_success) Dim Item As ItemInfo = ConvertArrayToItem(contents, 0) ' 아이템 데이터를 로우셋에 추가 ICharInfo.CharItemData.Add(Item) UpdateItemView() Case Else MsgBox(ITextProcessPacket.msg_error_16 + ". ErrorCode : " + errorCode.ToString, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End Select End Sub Public Sub ProcessUpdateItem(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) Select Case errorCode Case 0 MsgBox(ITextProcessPacket.msg_success_12, MsgBoxStyle.OKOnly, ITextMSG.msg_success) Dim Item As ItemInfo = ConvertArrayToItem(contents, 0) ' 아이템 데이터를 로우셋에 추가 Dim myEnumerator As System.Collections.IEnumerator = _ ICharInfo.CharItemData.GetEnumerator() While myEnumerator.MoveNext() Dim oldItem As ItemInfo = myEnumerator.Current If Item.m_dwItemUID.Equals(oldItem.m_dwItemUID) And _ Item.m_usItemProtoTypeID.Equals(oldItem.m_usItemProtoTypeID) And _ Item.m_cTakeType = oldItem.m_cTakeType And _ Item.m_cXPos = oldItem.m_cXPos And _ Item.m_cYPos = oldItem.m_cYPos And _ Item.m_cZPos = oldItem.m_cZPos Then ICharInfo.CharItemData.Remove(myEnumerator.Current) ICharInfo.CharItemData.Add(Item) Exit While End If End While UpdateItemView() Case Else MsgBox(ITextProcessPacket.msg_error_17 + ". ErrorCode : " + errorCode.ToString, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End Select End Sub Public Sub ProcessDeleteItem(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) Select Case errorCode Case 0 MsgBox(ITextProcessPacket.msg_success_13, MsgBoxStyle.OKOnly, ITextMSG.msg_success) ' 다음 정보를 가지고, RowSet에서 삭제에 성공한 아이템을 제거한다. Dim dwItemUID As UInt64 = BitConverter.ToUInt64(contents, 0) Dim usProtoTypeID As UInt16 = BitConverter.ToUInt16(contents, 8) Dim cTakePos As Byte = contents(10) Dim cXPos As Byte = contents(11) Dim cYPos As Byte = contents(12) Dim cZPos As Byte = contents(13) ' 아이템 데이터를 로우셋에 추가 Dim myEnumerator As System.Collections.IEnumerator = _ ICharInfo.CharItemData.GetEnumerator() While myEnumerator.MoveNext() Dim oldItem As ItemInfo = myEnumerator.Current If dwItemUID.Equals(oldItem.m_dwItemUID) And _ usProtoTypeID.Equals(oldItem.m_usItemProtoTypeID) And _ cTakePos = oldItem.m_cTakeType And _ cXPos = oldItem.m_cXPos And _ cYPos = oldItem.m_cYPos And _ cZPos = oldItem.m_cZPos Then ICharInfo.CharItemData.Remove(myEnumerator.Current) Exit While End If End While UpdateItemView() Case Else MsgBox(ITextProcessPacket.msg_error_18 + ". ErrorCode : " + errorCode.ToString, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End Select End Sub Public Sub ProcessViewLoginoutLog(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) If IUserLastLogout Is Nothing Then Exit Sub End If Select Case errorCode Case 0 If 0 = contents(0) Then ' 데이터 전부 보냄. IUserLastLogout.btnSearch.Enabled = True IUserLastLogout.grdResult.Refresh() ElseIf 85 <= contents.GetLength(0) Then ' 데이터 받았음. Dim encoding As Encoding = encoding.GetEncoding(Code) Dim data As DataRow = DBConn.ds.Tables(LastUserIndex).NewRow() data("strClientID") = encoding.GetString(contents, 0, 16) data("strIP") = encoding.GetString(contents, 16, 16) data("intCRMIndex") = BitConverter.ToUInt32(contents, 76).ToString data("UID") = BitConverter.ToUInt32(contents, 72).ToString data("LoginTime") = encoding.GetString(contents, 32, 20) data("LogOutTime") = encoding.GetString(contents, 52, 20) data("ServerID") = BitConverter.ToUInt32(contents, 80).ToString data("BillType") = Chr(contents(84)) DBConn.ds.Tables(LastUserIndex).Rows.Add(data) End If Case Else IUserLastLogout.btnSearch.Enabled = True IUserLastLogout.grdResult.Refresh() End Select End Sub Public Sub ProcessAdminRightsAck(ByVal contents() As Byte, ByVal nPacketCMD As Byte, ByVal errorCode As Int16) If 0 = errorCode Then Dim cRights As Byte = contents(0) Dim Pos As Int32 = 1 IAdminSetting.chkCharedit.Checked = BitConverter.ToBoolean(contents, Pos + 1) IAdminSetting.chkCharlocation.Checked = BitConverter.ToBoolean(contents, Pos + 2) IAdminSetting.chkCharSeeItem.Checked = BitConverter.ToBoolean(contents, Pos + 3) IAdminSetting.chkItemReg.Checked = BitConverter.ToBoolean(contents, Pos + 4) IAdminSetting.chkItemedit.Checked = BitConverter.ToBoolean(contents, Pos + 5) IAdminSetting.chkItemDelete.Checked = BitConverter.ToBoolean(contents, Pos + 6) IAdminSetting.chkRestraintReg.Checked = BitConverter.ToBoolean(contents, Pos + 7) IAdminSetting.chkRestraintRelease.Checked = BitConverter.ToBoolean(contents, Pos + 8) IAdminSetting.chkCurrentLogin.Checked = BitConverter.ToBoolean(contents, Pos + 9) IAdminSetting.chkLastLogin.Checked = BitConverter.ToBoolean(contents, Pos + 10) IAdminSetting.chkDoingLogout.Checked = BitConverter.ToBoolean(contents, Pos + 11) Else MsgBox(ITextProcessPacket.msg_error_19 + ". ErrorCode : " + errorCode.ToString, MsgBoxStyle.OKOnly, ITextMSG.msg_faild) End If End Sub Private Function ConvertArrayToItem(ByVal recvarray() As Byte, ByVal startpos As Int32) As ItemInfo Dim encoding As Encoding = encoding.GetEncoding(Code) If 84 + startpos <= recvarray.GetLength(0) Then ConvertArrayToItem.m_szItemName = encoding.GetString(recvarray, startpos, 64) ConvertArrayToItem.m_dwItemUID = BitConverter.ToUInt64(recvarray, startpos + 64) ConvertArrayToItem.m_usItemProtoTypeID = BitConverter.ToUInt16(recvarray, startpos + 72) ConvertArrayToItem.m_cItemType = recvarray(startpos + 74) ConvertArrayToItem.m_cTakeType = recvarray(startpos + 75) ConvertArrayToItem.m_cXPos = recvarray(startpos + 76) ConvertArrayToItem.m_cYPos = recvarray(startpos + 77) ConvertArrayToItem.m_cZPos = recvarray(startpos + 78) ConvertArrayToItem.m_cNumOrDurability = recvarray(startpos + 79) ConvertArrayToItem.m_cXSize = recvarray(startpos + 80) ConvertArrayToItem.m_cYSize = recvarray(startpos + 81) ConvertArrayToItem.m_bEquip = BitConverter.ToBoolean(recvarray, startpos + 82) ConvertArrayToItem.m_cPadding = recvarray(startpos + 83) ReDim ConvertArrayToItem.m_cSocket(7) ReDim ConvertArrayToItem.m_usAttribute(34) If 168 + startpos <= recvarray.GetLength(0) And True = ConvertArrayToItem.m_bEquip Then ConvertArrayToItem.m_usRuneSocket = BitConverter.ToUInt16(recvarray, startpos + 84) ConvertArrayToItem.m_cMaxDurability = recvarray(startpos + 86) ConvertArrayToItem.m_cCurrentSocketNum = recvarray(startpos + 87) ConvertArrayToItem.m_cMaxSocketNum = recvarray(startpos + 88) ConvertArrayToItem.m_cMaterialType = recvarray(startpos + 89) Array.Copy(recvarray, startpos + 90, ConvertArrayToItem.m_cSocket, 0, 8) Dim nCount As Int32 For nCount = 0 To 34 ConvertArrayToItem.m_usAttribute(nCount) = BitConverter.ToUInt16(recvarray, startpos + 98 + nCount * 2) Next End If End If End Function Public Sub UpdateItemView() ds.Tables(CharItemListIndex).Clear() Dim myEnumerator As System.Collections.IEnumerator = ICharInfo.CharItemData.GetEnumerator() While myEnumerator.MoveNext() Dim Item As ItemInfo = myEnumerator.Current 'Dim myDataRow As DataRow = ProcessPacket.ICharInfo.myDataTable.NewRow() Dim myDataRow As DataRow = ds.Tables(CharItemListIndex).NewRow() myDataRow("ItemName") = Item.m_szItemName myDataRow("ItemIndex") = Item.m_dwItemUID myDataRow("ItemTypeID") = Item.m_usItemProtoTypeID myDataRow("ItemType") = Item.m_cItemType myDataRow("ItemWhere") = GetTakePos(Item.m_cTakeType) myDataRow("ItemX") = Item.m_cXPos myDataRow("ItemY") = Item.m_cYPos myDataRow("ItemZ") = Item.m_cZPos myDataRow("Amount") = Item.m_cNumOrDurability myDataRow("SizeX") = Item.m_cXSize myDataRow("SizeY") = Item.m_cYSize myDataRow("WhetherAmount") = Item.m_bEquip myDataRow("RuneSocket") = Item.m_usRuneSocket myDataRow("MaxDurability") = Item.m_cMaxDurability myDataRow("CurSocketNum") = Item.m_cCurrentSocketNum myDataRow("MaxSocketNum") = Item.m_cMaxSocketNum myDataRow("MaterialType") = Item.m_cMaterialType Dim nCount As Int32 = 0 For nCount = 0 To 7 myDataRow("Socket" + nCount.ToString) = Item.m_cSocket(nCount).ToString Next For nCount = 0 To 34 myDataRow("Attribute" + nCount.ToString) = Item.m_usAttribute(nCount).ToString Next '컬럼을 추가하기 'ICharInfo.myDataTable.Rows.Add(myDataRow) ds.Tables(CharItemListIndex).Rows.Add(myDataRow) End While ICharItemInfo.grdResult.Refresh() End Sub Public Sub InitializeHandler() 'COMMAND : 1 - 로그인 Ack IClientSocket.AddProcess(1, New ClientSocket.ProcessPacket(AddressOf ProcessLoginAck)) '어드민등록 IClientSocket.AddProcess(2, New ClientSocket.ProcessPacket(AddressOf ProcessRegAdmin)) '어드민 서치 IClientSocket.AddProcess(3, New ClientSocket.ProcessPacket(AddressOf ProcessSearchAdmin)) IClientSocket.AddProcess(4, New ClientSocket.ProcessPacket(AddressOf ProcessSearchAdmin)) '어드민 삭제 IClientSocket.AddProcess(5, New ClientSocket.ProcessPacket(AddressOf ProcessDeleteAdmin)) '어드민 정보변경 IClientSocket.AddProcess(6, New ClientSocket.ProcessPacket(AddressOf ProcessEditAdmin)) '현재접속인 사용자 검색 IClientSocket.AddProcess(7, New ClientSocket.ProcessPacket(AddressOf ProcessSelectCurrentUser)) '강제로그아웃 IClientSocket.AddProcess(8, New ClientSocket.ProcessPacket(AddressOf ProcessLogoutUser)) ' 제재자 명단보기 IClientSocket.AddProcess(9, New ClientSocket.ProcessPacket(AddressOf ProcessViewRestraintUser)) ' 제재자 추가 IClientSocket.AddProcess(10, New ClientSocket.ProcessPacket(AddressOf ProcessAddRestraintUser)) ' 제재자인지 확인 IClientSocket.AddProcess(11, New ClientSocket.ProcessPacket(AddressOf ProcessCheckRestraintUser)) ' 제재자 삭제 IClientSocket.AddProcess(12, New ClientSocket.ProcessPacket(AddressOf ProcessDeleteRestraintUser)) ' UID로 캐릭터 이름 얻어오기 IClientSocket.AddProcess(13, New ClientSocket.ProcessPacket(AddressOf ProcessSelectCharidList)) ' 캐릭터 이름으로 캐릭터 데이터 얻어 오기 IClientSocket.AddProcess(14, New ClientSocket.ProcessPacket(AddressOf ProcessSelectCharidInfo)) ' 데이터 수정한 것 DB에 저장 IClientSocket.AddProcess(15, New ClientSocket.ProcessPacket(AddressOf ProcessCommitData)) ' 캐릭터 데이터 업데이트 IClientSocket.AddProcess(16, New ClientSocket.ProcessPacket(AddressOf ProcessUpdateCharData)) ' 캐릭터 마지막 위치 업데이트 IClientSocket.AddProcess(17, New ClientSocket.ProcessPacket(AddressOf ProcessUpdateLastPos)) ' 아이템 생성 IClientSocket.AddProcess(18, New ClientSocket.ProcessPacket(AddressOf ProcessCreateItem)) ' 아이템 업데이트 IClientSocket.AddProcess(19, New ClientSocket.ProcessPacket(AddressOf ProcessUpdateItem)) ' 아이템 삭제 IClientSocket.AddProcess(20, New ClientSocket.ProcessPacket(AddressOf ProcessDeleteItem)) ' 유저 로그인아웃 로그 보기 IClientSocket.AddProcess(21, New ClientSocket.ProcessPacket(AddressOf ProcessViewLoginoutLog)) ' 유저 권한 얻어오기/세팅하기 IClientSocket.AddProcess(22, New ClientSocket.ProcessPacket(AddressOf ProcessAdminRightsAck)) IClientSocket.AddProcess(23, New ClientSocket.ProcessPacket(AddressOf ProcessAdminRightsAck)) End Sub End Module Module SendPacket Public Sub SendViewLoginoutLog(ByVal szUserID As String) Dim encoding As Encoding = encoding.GetEncoding(Code) Dim sendb(15) As Byte encoding.GetBytes(szUserID, 0, Min(16, szUserID.Length), sendb, 0) IClientSocket.Send(21, sendb) End Sub Public Sub SendCheckBlocked(ByVal cConnectedServer As Byte, ByVal dwUID As Int32) Dim sendb(4) As Byte sendb(0) = cConnectedServer Array.Copy(BitConverter.GetBytes(dwUID), 0, sendb, 1, 4) IClientSocket.Send(11, sendb) End Sub Public Sub UpdateCharData(ByVal charInfo As CharInfo) Dim encoding As Encoding = encoding.GetEncoding(Code) Dim sendb(71) As Byte Dim Pos As Int32 = 0 Array.Copy(BitConverter.GetBytes(Convert.ToInt32(charInfo.txtCID.Text)), 0, sendb, Pos, 4) ' CID encoding.GetBytes(charInfo.txtName.Text, 0, Min(16, charInfo.txtName.Text.Length), sendb, Pos + 4) ' 이름 sendb(Pos + 20) = Convert.ToByte(charInfo.txtMW.Text) ' 1 : 남자, 2 : 여자 sendb(Pos + 21) = Convert.ToByte(charInfo.txtHead.Text) ' Head가 아니라 Hair임 sendb(Pos + 22) = Convert.ToByte(charInfo.txtFace.Text) ' 얼굴형 sendb(Pos + 23) = Convert.ToByte(charInfo.txtKind.Text) ' Kind - 캐릭터 종족. 0 : 인간, 1 : 아칸 Array.Copy(BitConverter.GetBytes(Convert.ToUInt16(charInfo.txtClass.Text)), 0, sendb, Pos + 24, 2) ' 캐릭터 클래스 Array.Copy(BitConverter.GetBytes(Convert.ToUInt32(charInfo.txtFame.Text)), 0, sendb, Pos + 26, 4) ' 명성 Array.Copy(BitConverter.GetBytes(Convert.ToUInt32(charInfo.txtMi.Text)), 0, sendb, Pos + 30, 4) ' 마일리지 Array.Copy(BitConverter.GetBytes(Convert.ToUInt32(charInfo.txtGuild.Text)), 0, sendb, Pos + 34, 4) ' 길드 Array.Copy(BitConverter.GetBytes(Convert.ToUInt32(charInfo.txtParty.Text)), 0, sendb, Pos + 38, 4) ' 파티 sendb(Pos + 42) = Convert.ToByte(charInfo.txtLevel.Text) ' 레벨 Array.Copy(BitConverter.GetBytes(Convert.ToUInt32(charInfo.txtMoney.Text)), 0, sendb, Pos + 43, 4) ' 돈 Array.Copy(BitConverter.GetBytes(Convert.ToUInt16(charInfo.txtIP.Text)), 0, sendb, Pos + 47, 2) ' IP (능력치 증가포인트) Array.Copy(BitConverter.GetBytes(Convert.ToUInt16(charInfo.txtStr.Text)), 0, sendb, Pos + 49, 2) ' 힘 Array.Copy(BitConverter.GetBytes(Convert.ToUInt16(charInfo.txtDex.Text)), 0, sendb, Pos + 51, 2) ' 민첩성 Array.Copy(BitConverter.GetBytes(Convert.ToUInt16(charInfo.txtCon.Text)), 0, sendb, Pos + 53, 2) ' 건강 Array.Copy(BitConverter.GetBytes(Convert.ToUInt16(charInfo.txtIni.Text)), 0, sendb, Pos + 55, 2) ' 지력 Array.Copy(BitConverter.GetBytes(Convert.ToUInt16(charInfo.txtWis.Text)), 0, sendb, Pos + 57, 2) ' 지혜 Array.Copy(BitConverter.GetBytes(Convert.ToUInt16(charInfo.txtHp.Text)), 0, sendb, Pos + 59, 2) ' HP Array.Copy(BitConverter.GetBytes(Convert.ToUInt16(charInfo.txtMp.Text)), 0, sendb, Pos + 61, 2) ' MP Array.Copy(BitConverter.GetBytes(Convert.ToUInt64(charInfo.txtExp.Text)), 0, sendb, Pos + 63, 8) ' EXP IClientSocket.Send(16, sendb) End Sub Public Sub UpdateLastPos(ByVal charInfo As CharInfo) Dim sendb(11) As Byte Array.Copy(BitConverter.GetBytes(Convert.ToSingle(charInfo.txtX.Text)), 0, sendb, 0, 4) Array.Copy(BitConverter.GetBytes(Convert.ToSingle(charInfo.txtY.Text)), 0, sendb, 4, 4) Array.Copy(BitConverter.GetBytes(Convert.ToSingle(charInfo.txtZ.Text)), 0, sendb, 8, 4) IClientSocket.Send(17, sendb) End Sub Public Sub Commit() Dim sendb(-1) As Byte IClientSocket.Send(15, sendb) End Sub Public Sub SendCreateItem(ByVal szItemName As String, ByVal cTakePos As Byte, _ ByVal cXPos As Byte, ByVal cYPos As Byte, ByVal cZPos As Byte) Dim encoding As Encoding = encoding.GetEncoding(Code) Dim sendb(35) As Byte encoding.GetBytes(szItemName, 0, Min(32, szItemName.Length), sendb, 0) sendb(32) = cTakePos sendb(33) = cXPos sendb(34) = cYPos sendb(35) = cZPos IClientSocket.Send(18, sendb) End Sub Public Sub SendUpdateItem(ByVal Item As ItemInfo) Dim encoding As Encoding = encoding.GetEncoding(Code) Dim sendb(167) As Byte Dim Pos As Int32 = 0 encoding.GetBytes(Item.m_szItemName, 0, Min(64, Item.m_szItemName.Length), sendb, Pos) Array.Copy(BitConverter.GetBytes(Item.m_dwItemUID), 0, sendb, Pos + 64, 8) Array.Copy(BitConverter.GetBytes(Item.m_usItemProtoTypeID), 0, sendb, Pos + 72, 2) sendb(Pos + 74) = Item.m_cItemType sendb(Pos + 75) = Item.m_cTakeType sendb(Pos + 76) = Item.m_cXPos sendb(Pos + 77) = Item.m_cYPos sendb(Pos + 78) = Item.m_cZPos sendb(Pos + 79) = Item.m_cNumOrDurability sendb(Pos + 80) = Item.m_cXSize sendb(Pos + 81) = Item.m_cYSize sendb(Pos + 82) = BitConverter.GetBytes(Item.m_bEquip)(0) sendb(Pos + 83) = Item.m_cPadding If True = Item.m_bEquip Then Array.Copy(BitConverter.GetBytes(Item.m_usRuneSocket), 0, sendb, Pos + 84, 2) sendb(Pos + 86) = Item.m_cMaxDurability sendb(Pos + 87) = Item.m_cCurrentSocketNum sendb(Pos + 88) = Item.m_cMaxSocketNum sendb(Pos + 89) = Item.m_cMaterialType Array.Copy(Item.m_cSocket, 0, sendb, Pos + 90, 8) Dim nCount As Int32 For nCount = 0 To 34 Array.Copy(BitConverter.GetBytes(Item.m_usAttribute(nCount)), 0, sendb, Pos + 98 + nCount * 2, 2) Next End If IClientSocket.Send(19, sendb) End Sub Public Sub SendDeleteItem(ByVal dwItemUID As UInt64, ByVal usProtoTypeID As UInt16, _ ByVal cTakePos As Byte, ByVal cXPos As Byte, ByVal cYPos As Byte, ByVal cZPos As Byte) Dim sendb(13) As Byte Array.Copy(BitConverter.GetBytes(dwItemUID), 0, sendb, 0, 8) Array.Copy(BitConverter.GetBytes(usProtoTypeID), 0, sendb, 8, 2) sendb(10) = cTakePos sendb(11) = cXPos sendb(12) = cYPos sendb(13) = cZPos IClientSocket.Send(20, sendb) End Sub Public Sub SendAdminRightSearch(ByVal cAdminRightID As Char) Dim sendb(0) As Byte sendb(0) = Asc(cAdminRightID) IClientSocket.Send(22, sendb) End Sub Public Sub SendAdminRightUpdate(ByVal cAdminRightID As Char, ByVal cRights As Boolean()) Dim sendb(20) As Byte sendb(0) = Asc(cAdminRightID) Dim Pos As Int32 = 1 For Pos = 1 To 20 If True = cRights(Pos - 1) Then sendb(Pos) = 1 End If Next IClientSocket.Send(23, sendb) End Sub End Module