Форум на Исходниках.RU

Как залесть в ListBox чужой программы?

DataKill — Wed, 06 Oct 2010 07:46:11 +0000

DataKill: Как я уже только не пробывал )))))
И с sItem = Space(lLen), и без него, получилось так как написал выше :)

Как залесть в ListBox чужой программы?

coder — Tue, 05 Oct 2010 15:55:24 +0000

coder:

Цитата DataKill @ 05.10.10, 05:52

Но даже с ним ничего не работает.

Все как было, так и есть, а sItem по прежнему возвращает пустой буфер

Не может быть.
А у меня работает без ByVal.

Я думаю что, ты первый раз не добавил sItem = Space(lLen), и по этому код не работало.

Как залесть в ListBox чужой программы?

DataKill — Tue, 05 Oct 2010 07:06:48 +0000

DataKill: Решенно :)
Нужно было написать:

call SendMessage(hWnd, LB_GETTEXT, ByVal lCount - 1, ByVal sItem)

Как залесть в ListBox чужой программы?

DataKill — Tue, 05 Oct 2010 05:52:17 +0000

DataKill: Буфер я забыл добавить в пост на форуме. В коде он у меня есть... Это я эксперементировал :)

Но даже с ним ничего не работает.

Все как было, так и есть, а sItem по прежнему возвращает пустой буфер

Как залесть в ListBox чужой программы?

coder — Mon, 04 Oct 2010 18:47:24 +0000

coder: Перед Call SendMessage опустил:

sItem = Space(lLen)

Как залесть в ListBox чужой программы?

DataKill — Mon, 04 Oct 2010 13:03:00 +0000

DataKill: Окай, нашел пример, запустил в отдельной программе. Все работает.
Пробую цеплять на свою и ничего толкового не получается.... %)

Код в моей программе:

Public Function GetListBoxItems(ByVal hWnd As Long) As String

Dim lCount As Long, lIndex As Long

Dim sItem As String, lLen As Long

lCount = SendMessage(hWnd, LB_GETCOUNT, 0&, ByVal 0&)

lLen = SendMessage(CLng(hWnd), LB_GETTEXTLEN, ByVal CLng(lCount) - 1, ByVal CLng(0))

sItem = Space(lLen)

Call SendMessage(hWnd, LB_GETTEXT, lCount - 1, ByVal sItem)

GetListBoxItems = sItem

End Function

SendMessage(hWnd, LB_GETTEXT, lCount - 1, ByVal sItem) возвращает -1
sItem = "N-ое коли-во пробелов" (Пустой буфер)

Как залесть в ListBox чужой программы?

leo — Fri, 01 Oct 2010 14:57:33 +0000

leo:

Цитата DataKill @ 01.10.10, 12:23

Как его можно сделать по маске типа: "*ошибка*", что бы можно было выбирать любое сочетание символов для поиска?

C автопоиском по LB_FINDSTRING - никак.
Можно отслеживать кол-во строк в листбоксе по LB_GETCOUNT и если оно увеличилось, то читать в цикле все добавленные строки по LB_GETTEXT и уже самому смотреть, есть ли в них "заветное слово" :)

Как залесть в ListBox чужой программы?

DataKill — Fri, 01 Oct 2010 12:23:27 +0000

DataKill: Доброго времени суток!

Снова я с занудными вопросами по окнах...

Есть программка. На ней ListBox. Эта программка представляет с себя маленький терманальчик, в которот отслеживается деятельность работы приложения...
Туда заносятся данные примерно следующего характера:
Тоесть сначала идет дата, потом описание сообытия.

Нужно просмотривать все события (ну, скорей всего последнее в списке) и если там будет ошибка, то вызывать соответствующую функцию.
Список с ошибками заранее известен! :)

Накопал примерчик:

Const LB_FINDSTRING = &H18F

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long

Private Sub Form_Load()

List1.Clear

List1.AddItem "Apples"

List1.AddItem "Banana"

List1.AddItem "Bread"

List1.AddItem "Break"

Text1.Text = ""

End Sub

Private Sub Text1_Change()

List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)

End Sub

При изменении значения TextBox - в списке выбирается нужное значение. Ищется оно, как видите по hwnd. hwnd ListBox-а нам известно.
Но он ищет только полные названия строки или с текст, с которой строка начинается.

Как его можно сделать по маске типа: "*ошибка*", что бы можно было выбирать любое сочетание символов для поиска?

Заранее благодарен :)