Получить текст из чужого статусбара

@Zerg1 · Регистрация: 04.05.2010

Студворк — интернет-сервис помощи студентам

Хочется получить текст из нулевой панели статусбара другого приложения. Хэндл на статусбар получить могу. Но с посылкой сообщения SB_GETTEXT полный затык. Хоть режьте меня. Реально горю короче, вся работа стоит.
Во-первых, непонятно чему равен сам код сообщения. Этого нигде нет.
Во-вторых, непонятно как описывать прототип SendMessage для данного случая. Ведь там надо передавать указатель на строку.
В-третьих, как надо описывать строку, которая туда передаётся.

Помогите, люди добрые, пожалуйста, работающим примером или куском исходника.
Если чего, то мыло zerg2003@yandex.ru

04.05.2010, 14:38

Короче, так: проблема стара как мир.

Ничего у тебя не получается только потому, что твоя переменная, в которую ты хочешь передать текст, и исходный текст содержатся в разных адресных пространствах. Как преодолеть границы адресного пространства уже было сказано - поищи по форуму, тред там про чужое дерево был. Единственное, это не будет работать под 9х, только под NT.

04.05.2010, 14:40

или, если хочешь, отпишись мне на мыло - кину пример...

@mahaon_m · 04.05.2010, 14:40

у передаваемой строки надо заранее определить размер:
buf = Space$(255), а потом уже передавать в SendMessage

@Zerg1 · 04.05.2010, 17:17 **[ТС]**

строку я проспейсивал и так - не помогает.

Мессир, мыло тебе с просьбой примера сбросил.
Но трэд который ты упомянул, так и не нашёл...

04.05.2010, 18:48

2 Zerg1:
Проверяй мыло! Там лежит пример под твою задачу...

2 mahaon_m:
Это, безусловно, нужно, но этого недостаточно по причине, указанной мною выше.

@HackerVlad · 11.05.2023, 21:28

Никто не ответил! И НИКТО не приложил код для этой задачи. Даже НИКТО не сказал что надо выделять страницу памяти в адресном пространстве другого процесса через VirtualAllocEx. Ну прям никто не написал код, что за люди... Зачем тогда тему было создавать...

Добавлено через 2 минуты
Вообще не понимаю зачем тогда тему создавать, если на неё нету ответов по 10-15 лет аж...

Добавлено через 52 минуты
Код должен быть примерно таким, но у меня почему-то не работает:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function VirtualAllocEx Lib "kernel32.dll" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpAddress As Long, ByRef dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function SendMessageW Lib "user32" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Private Const WM_USER = &H400
Private Const SB_GETTEXT As Long = (WM_USER + 2)
Private Const SB_GETTEXTLENGTH = (WM_USER + 3)
Private Const PROCESS_VM_OPERATION = &H8
Private Const PROCESS_VM_READ = 16
Private Const PROCESS_VM_WRITE = &H20
Private Const MEM_COMMIT = &H1000&
Private Const PAGE_READWRITE = 4&
Private Const MEM_RELEASE = &H8000&
 
Public Function GetStatusBarText(ByVal hwnd As Long) As String
    Dim strBuff As String
    Dim pid As Long
    Dim pMemStr As Long
    Dim hProc As Long
    Dim GETTEXTLENGTH As Long
    
    strBuff = Space$(65535)
    
    GetWindowThreadProcessId hwnd, pid
    hProc = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, 0, pid)  ' Открываем процесс
    pMemStr = VirtualAllocEx(hProc, ByVal 0&, 0, MEM_COMMIT, PAGE_READWRITE)
    
    GETTEXTLENGTH = SendMessageW(hwnd, SB_GETTEXTLENGTH, 0, 0)
    MsgBox GETTEXTLENGTH
    Debug.Print "SendMessageW: " & SendMessageW(hwnd, SB_GETTEXT, GETTEXTLENGTH, pMemStr)
    MsgBox "", vbInformation
    'ReadProcessMemory hProc, pMemStr, ByVal strBuff, 65535, 0&
    
    strBuff = Replace(strBuff, vbNullChar, vbNullString)
    
    GetStatusBarText = strBuff
    
    VirtualFreeEx hProc, pMemStr, ByVal 0&, MEM_RELEASE
    CloseHandle hProc
