Как поймать чужое сообщение ?

[Vlad_Ginz]

При работе с чужой программой выдается ненужное сообщение,
например "Правильной дорогой идете, товарищи !"
При нажатии Ok программа далее работает как надо.
Есть ли возможность как-то убрать такое сообщение ?

[Tok]

С чужой!? Причем здесь VB?
Это смахивает на взлом.

Если я правильно понял: Теоритически это можно решить с помощью SoftICE (это отладчик) - если это Message Box-окно, ставишь брикпоинт на MessageBoxA (или MessageBoxExA). Далее знаниями Ассемблера отследи, что привело к появлению мессаги и измени это условие на нужное, либо замени на "no operation" ("nop"). ) ) )


А если ты имеешь ввиду, то, что у тебя чужой проект для VB, то найди в коде что-то вроде:
MsgBox "Правильной дорогой идете, товарищи !" и удали...

[A.A.Z.]

В принципе (не пробовал), наверное, можно форму спрятать и в таймере отлавливать соответствующее окно (я про MsgBox), и если найдено - PostMessage WM_CLOSE.

[Vlad_Ginz]

Программа чужая неизвестно на каком языке и кодов ее не имею.
Известно только сообщение в виде MsgBox.

Спасибо за ответы, но для меня API темный лес.
Если возможно, покажите в виде кодов.

[A.A.Z.]

Ну, примерно так (на форму поставь таймер с интервалом 1 и вместо BBB поставь Title MsgBox'а):

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10

Private Sub Timer1_Timer()
If FindWindow(vbNullString, "BBB") > 0 Then PostMessage FindWindow(vbNullString, "BBB"), WM_CLOSE, 0, ByVal 0&: End
End Sub