Получить текст с чужого окна

[RazArt]

Есть такая проблема, нужно получить текст в окна чужого приложения. Но текст там очень большой и поэтому передаётся лишь малая часть этого текста, а нужен как раз конец. Так как можно его получить?

[arvitaly]

Код покажи

[RazArt]

Код: Выделить всё

Private Sub cmd_GetTest_Click()
Dim WinText As String, textLen As Long
hwnd_Garena_Window = FindWindow(vbNullString, "Garena")
EnumChildWindows hwnd_Garena_Window, AddressOf WndEnumChildProc, vbNull
textLen = SendMessage(hwnd_Garena_Window_Chat, WM_GETTEXTLENGTH, 0, 0)
If (textLen) Then
    WinText = String(textLen, Chr$(0))
    Call SendMessage(hwnd_Garena_Window_Chat, WM_GETTEXT, textLen, ByVal WinText)
    txt_Text.Text = WinText
End If
End Sub

[arvitaly]

textLen правильное значение показывает? Какое?

Ох уж эти гареновзломщики...

[RazArt]

Никто ламать не собирается, я пробовал поставить свои, ничё не выходит, что 150000, что 160000 одно и тоже =\

[arvitaly]

Получай не в стринг, а в Byte или в Long, и не надо брать больше чем есть

[RazArt]

Строку получать в лонг? о_О

[arvitaly]

Адрес

[RazArt]

Какой адрес, ты о чём?

[arvitaly]

Адрес в адресном пространстве, начиная с которого расположена строка

[RazArt]

Эм... код-пример можно?

[arvitaly]

Dim fff(6) As Byte
SendMessage hwnd, WM_GETTEXT, 7, fff(0)

[RazArt]

Сделал я такой код:

Код: Выделить всё

Private Sub cmd_GetTest_Click()
Dim WinText As String
Dim textLen As Long
Dim fff() As Byte
hwnd_Garena_Window = FindWindow(vbNullString, "Garena")
EnumChildWindows hwnd_Garena_Window, AddressOf WndEnumChildProc, vbNull
textLen = SendMessage(hwnd_Garena_Window_Chat, WM_GETTEXTLENGTH, 0, 0)
ReDim fff(textLen) As Byte
If (textLen) Then
    WinText = String(textLen, Chr$(0))
    'Call SendMessage(hwnd_Garena_Window_Chat, WM_GETTEXT, textLen, ByVal WinText)
    SendMessage hwnd_Garena_Window_Chat, WM_GETTEXT, textLen, fff(0)
    For x = 0 To textLen
        txt_Text.Text = txt_Text.Text & Chr(fff(x))
    Next x
End If
End Sub

Но появляется ошибка что память не может быть прочитана =\

[arvitaly]

объявления покажи

[RazArt]

[arvitaly]

Да не ошибку, а объявление функции SendMessage

[Хакер]

Что за окно (класс окна), с которого получается текст?

[arvitaly]

Класс RichText

[Хакер]

Какого размера текст?

[RazArt]

Несколько десятков тысяч. А вообще пробовал с маленьким через байты, но они все равны нулю =\

Код: Выделить всё

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long


[Хакер]

Несколько десятков тысяч.

Точнее!

[RazArt]

Сейчас WM_GETTEXTLENGTH выводит 71797, но обычно больше

[arvitaly]

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Попробуй так

[RazArt]

Всё спс, так работает