End Function

Добавлено через 47 секунд
GETTEXTLENGTH только правильно определяет, и для 64-битных процессов кстати тоже, а вот дальше в страницу памяти ничего не записывается, разочаровало... Не получилось почему-то...

Добавлено через 2 минуты

Сообщение от Zerg1

zerg2003@yandex.ru

Чего на мыло кода скидываете? Дайте людям здесь на форуме! Эгоисты...

Добавлено через 30 секунд
А люди должны мучаться по два часа голову ломать над кодом... А у вас уже написан! Бессовестные...

Добавлено через 1 минуту
Поделиться кодом жалко уже!

I can · 11.05.2023, 21:34

Сообщение от HackerVlad

Чего на мыло кода скидываете?

13 лет назад были другие правила. Сейчас является нарушением приглашение к общению где-то помимо форума.

@HackerVlad · 11.05.2023, 23:44

Да кого эти правила интересуют вообще? Дело не в этом, сами между собой там что-то договорились скинули себе код на мыло потихой и всё на этом, а тему нахера было создавать, ну

Добавлено через 34 секунды
И гадай вот после этого как этот код написать

Добавлено через 3 минуты
Эгоисты они такие...

@HackerVlad · 12.05.2023, 11:30

15 лет никто не мог написать код! я искал так же по другим форумам, тоже ничего нет, весь интерент обшарил ничего нет

была создана тема, на неё заходили много-много человек за эти 10-15 лет и все люди кому эта тема была интересна, плакали горькими слезами, что нет ответа на вопрос... ну неужели так сложно было поделиться кодом...

Добавлено через 1 минуту
Моя единственная ошибка в коде в том, что я пытался передать длину там где этого совсем не надо, вместо

Сообщение от HackerVlad

SendMessageW(hwnd, SB_GETTEXT, GETTEXTLENGTH, pMemStr)

нужно написать SendMessageW(hwnd, SB_GETTEXT, 0, pMemStr) и всё работает сразу

Добавлено через 22 минуты
даже с 64-битными процессами работает правильно, повезло)

Добавлено через 3 минуты

Сообщение от Zerg1

Но с посылкой сообщения SB_GETTEXT полный затык. Хоть режьте меня.

У меня был тоже затык, но я за один день решил эту задачу, резать тебя не буду, код написал уже полностью рабочий))) Пользуйся)))

Добавлено через 1 минуту

Сообщение от Zerg1

Во-первых, непонятно чему равен сам код сообщения.

Visual Basic
1
2
3
Private Const WM_USER = &H400
Private Const SB_GETTEXT As Long = (WM_USER + 2)
Private Const SB_GETTEXTLENGTH = (WM_USER + 3)

Добавлено через 56 секунд

Сообщение от Zerg1

Во-вторых, непонятно как описывать прототип SendMessage для данного случая. Ведь там надо передавать указатель на строку.

Строка должна находится внутри другого процесса, а этого можно достичь только через VirtualAllocEx.

Добавлено через 43 секунды

Сообщение от Zerg1

Помогите, люди добрые, пожалуйста, работающим примером или куском исходника.

Помог, я добрый и не жадный

@HackerVlad · 12.05.2023, 12:39

А вот и решение этого сложного вопроса:

Модуль:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function VirtualAllocEx Lib "kernel32.dll" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpAddress As Long, ByRef dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function SendMessageW Lib "user32" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Private Const WM_USER = &H400
Private Const SB_GETTEXT As Long = (WM_USER + 2)
Private Const PROCESS_VM_OPERATION = &H8
Private Const PROCESS_VM_READ = 16
Private Const MEM_COMMIT = &H1000&
Private Const PAGE_READWRITE = 4&
Private Const MEM_RELEASE = &H8000&
 
