[Помогите!] Отправка сообщений в чат

[KLAIDY]

Привет всем!
У меня следующая проблема: пытаюсь отправлять сообщения в чат. Для себя нашел два способа (не очень красивых, но все же).

1. Сначала пишет текст в память клиента, потом жмем кнопку "отправить".

Int32[] address_window_1 = CalcControlAddress(oph, "Win_Chat", "DEFAULT_Txt_Speech", 2);
WriteProcessBytes(oph, "!!Самоцвет найден!", address_window_1[1] + 0x13FC);
address_window_1 = CalcControlAddress(oph, "Win_Chat", "DEFAULT_Txt_Speech", 2);
if (address_window_1[0] != 0 && address_window_1[1] != 0)
    Injects.GUI_Inject(address_window_1[0], address_window_1[1], oph);

Собственно так я пишу данные в память клиента

public static void WriteProcessBytes(IntPtr oph, String value, Int32 adress)
        {
            Byte[] bytes = Encoding.Default.GetBytes(value);
            Int32 number_of_bytes_written;
            IntPtr text_address = WinApi.VirtualAllocEx(oph, IntPtr.Zero, 2500, WinApi.AllocationType.Commit, WinApi.MemoryProtection.ReadWrite);
            WinApi.WriteProcessMemory(oph, adress, bytes, bytes.Length, out number_of_bytes_written);
            WriteProcessBytes(oph, adress, (Int32)text_address);
            WinApi.VirtualFreeEx(oph, text_address, 2500, WinApi.FreeType.Release);
        }

Тут пока что не получается, текст в чате не меняется.

2. Вместо записи в память клиента нашего сообщения, передаем посимвольно весь текст окну

public static void SendChatMessage(String text, IntPtr hwnd)
{
    foreach (char c in text)
        WinApi.SendMessage(hwnd, 0x102, c, 0);
}

Для этого способа как я понял, надо делать окно чата активным? Или может даже размораживать? Потому что с этим способом тоже не особо все получается.

3. Ну и конечно способ, о котором я ничего не знаю. Отправка пакета.
Как выглядит этот пакет? На форуме я нашел вот такой пакет, но ведь он только для отправки личных сообщений? Плюс ко всему, если он не ловится как обычный пакет через PacketListener, то, наверное, он и отправляется по другому адресу?

4F                                 Опкод пакета
22 00 03                           (Назначение неизвестно)
00 01 62 B4                        ID персонажа
00 00 00 78                        (Назначение неизвестно)
16                                 Длина сообщения
48 00 45 00 4C 00 4C 00 4F 00 20   \ 
00 57 00 4F 00 52 00 4C 00 44 00   / Сообщение (HELLO WORLD)
00                                 (Назначение неизвестно)

Больше всего хочется, конечно, разобраться с отправкой сообщения пакетом, но я не особо представляю, в какую сторону копать. Помогите, пожалуйста!

[Hilling]

PacketListener не отловит такой пакет, потому что он не находится в соответствующем контейнере. Думаю возможно отправлять и пакетами, если вы напишите свою функцию отправки для этого.

Курил опыт по данному вопросу и могу сказать, что вам надо ковырять первый вариант.

[KLAIDY]

Цитата: Сообщение от Hilling PacketListener не отловит такой пакет, потому что он не находится в соответствующем контейнере. Думаю возможно отправлять и пакетами, если вы напишите свою функцию отправки для этого. Курил опыт по данному вопросу и могу сказать, что вам надо ковырять первый вариант.

Спасибо за совет, будем пробовать.

Пробую заполнить текстбокс чатика через подмену указателя на текст, но почему-то вылетает клиент. Хотя пару раз текст вставлялся и без вылета, а это значит, что код, вероятно, рабочий!
Что я делаю не так?(

public static void WriteProcessBytes(IntPtr oph, String value, Int32 adress)
        {
            
            Int32 number_of_bytes_written;
            //формируем массив данных
            Byte[] bytes_2 = Encoding.Unicode.GetBytes("123");
            //выделяем место в памяти клиента
            Int32 text_address = (Int32)WinApi.VirtualAllocEx(oph, IntPtr.Zero, 20, WinApi.AllocationType.Commit, WinApi.MemoryProtection.ReadWrite);
            //записываем массив данных в выделенной место
            WinApi.WriteProcessMemory(oph, (Int32)text_address, bytes_2, bytes_2.Length, out number_of_bytes_written);
            //конвертируем указатель на массив данных в массив байт
            Byte[] new_value = BitConverter.GetBytes(text_address);
            Int32 number_of_bytes_written_2;
            //записываем массив байт указателя по оффсету "адрес контрола + 0x13FC"
            WinApi.WriteProcessMemory(oph, adress + 0x13FC, new_value, new_value.Length, out number_of_bytes_written_2);//тут вылетает клиент, если его взять в фокус
            //считываем адрес окна чата и адрес команды текстбокса
            Int32[] address_window = CalcMethods.CalcControlAddress(oph, "Win_Chat", "DEFAULT_Txt_Speech", 2);//также вылетает клиентдаже в фокус не надо брать
            //отправляем сообщение
            Injects.GUI_Inject(address_window[0], address_window[1], oph);
            //подчищаем за собой
            WinApi.VirtualFreeEx(oph, (IntPtr)text_address, 4, WinApi.FreeType.Release);
        }

Добавлено через 17 часов 23 минуты
В общем после длительного гуглосерфинга и курения форумов нашелся инжект для редактирования текста в чатике:
https://zhyk.ru/forum/showpost.php?p...&postcount=314

[bestbeer]

Вот так работало исправно.

    Private Alloc_text As Dictionary(Of Int32, UInt32) = New Dictionary(Of Int32, UInt32)

    Public Sub Write_text_chat(ByVal packet() As Byte)
 
        If Alloc_text.ContainsKey(packet.Length) = False Then

            Dim text_alloc_adress As UInt32

            text_alloc_adress = VirtualAllocEx(hProcess, 0, packet.Length, &H1000, &H4) 'выделяем память

            Alloc_text.Add(packet.Length, text_alloc_adress)

        End If

        WriteProcessMemory(hProcess, Alloc_text(packet.Length), packet, packet.Length, Nothing)

        Me.Mov_EDI(Alloc_text(packet.Length))
        Me.Push_EDI()

    End Sub

    Public Sub add_chat(ByVal text As String) 'белый чат

        Me.Clear()

        Me.Pushad()

        Me.Mov_ECX(&HFFFFFFFF)

        Me.Push_ECX()

        Me.Mov_EAX_DWORD_Ptr(&HD2EBE8)
        Me.Mov_ECX_EAX() 'хз че но важно

        Me.Mov_EDX(&HFFFFFFFF)

        Me.Push_EDX()

        Dim packet() As Byte = System.Text.Encoding.Unicode.GetBytes(text)
        Me.Write_text_chat(packet) 'записываем текст

        Me.Mov_EAX(0)

        Me.Push_EAX()

        Me.Mov_EAX(&H789D00) 'speak func
        Me.Call_EAX()

        Me.Popad()
        Me.Ret()

        Me.RunAsm(OtherAllocMemory)

    End Sub

Сейчас адреса скорее всего другие, функция легко ищется.

Добавлено через 15 минут
А чтобы не забанили за флудерство, подменяй буквы с схожим смыслом на английские, вот тогда будет тебе щастье .