Perexvat

[f0rbeed]

Вот что нужно:

Ловить системные message box'ы(Служба сообщений) и читать то что в них написано. А потом их соответственно закрывать и так чтобы это было незаметно.

[Yurik]

Ну я тя запросы...
Тебе бы сразу к Дядюшке Билли или прямое письмо в Microsoft!

------------------------------------------------------------

ЗЫ: Без обид!

[Firestorm]

одно могу пока сказатиь - это вполне реально... но как, не помнню... вроде как этот вопрос уже возникал...

[alibek]

Ты имеешь ввиду сообщения, рассылаемые Net Send? Есть два способа -- сложный и неправильный
Неправильный -- имеется невидимая форма с таймером. На таймере перебираются все открытые окна, и если имеется окно с соответствующим заголовком "Messenger Service", то его содержимое копируется в буфер (через GetWindowText), а окну посылается WM_CLOSE.
А правильным будет остановить сервис "Messenger", создать свой майлслот с именем messngr и обрабатывать его.

[f0rbeed]

А как перебирать все окна? Можно ли примерчик?

[Лёха_Virus]

я делал так:

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long

Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long

Public Function GetCaption(lhWnd As Long) As String
Dim sA As String, lLen As Long
lLen = GetWindowTextLength(lhWnd)
sA = String(lLen, 0)
Call GetWindowText(lhWnd, sA, lLen + 1)
GetCaption = sA
End Function

Public Function DLHFindWin(frm As Form, WinTitle As String, CaseSensitive As Boolean) As Long
Dim lhWnd As Long, sA As String
lhWnd = frm.hwnd
Do
DoEvents
If lhWnd = 0 Then Exit Do
If CaseSensitive = False Then
sA = LCase(GetCaption(lhWnd))
WinTitle = LCase(WinTitle)
Else
sA = GetCaption(lhWnd)
End If
If InStr(sA, WinTitle) Then
DLHFindWin = lhWnd
Exit Do
Else
DLHFindWin = 0
End If
lhWnd = GetNextWindow(lhWnd, 2)
Loop
End Function

Sub showwinds()
List1.Clear
For i = 1 To 255
If DLHFindWin(Me, Chr(i), False) <> 0 Then
wind = GetCaption(DLHFindWin(Me, Chr(i), False))

For k = 0 To List1.ListCount
If List1.List(k) = wind Then b = True
Next

If b = False Then List1.AddItem wind Else b = False
End If
Next
End Sub

Private Sub Command1_Click()
Call showwinds
End Sub

'а вот так убивать:

Private Sub kill_Click()
hwind = DLHFindWin(Me, List1.List(List1.ListIndex), False)
CloseWindow hwind
End Sub

сорри за объём, главное что работает

[f0rbeed]

2 Леха: Да это как будто аналог Таскменеджера в win9x. Дело в том что, получается так что этот MsgBox там не виден. То есть он своим hwnd будто бы не обладает. Так что не знаю что делать. У кого есть win 2k - попробуйте.
P.S А по СloseWindow окно не закрывается, надо SendMessage слать.

[Sebas]

Класс окна #32770, но надо и дочернии проверять, так как, у многих окон такой класс, например у диалога открытия файлов и Counter-Strike))))))

[f0rbeed]

А как этот класс окна использовать? И как содержимое этого окна получить? А то что я не особо понял на счет caption'а.

[f0rbeed]

Ну ладно с классом понятно, а как Лабел то читать?

[Sebas]

SPY++ и вперёд!

[f0rbeed]

???

[Cyrax]

ну в студии есть программа такая. кажется в пункте VC++ sdk при инсталляции.

а из программы ты label не прочтеш, так как этот контрол не имеет hwnd и не является окном, как остальные контролы.

[f0rbeed]

Ладно, а как его закрыть? И вот еще что: а нельзя ли как нибудь скопировать в буффер, ведь в 2к при появлении мсгбокса и нажатии ctrl-c содержимое копируется в буффер.

[GriKo]

короче, не знаю как в 2к, но на ХР ничерта не пашет. это было понятно, так как действительно за МысычБоксом такая фича как hWnd в общем и не числиться... с С как снять (который ++) я вобщем знаю
с ВБ - извените...

[alibek]

Все можно
VB'шный Label действительно не имеет hWnd, но в том MsgBox используется не Label, там стандартный элемент с классом "Static" и с него можно без проблем считать содержимое с помощью API GetWindowText.
Т.е. через FindWindow ищешь системный MsgBox (с заголовком "Messenger Service"). Затем в помощью FindWindowEx ищешь в нем первый элемент с именем класса "Static" (он там единственный) и считываешь через GetWindowText.

[f0rbeed]

А как GetWindowText использовать? Можно ли на примере?

[f0rbeed]

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

Private Sub TellPlz()
Dim wnd As Long
Dim A As String, ALen As Long
    wnd = FindWindowEx(FindWindow("#32770", "Служба сообщений"), 0, "Static", "")
    ALen = GetWindowTextLength(wnd)
    Call GetWindowText(wnd, A, ALen+1)
    MsgBox A
End Sub


Что то не работает... hwnd получается, а вот остальные две функции не дают ничего... Странно все это...

[f0rbeed]

Ну так что скажите то?

[GSerg]

А буфер кто будет инициализировать? Пушкин?

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

A = Space$(ALen)