Public Function GetStatusBarText(ByVal hwnd As Long) As String
    Dim strBuff As String
    Dim pid As Long
    Dim pMemStr As Long
    Dim hProc As Long
    Dim GetTextLength As Long
    
    strBuff = Space$(65535)
    
    GetWindowThreadProcessId hwnd, pid
    hProc = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ, 0, pid)  ' Открываем процесс
    pMemStr = VirtualAllocEx(hProc, ByVal 0&, 0, MEM_COMMIT, PAGE_READWRITE)
    GetTextLength = SendMessageW(hwnd, SB_GETTEXT, 0, pMemStr)
    
    If GetTextLength > 0 Then
        ReadProcessMemory hProc, pMemStr, ByVal strBuff, GetTextLength, 0&
        GetStatusBarText = Left$(strBuff, GetTextLength)
    End If
    
    VirtualFreeEx hProc, pMemStr, ByVal 0&, MEM_RELEASE
    CloseHandle hProc
End Function

Форма... (не обязательно, просто пример для запуска редактора реестра и считывания его StatusBar'а)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForInputIdle Lib "user32" (ByVal hProc As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long
 
Private Const PROCESS_QUERY_INFORMATION = 1024
Private Const INFINITE = -1
 
Private Sub Command1_Click()
    Dim hRegEdit As Long
    Dim hStatusBar As Long
    Dim hProc As Long
    Dim pid As Long
    
    ' Найти окно редактора реестра
    hRegEdit = FindWindow("RegEdit_RegEdit", vbNullString)
    
    If hRegEdit = 0 Then ' Если редактор реестра не запущен, то запустить его
        ' Функция ShellExecute, в отличии от CreateProcess, позволяет запускать программы которые
        ' находятся в пропатченых каталогах (из всех каталогов переменной окружения среды PATH),
        ' таким образом, нам даже не надо вычислять каталог Windows и где лежит этот regedit.exe
        ShellExecute 0, "Open", "regedit.exe", vbNullString, vbNullString, vbNormalFocus
        
        Do ' Ожидаем появления окна
            hRegEdit = FindWindow("RegEdit_RegEdit", vbNullString)
        Loop While hRegEdit = 0 ' Выполнять цикл до тех пор пока не будет найдено искомое окно
        
        GetWindowThreadProcessId hRegEdit, pid ' Вычисляем PID процесса regedit
        hProc = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid) ' Открыть процесс
        WaitForInputIdle hProc, INFINITE ' Ожидаем окончательной загрузки программы regedit
        Sleep 50
        WaitForInputIdle hProc, INFINITE
        CloseHandle hProc
    End If
    
    ' Найти статусбар regedit'а
    hStatusBar = FindWindowEx(hRegEdit, ByVal 0&, "msctls_statusbar32", vbNullString)
    
    Label1.Caption = Chr(34) & GetStatusBarText(hStatusBar) & Chr(34)
End Sub

@Zerg1 · 13.05.2023, 02:18 **[ТС]**

Правда на GetStatusBarText.zip мой 360Total ругается про троян

@HackerVlad · 13.05.2023, 03:53

Сообщение от Zerg1

Правда на GetStatusBarText.zip мой 360Total ругается про троян

Извини, пожалуйста, ну ты же видишь исходный код программы, никакого трояна нету, сейчас многие VB6 программы антивирусы подозревают в вирусной активности почему-то.

Добавлено через 5 минут
Как пишут другие люди тотал вообще на всё ругается, им лучше не проверять.

@HackerVlad · 15.05.2023, 17:19

