BNET(BotID).hash(0) = PBuffer.MakeDWORD(BNET(BotID).GTC)
                BNET(BotID).hash(1) = PBuffer.MakeDWORD(BNET(BotID).Servers)
                BNET(BotID).hash(2) = Mid(Data, 4, Len(Data) - 3)
                With PBuffer
                    .InsertDWORD &H1C
                    .InsertDWORD &H1
                    .InsertNonNTString BNET(BotID).hash(0) & BNET(BotID).hash(1) & BNET(BotID).hash(2)
                    .SendBNLSPacket &HB, BotID
                End With