Вот более правильный код, с исправленными ошибками в декларациях и вызовах:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function VirtualAllocEx Lib "kernel32.dll" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function SendMessageW Lib "user32" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Private Const WM_USER = &H400
Private Const SB_GETTEXT As Long = (WM_USER + 2)
Private Const PROCESS_VM_OPERATION = &H8
Private Const PROCESS_VM_READ = 16
Private Const MEM_COMMIT = &H1000&
Private Const PAGE_READWRITE = 4&
Private Const MEM_RELEASE = &H8000&
 
Public Function GetStatusBarText(ByVal hwnd As Long) As String
    Dim strBuff As String
    Dim pid As Long
    Dim pMemStr As Long
    Dim hProc As Long
    Dim GetTextLength As Long
    
    strBuff = Space$(65535)
    
    GetWindowThreadProcessId hwnd, pid
    hProc = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ, 0, pid)  ' Открываем процесс
    pMemStr = VirtualAllocEx(hProc, ByVal 0&, 65535, MEM_COMMIT, PAGE_READWRITE)
    GetTextLength = SendMessageW(hwnd, SB_GETTEXT, 0, pMemStr)
    
    If GetTextLength > 0 Then
        ReadProcessMemory hProc, pMemStr, ByVal strBuff, GetTextLength, 0&
        GetStatusBarText = Left$(strBuff, GetTextLength)
    End If
    
    VirtualFreeEx hProc, pMemStr, 0, MEM_RELEASE
    CloseHandle hProc
End Function

@Zerg1 · 15.05.2023, 22:26 **[ТС]**

всё-таки лучше добавить возможность грабить все панели статусбара

@HackerVlad · 15.05.2023, 23:27

Сообщение от Zerg1

всё-таки лучше добавить возможность грабить все панели статусбара

Ну ты можешь и свой код сюда написать)

@Zerg1 · 16.05.2023, 23:01 **[ТС]**

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Attribute VB_Name = "SB_GETTXT"
Option Explicit
Private Declare Function VirtualAllocEx Lib "kernel32.dll" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32.dll" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const PROCESS_VM_OPERATION As Long = (&H8)
Private Const PROCESS_VM_READ As Long = (&H10)
Private Const MEM_RELEASE As Long = &H8000
Private Const MEM_COMMIT As Long = &H1000
Private Const PAGE_READWRITE As Long = &H4
 
Private Const SB_GETTEXT = &H402
 
Public Function GetStatusBarText(ByVal hStatusBar As Long, ByVal nBandNum As Long) As String
Dim hProcess As Long, pMem As Long, pID As Long, tWindow As Long, w As Long
Dim hRet As Long, buffer As String
 
tWindow = GetParent(hStatusBar)
While GetParent(tWindow) <> 0
    tWindow = GetParent(tWindow)
    Wend
GetWindowThreadProcessId tWindow, pID
If pID <> GetCurrentProcessId Then
    hProcess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ, 0, pID)
    If hProcess = 0 Then Exit Function
    pMem = VirtualAllocEx(hProcess, ByVal 0, ByVal 4096, MEM_COMMIT, PAGE_READWRITE)
    If pMem <> 0 Then
        hRet = SendMessage(hStatusBar, SB_GETTEXT, nBandNum, ByVal pMem)
        buffer = Space(4096)
        ReadProcessMemory hProcess, ByVal pMem, ByVal buffer, 4096, w
        GetStatusBarText = Left(buffer, hRet)
        VirtualFreeEx hProcess, ByVal pMem, 4096, MEM_RELEASE
    Else
        GetStatusBarText = ""
        End If
    CloseHandle hProcess
Else
    GetStatusBarText = "Use this function only with external applications"
    End If
End Function

Добавлено через 1 минуту
Но реально это наследие Великого Messir'a

@HackerVlad · 16.05.2023, 23:02

Было бы классно если бы ты этот код опубликовал 13 лет назад ещё конечно. Сэкономил бы людям, будущим поколениям, время на поиски решения. Но лучше поздно чем никогда.

@Zerg1 · 16.05.2023, 23:09 **[ТС]**

блин, пойду повешусь...

@HackerVlad · 16.05.2023, 23:12

Сообщение от Zerg1

блин, пойду повешусь

Да ладно, ничего страшного, я только часа три лишних потратил чтобы самому всё это написать)

Добавлено через 38 секунд
Самому даже лучше писать, когда полностью понимаешь принцип работы, алгоритм действий и т.д.

Добавлено через 59 секунд
Что касательно чтения второй, третьей, четвёртой части статусбара... Надо бы проверить кстати, я просто не ставил перед собою ещё такую задачу.

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

Получить текст из чужого статусбара

Решение

Решение

@Zerg1 2 / 2 / 0 Регистрация: 04.05.2010 Сообщений: 93

	Получить текст из чужого статусбара 04.05.2010, 13:57. Показов 2507. Ответов 21 Метки нет (Все метки) Хочется получить текст из нулевой панели статусбара другого приложения. Хэндл на статусбар получить могу. Но с посылкой сообщения SB_GETTEXT полный затык. Хоть режьте меня. Реально горю короче, вся работа стоит. Во-первых, непонятно чему равен сам код сообщения. Этого нигде нет. Во-вторых, непонятно как описывать прототип SendMessage для данного случая. Ведь там надо передавать указатель на строку. В-третьих, как надо описывать строку, которая туда передаётся. Помогите, люди добрые, пожалуйста, работающим примером или куском исходника. Если чего, то мыло zerg2003@yandex.ru 0

Messir
	04.05.2010, 14:38
	Короче, так: проблема стара как мир. Ничего у тебя не получается только потому, что твоя переменная, в которую ты хочешь передать текст, и исходный текст содержатся в разных адресных пространствах. Как преодолеть границы адресного пространства уже было сказано - поищи по форуму, тред там про чужое дерево был. Единственное, это не будет работать под 9х, только под NT.

Messir
	04.05.2010, 14:40
	или, если хочешь, отпишись мне на мыло - кину пример...

@mahaon_m 1 / 1 / 0 Регистрация: 03.02.2010 Сообщений: 43
	04.05.2010, 14:40
	у передаваемой строки надо заранее определить размер: buf = Space$(255), а потом уже передавать в SendMessage 0

@Zerg1 2 / 2 / 0 Регистрация: 04.05.2010 Сообщений: 93
	04.05.2010, 17:17 [ТС]
	строку я проспейсивал и так - не помогает. Мессир, мыло тебе с просьбой примера сбросил. Но трэд который ты упомянул, так и не нашёл... 0

Messir
	04.05.2010, 18:48
	2 Zerg1: Проверяй мыло! Там лежит пример под твою задачу... 2 mahaon_m: Это, безусловно, нужно, но этого недостаточно по причине, указанной мною выше.

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	11.05.2023, 23:44
	Да кого эти правила интересуют вообще? Дело не в этом, сами между собой там что-то договорились скинули себе код на мыло потихой и всё на этом, а тему нахера было создавать, ну Добавлено через 34 секунды И гадай вот после этого как этот код написать Добавлено через 3 минуты Эгоисты они такие... 0

@Zerg1 2 / 2 / 0 Регистрация: 04.05.2010 Сообщений: 93
	13.05.2023, 02:18 [ТС]
	Правда на GetStatusBarText.zip мой 360Total ругается про троян 0

@Zerg1 2 / 2 / 0 Регистрация: 04.05.2010 Сообщений: 93
	15.05.2023, 22:26 [ТС]
	всё-таки лучше добавить возможность грабить все панели статусбара 0

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	16.05.2023, 23:02
	Было бы классно если бы ты этот код опубликовал 13 лет назад ещё конечно. Сэкономил бы людям, будущим поколениям, время на поиски решения. Но лучше поздно чем никогда. 0

@Zerg1 2 / 2 / 0 Регистрация: 04.05.2010 Сообщений: 93
	16.05.2023, 23:09 [ТС]
	блин, пойду повешусь... 0